N-3;
l2:=if(c<ref(c,1),
    if(ref(l,1)>ref(l,2),ref(l,2),
    if(ref(l,1)>ref(l,3),ref(l,3),
    if(ref(l,1)>ref(l,4),ref(l,4),碼
    if(ref(l,1)>ref(l,5),ref(l,5),
    if(ref(l,1)>ref(l,6),ref(l,6),
    if(ref(l,1)>ref(l,7),ref(l,7),
    if(ref(l,1)>ref(l,8),ref(l,8),c))))))),c);
l3:=if(c<ref(c,1),
    if(l2>ref(l,3),ref(l,3),
    if(l2>ref(l,4),ref(l,4),
    if(l2>ref(l,5),ref(l,5),
    if(l2>ref(l,6),ref(l,6),
    if(l2>ref(l,7),ref(l,7),
    if(l2>ref(l,8),ref(l,8),
    if(l2>ref(l,9),ref(l,9),c))))))),c);
s:=bARSLAST(l3<l);
sl3:=ref(l3,s);
前低:sl3,POINTDOT,color00ff00;

h2:=if(c>ref(c,1),
    if(ref(h,1)<ref(h,2),ref(h,2),
    if(ref(h,1)<ref(h,3),ref(h,3),
    if(ref(h,1)<ref(h,4),ref(h,4),
    if(ref(h,1)<ref(h,5),ref(h,5),
    if(ref(h,1)<ref(h,6),ref(h,6),
    if(ref(h,1)<ref(h,7),ref(h,7),
    if(ref(h,1)<ref(h,8),ref(h,8),c))))))),c);
h3:=if(c>ref(c,1),
    if(h2<ref(h,3),ref(h,3),
    if(h2<ref(h,4),ref(h,4),
    if(h2<ref(h,5),ref(h,5),
    if(h2<ref(h,6),ref(h,6),
    if(h2<ref(h,7),ref(h,7),
    if(h2<ref(h,8),ref(h,8),
    if(h2<ref(h,9),ref(h,9),c))))))),c);
s1:=bARSLAST(h3>h);
sh3:=ref(h3,s1);
前高:sh3,coloryellow,POINTDOT;

cf:=ref(sh3,1)>=ref(c,1)and c>sh3;
cfs:=BARSLAST(cf);
v3:=if(c>sl3,ref(sh3,cfs)-sl3,9*1000);
持倉:n*10*0.02/v3,ColorFF0080,POINTDOT;

w22:wma(C,22),ColorFF4F33;
w26:wma(C,26),colorwhite;
w55:wma(c,55),ColorFFbCFf;
w110:wma(c,110),Color00B200;
w220:wMA(C,220),Color004DFF;
wma(C,8 ),ColorFFFF80;
wma(C,30),ColorFF00FF;
wma(C,10),colorFFf100;
wma(C,35),ColorFF43FF;
wma(C,12),colorFFa500;
wma(C,40),ColorFF65FF;
wma(C,15),ColorFF9500;
wma(C,45),ColorFF80FF;
wma(C,18),ColorFF8000;
wma(C,50),ColorFF9FFF;
w26,colorwhite;
w55,ColorFFbCFf;
w110,Color00B200;
w220,Color004DFF;

DRAWLINE(c>=sl3,sl3,c<sl3,sl3,0),color00ff00,linethick2;
DRAWLINE(sh3>c,sh3,c>sh3,sh3,0),coloryellow,linethick2;