{3种写法，任选一句就可}

复制内容到剪贴板

代码:

STICKLINE(c<>0 and ISLASTBAR=1,c,c,1000,1);

drawsl(C<>0 AND ISLASTBAR,C,0,0,3),colorred;

PARTLINE(BACKSET(ISLASTBAR,30),DYNAINFO(7)),SHIFT30;

趋势线1

复制内容到剪贴板

代码:

input:n(16),m(90);

drawtext(sysparam(2)=barpos,c,'板块:'+blkname),colorccffff,align4;
z:=zig(4,n);p:=SYSPARAM(1);
dd:="xh-z.dd"(n);  wd:=barslast(dd);  
sd:=sum(dd,0);  di:=sd[p]-sd+1;    id:=(di<ref(di,1))*di;
gg:="xh-z.gg"(n);  wg:=barslast(gg);  
sg:=sum(gg,0);  gi:=sg[p]-sg+1;    ig:=(gi<ref(gi,1))*gi;
td0:=barslast(di[p]=id);
td1:=barslast(1+di[p]=id);
td2:=barslast(2+di[p]=id);
x:ref(z,td0),POINTDOT;
k1:(x-ref(z,td1))/ref(td1,td0)*100,LINETHICK0,COLORGREEN;
k3:(ref(z,td1)-ref(z,td2))/ref(td2,td1)*100,LINETHICK0,Color5E7159;
x1:x+td0*k1/100,LINETHICK0,COLORGREEN;
x2:ref(z,td1)+td1*k3/100,LINETHICK0,Color5E7159;
DRAWLINE(1+di[p]=id,z,di[p]=id,z,1),COLORGREEN;
DRAWLINE(2+di[p]=id,z,1+di[p]=id,z,1),Color5E7159,POINTDOT;
tg0:=barslast(gi[p]=ig);
tg1:=barslast(1+gi[p]=ig);
tg2:=barslast(2+gi[p]=ig);
s:ref(z,tg0),POINTDOT;
k2:(s-ref(z,tg1))/ref(tg1,tg0)*100,LINETHICK0,COLORMAGENTA;
k4:(ref(z,tg1)-ref(z,tg2))/ref(tg2,tg1)*100,LINETHICK0,Color546C82;
s1:s+tg0*k2/100,LINETHICK0,COLORMAGENTA;
s2:ref(z,tg1)+tg1*k4/100,LINETHICK0,Color546C82;
DRAWLINE(1+gi[p]=ig,z,gi[p]=ig,z,1),COLORMAGENTA;
DRAWLINE(2+gi[p]=ig,z,1+gi[p]=ig,z,1),Color546C82,POINTDOT;
DRAWICON((dd and di<5) or (gg and gi<5),z,12);
DRAWICON(di[p]=id or gi[p]=ig,z,10);

复制内容到剪贴板

代码:

aad:=BACKSET(tjd,peakBARS(m,n,2));
ad:=aad<REFX(aad,1);
bbd:=BACKSET(tjd,peakBARS(m,n,1));
bd:=bbd<REFX(bbd,1);
v2:=if(bd,1,0);
abd:LINEVALUE(ad,h,bd,h,0,0),linethick0;
kkad:=refx(abd,1)-abd;
DRAWSL(vv=abd and ad,h,kkad,la,0),colorgreen,linethick2;
ccd:=sum(abd>vv and ref(abd,1)<ref(vv,1),BARSLAST(bd))=1 and peakBARS(m,n,1)=0 and peak(m,n,2)>=ref(abd,peakBARS(m,n,2));
cd:=ccd>ref(ccd,1);
bcd:=LINEVALUE(bd,h,cd,h,0,0),linethick0;
kkbd:=refx(bcd,1)-bcd;
DRAWSL(vv=abd and v2,h,kkbd,lb,0),COLORblue,linethick2;
DRAWSL(cd,h,0,lc,0),COLORWHITE,linethick2;
DRAWTEXT(vv=abd and ad,h*1.05,'A'),COLORWHITE;
DRAWTEXT(vv=abd and v2,h*1.05,'B'),COLORWHITE;
DRAWTEXT(cd,h*1.05,'C'),COLORWHITE;

复制内容到剪贴板

代码:

INPUT:N(240,0,999);
hh:=hhv(h,N);
hhh:=h;
aa:=BARSLAST(h=hh[datacount]);
ba:datacount-aa,LINETHICK0;
ja:=1;
tm1:=999999;
for i1=ba[datacount]+1 to datacount do begin
    k1:=(hh[datacount]-hhh[i1])/ja;
  if k1<tm1  then begin
    tm1:=k1;
    ts1:=ja;
  end;
  ja:=ja+1;
end;
A1:LINEVALUE(h=hh[datacount] and aa=0,h,BARPOS=datacount-aa[datacount]+ts1,h,0,0),colorffff54;
cha:=hhv(abs(l-a1),aa);
A2:a1-cha[datacount],colorffff54;
AI:a1-cha[datacount]/2,colorffff54,LINEDASH;

ll:=llv(l,N);
lll:=l;
a3:=BARSLAST(l=ll[datacount]);
b3:=datacount-a3;
j3:=1;
tm3:=999999;
for i3=b3[datacount]+1 to datacount do begin
    k3:=(lll[i3]-ll[datacount])/j3;
  if k3<tm3  then begin
    tm3:=k3;
    ts3:=j3;
  end;
  j3:=j3+1;
end;
B1:LINEVALUE(l=ll[datacount] and a3=0,l,BARPOS=datacount-a3[datacount]+ts3,l,0,0),color5454ff;
chb:=hhv(abs(h-b1),a3);
b2:b1+chb[datacount],color5454ff;
bi:b1+chb[datacount]/2,color5454ff,LINEDASH;

复制内容到剪贴板

代码:

hh:=hhv(h,0);
hhh:=h;
aa:=BARSLAST(h=hh[datacount]);
ba:=datacount-aa;
ja:=1;
tm1:=999999;
for i1=ba[datacount]+1 to datacount do begin
    k1:=(hh[datacount]-hhh[i1])/ja;
  if k1<tm1  then begin
    tm1:=k1;
    ts1:=ja;
  end;
  ja:=ja+1;
end;
A1:LINEVALUE(h=hh[datacount] and aa=0,h,BARPOS=datacount-aa[datacount]+ts1,h,0,0),colorffff54;
cha:=hhv(abs(l-a1),aa);
A2:a1-cha[datacount],colorffff54;
AI:a1-cha[datacount]/2,colorffff54,LINEDASH;

ll:=llv(l,0);
lll:=l;
a3:=BARSLAST(l=ll[datacount]);
b3:=datacount-a3;
j3:=1;
tm3:=999999;
for i3=b3[datacount]+1 to datacount do begin
    k3:=(lll[i3]-ll[datacount])/j3;
  if k3<tm3  then begin
    tm3:=k3;
    ts3:=j3;
  end;
  j3:=j3+1;
end;
B1:LINEVALUE(l=ll[datacount] and a3=0,l,BARPOS=datacount-a3[datacount]+ts3,l,0,0),color5454ff;
chb:=hhv(abs(h-b1),a3);
b2:b1+chb[datacount],color5454ff;
bi:b1+chb[datacount]/2,color5454ff,LINEDASH;

复制内容到剪贴板

代码:

n=16
drawtext(sysparam(2)=barpos,c,'板块:'+blkname),colorccffff,align4;
dd:="xh-z.dd"(n);
gg:="xh-z.gg"(n);
z:=dd*L+gg*h;
gd:=gg+dd;
DRAWICON(dd,z,12);
p:=SYSPARAM(1);
sgd:=sum(gd,0);
gds:=sgd[p]-sgd+1;
sb:=if(gds<1,1,gds);
sa:=(sb<ref(sb,1))*sb;
hb:=hhv((sa=1)*BARPOS,0);
q:=hb[p];
wgd:=ref(barslast(gd),1)+1;
DRAWICON(gd,dd*L+gg*h,12);
hgd:=if(gg,h,if(dd,L,0));
Lgd:=if(gg,ref(L,wgd),if(dd,ref(h,wgd),0));
yhL:=(hgd-Lgd)/4;
oo:=CROSS(BACKSET(q=BARPOS,wgd[q]+1),0.5);{定点}
qz:=(wgd[q])*4/3;{画斜线1}
w:=sumbars(gd,2)-1;
K1:=(hgd[q]-Lgd[q])/qz*4/3,LINETHICK0;
d1:ref(z,w)+k1*w,LINETHICK0,ColorFF6FB7;
K2:=(hgd[q]-Lgd[q])/qz/1.123,LINETHICK0;
d2:ref(z,w)+k2*w,LINETHICK0,ColorFF6FB7;
K3:=(hgd[q]-Lgd[q])/qz/2.246,LINETHICK0;
d3:ref(z,w)+k3*w,LINETHICK0,ColorFF6FB7;
DRAWSL(oo,Lgd[q],k1,0,0),LINETHICK1,ColorFF6FB7;
DRAWSL(oo,Lgd[q],k2,0,0),POINTDOT,ColorFF6FB7;
DRAWSL(oo,Lgd[q],k3,0,0),POINTDOT,ColorFF6FB7;

{画斜线2}

复制内容到剪贴板

代码:

b1:=(Lgd[q]-hgd[q])/qz*4/3,LINETHICK0;
g1:ref(hgd[q],w)+b1*w,LINETHICK0,Color74AFFF;
b2:=(Lgd[q]-hgd[q])/qz/1.132,LINETHICK0;
g2:ref(hgd[q],w)+b2*w,LINETHICK0,Color74AFFF;
b3:=(Lgd[q]-hgd[q])/qz/2.246,LINETHICK0;
g3:ref(hgd[q],w)+b3*w,LINETHICK0,Color74AFFF;
DRAWSL(oo,hgd[q],b1,0,0),Color74AFFF,LINETHICK1;
DRAWSL(oo,hgd[q],b2,0,0),POINTDOT,Color74AFFF;
DRAWSL(oo,hgd[q],b3,0,0),POINTDOT,Color74AFFF;
i1:='斜率\nk1\n'+'±'+NUMTOSTR(abs(k1)*100,3)+'\nk2\n'+'±'
+NUMTOSTR(abs(k2)*100,3)+'\nk3\n'+'±'+NUMTOSTR(abs(k3)*100,3);
DRAWTEXT(BARPOS=SYSPARAM(3)-3,h,i1),ALIGN4,SHIFT1,Color74AFFF;

复制内容到剪贴板

代码:

w:=barslast(ref(c,1)*1.1-c<0.01);
DRAWLINE(w=0,c,c/ref(c,1)>1.03,c,0);
DRAWLINE(w=0,o,c/ref(c,1)>1.03,o,0)；

1：今天收盘前的某一天有一涨停板；
2：今天收盘涨幅大于3%；
在涨停板的开盘价和今天的开盘价处画连线
在涨停板的收盘价和今天的收盘价处画连线

趋势线2

复制内容到剪贴板

代码:

gz1:=PEAKBARS(1,10,1);
gg1:=BACKSET(ISLASTBAR,gz1+1);
gz2:=PEAKBARS(1,5,2);
gg2:=BACKSET(ISLASTBAR,gz2+1);
dz1:=TROUGHBARS(2,10,1);
dz3:=TROUGHBARS(2,10,2);
dz7:=TROUGHBARS(2,5,2);
dg1:=BACKSET(ISLASTBAR,dz1+1);
dg4:=BACKSET(ISLASTBAR,dz3+1);
dg8:=BACKSET(ISLASTBAR,dz7+1);

复制内容到剪贴板

代码:

DIFF:EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:EMA(DIFF,9);
MACD:2*(DIFF-DEA), COLORSTICK;
低位金叉:=CROSS(DIFF,DEA) AND DIFF<-0.1;
STICKLINE(低位金叉,0,0.3,8,0),COLORYELLOW;
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
STICKLINE(二次金叉,0,0.2,8,0),COLORff80ff;
DRAWICON(二次金叉,dea*0.9,1) ;
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
底背离:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA);
STICKLINE(底背离,0,0.1,8,0),COLORRED;
DRAWLINE(A1=0,DEA,底背离,DEA,0),COLORRED,linethick2;
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));
顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF);
DRAWLINE(A2=0,DEA,顶背离,DEA,0),COLORGREEN,linethick2;

复制内容到剪贴板

代码:

DRAWICON(((CLOSE > 0) AND (ISLASTBAR = 1)),CLOSE,'一休哥1'),ALIGN4,SHIFT2;
VAR1:=(EMA(VOL,12) - EMA(VOL,26));
VAR2:=EMA(VAR1,9);
VAR3:=(((EMA(CLOSE,30) * 2) + MA(CLOSE,60)) / 3);
A3:=(((EMA(CLOSE,10) * 2) + MA(CLOSE,20)) / 3);
VAR4:=(VOL * CLOSE);
VAR5:=(EMA(VAR4,13) / EMA(VOL,13));
VAR6:=(EMA(VAR4,60) / EMA(VOL,60));
VAR7:=EMA(((VAR5 + VAR6) / 2),3);
A5:=(EMA(VAR4,5) / EMA(VOL,5));
A6:=(EMA(VAR4,20) / EMA(VOL,20));
A7:=EMA(((A5 + A6) / 2),3);
A:=MA(((A3 + A7) / 2),1);
A1:=REF(A,1);
A8:=MA(((VAR3 + VAR7) / 2),1);
A22:=MA(((VAR3 + VAR7) / 2),1);
【中线强弱线】:A22,LINETHICK0,colorFF;
DRAWICON((A8 < REF(A8,1)),REF(A8,2),11),LINETHICK2,colorFFFFFF;
DRAWICON((A8 >= REF(A8,1)),REF(A8,2),10),LINETHICK2,colorFF;
VAR11:=(((((2 * CLOSE) + OPEN) + HIGH) + LOW) / 5);
VAR12:=VOL;
【短期强弱线】:(SUM((VAR11 * VAR12),13) / SUM(VAR12,13)),LINETHICK1,colorFFFF;
PARTLINE((【短期强弱线】 > REF(【短期强弱线】,1)),【短期强弱线】),colorFF00FF;
AM:=DMA(MA(DMA(CLOSE,VAR2),6),(VOL / SUM(VOL,89)));
【牛熊线】:AM,LINETHICK2,color9900;
VARA:=IF((CLOSE > 150),91.3,0.913);
【下沿】:=(INTPART((CLOSE / VARA)) * VARA);
【上沿】:=(【下沿】 + VARA);
【中线】:=((【下沿】 + 【上沿】) / 2);
STICKLINE(((((SYSPARAM(1) = BARPOS) AND 【下沿】) AND (CLOSE > 【下沿】)) AND (CLOSE < 【中线】)),【下沿】,【下沿】,50,0),LINETHICK3,colorFF9900;
STICKLINE(((((SYSPARAM(1) = BARPOS) AND 【上沿】) AND (CLOSE < 【上沿】)) AND (CLOSE > 【中线】)),【上沿】,【上沿】,50,0),LINETHICK3,color99FF;
STICKLINE(((SYSPARAM(1) = BARPOS) AND 【中线】),【中线】,【中线】,50,0),LINETHICK3,colorFFFFFF;
【蓝色】:【下沿】,LINETHICK0,colorFF9900;
【棕色】:【上沿】,LINETHICK0,color99FF;
【白色】:【中线】,LINETHICK0,colorFFFFFF;
DRAWTEXT(((((SYSPARAM(1) = BARPOS) AND 【下沿】) AND (CLOSE > 【下沿】)) AND (CLOSE < 【中线】)),【下沿】,'支撑'),SHIFT3,colorFF00;
DRAWTEXT(((((SYSPARAM(1) = BARPOS) AND 【下沿】) AND (CLOSE > 【下沿】)) AND (CLOSE < 【中线】)),【中线】,'压力'),SHIFT3,colorFF;
DRAWTEXT(((((SYSPARAM(1) = BARPOS) AND 【上沿】) AND (CLOSE < 【上沿】)) AND (CLOSE > 【中线】)),【上沿】,'压力'),SHIFT3,colorFF;
DRAWTEXT(((((SYSPARAM(1) = BARPOS) AND 【上沿】) AND (CLOSE < 【上沿】)) AND (CLOSE > 【中线】)),【中线】,'支撑'),SHIFT3,colorFF00;

复制内容到剪贴板

代码:

input:n(1400,1,9999),m(700,1,9999);
Var1:LLV(LOW,5000),colorblue;
Var2:HHV(HIGH,5000),colorblue;
L382:LLV(LOW,5000)*1.382,colorblue;
L618:LLV(LOW,5000)*1.618,colorblue;
H382:HHV(HIGH,5000)*0.382,colorblue;
H618:HHV(HIGH,5000)*0.618,colorblue;
HL382:(Var2-Var1)*0.382+Var1,colorbrown;
HL618:(Var2-Var1)*0.618+Var1,colorred;
HL33:(Var2-Var1)*0.33+Var1,colorbrown;
HL66:(Var2-Var1)*0.66+Var1,colorred;

VERTLINE(FILTER(BACKSET(ISLASTBAR,N),N-1)),COLORRED;
VERTLINE(FILTER(BACKSET(ISLASTBAR,M),M-1)),COLORRED;
VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)/8),N-(N-M)/8-1)),COLORYELLOW;
VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)/8*2),N-(N-M)/8*2-1)),COLORYELLOW;
VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)/8*3),N-(N-M)/8*3-1)),COLORYELLOW;
VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)/8*4),N-(N-M)/8*4-1)),COLORYELLOW;
VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)/8*5),N-(N-M)/8*5-1)),COLORYELLOW;
VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)/8*6),N-(N-M)/8*6-1)),COLORYELLOW;
VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)/8*7),N-(N-M)/8*7-1)),COLORYELLOW;
VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)/8*8),N-(N-M)/8*8-1)),COLORRED;

VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)*9/8),N-(N-M)*9/8-1)),COLORYELLOW;
VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)*10/8),N-(N-M)*10/8-1)),COLORYELLOW;
VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)*9/8),N-(N-M)*9/8-1)),COLORYELLOW;
VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)*10/8),N-(N-M)*10/8-1)),COLORYELLOW;

VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)*11/8),N-(N-M)*11/8-1)),COLORYELLOW;
VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)*12/8),N-(N-M)*12/8-1)),COLORYELLOW;
VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)*13/8),N-(N-M)*13/8-1)),COLORYELLOW;
VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)*14/8),N-(N-M)*14/8-1)),COLORYELLOW;

VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)*15/8),N-(N-M)*15/8-1)),COLORYELLOW;
VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)*16/8),N-(N-M)*16/8-1)),COLORYELLOW;

VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)*2/3),N-(N-M)*2/3-1)),COLORWHITE;
VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)*4/3),N-(N-M)*4/3-1)),COLORWHITE;
VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)*5/3),N-(N-M)*5/3-1)),COLORWHITE;

复制内容到剪贴板

代码:

input:var1(5,1,10000);

N: 1*Var1;
1.073*Var1, POINTDOT;
1.118*Var1, POINTDOT;
N1: 1.191*Var1;
1.264*Var1, POINTDOT;
1.309*Var1, POINTDOT;
N3: 1.382*Var1;
1.472*Var1, POINTDOT;
1.528*Var1, POINTDOT;
N4: 1.618*Var1;
1.691*Var1, POINTDOT;
疯牛: 1.809*Var1;

复制内容到剪贴板

代码:

N:=SYSPARAM(3)-SYSPARAM(2);
A:=BACKSET(ISLASTBAR,HHVBARS(H,N)+1);
B:=COUNT(A,N)=1;
前高:REF(H,BARSLAST(B)),COLORWHITE;
DRAWNUMBER(ISLASTBAR,前高,前高,2),aligno5,SHIFT3,COLORWHITE;
DRAWTEXT(ISLASTBAR,前高,'(前高)'),SHIFT7,COLORWHITE;
A2:=BACKSET(ISLASTBAR,LLVBARS(L,N)+1);
B2:=A2>REF(A2,1);
前低:REF(L,BARSLAST(B2)),COLORWHITE;
DRAWNUMBER(ISLASTBAR,前低,前低,2),aligno5,SHIFT3,COLORWHITE;
DRAWTEXT(ISLASTBAR,前低,'(前低)'),SHIFT7,COLORWHITE;
F1:((前高-前低)*0.236)+前低,COLORYELLOW;
DRAWNUMBER(ISLASTBAR,F1,F1,2),aligno5,SHIFT3,COLORYELLOW;
DRAWTEXT(BARSLAST(B)>BARSLAST(B2) and ISLASTBAR,F1,'(0.236)'),SHIFT7,COLORWHITE;
DRAWTEXT(BARSLAST(B)<BARSLAST(B2) and ISLASTBAR,F1,'(0.764)'),SHIFT7,COLORWHITE;
F2:((前高-前低)*0.382)+前低,COLORFF00FF;
DRAWNUMBER(ISLASTBAR,F2,F2,2),aligno5,SHIFT3,COLORFF00FF;
DRAWTEXT(BARSLAST(B)>BARSLAST(B2) and ISLASTBAR,F2,'(0.382)'),SHIFT7,COLORWHITE;
DRAWTEXT(BARSLAST(B)<BARSLAST(B2) and ISLASTBAR,F2,'(0.618)'),SHIFT7,COLORWHITE;
F3:((前高-前低)*0.5)+前低,COLORFFFF00;
DRAWNUMBER(ISLASTBAR,F3,F3,2),aligno5,SHIFT3,COLORFFFF00;
DRAWTEXT(ISLASTBAR,F3,'(0.5)'),SHIFT7,COLORWHITE;
F4:((前高-前低)*0.618)+前低,COLORFF00FF;
DRAWNUMBER(ISLASTBAR,F4,F4,2),aligno5,SHIFT3,COLORFF00FF;
DRAWTEXT(BARSLAST(B)>BARSLAST(B2) and ISLASTBAR,F4,'(0.618)'),SHIFT7,COLORWHITE;
DRAWTEXT(BARSLAST(B)<BARSLAST(B2) and ISLASTBAR,F4,'(0.382)'),SHIFT7,COLORWHITE;
F5:((前高-前低)*0.764)+前低,COLORYELLOW;
DRAWNUMBER(ISLASTBAR,F5,F5,2),aligno5,SHIFT3,COLORYELLOW;
DRAWTEXT(BARSLAST(B)>BARSLAST(B2) and ISLASTBAR,F5,'(0.764)'),SHIFT7,COLORWHITE;
DRAWTEXT(BARSLAST(B)<BARSLAST(B2) and ISLASTBAR,F5,'(0.236)'),SHIFT7,COLORWHITE;

复制内容到剪贴板

代码:

N:=SYSPARAM(3)-SYSPARAM(1);
A:=BACKSET(ISLASTBAR,HHVBARS(H,N)+1);
B:=COUNT(A,N)=1;
前高:IF(N>0,REF(H,BARSLAST(B)),0),COLORWHITE;
DRAWNUMBER(ISLASTBAR,前高,前高,2),aligno5,SHIFT3,COLORWHITE;
DRAWTEXT(ISLASTBAR,前高,'(前高)'),SHIFT7,COLORWHITE;
A2:=BACKSET(ISLASTBAR,LLVBARS(L,N)+1);
B2:=A2>REF(A2,1);
前低:REF(L,BARSLAST(B2)),COLORWHITE;
DRAWNUMBER(ISLASTBAR,前低,前低,2),aligno5,SHIFT3,COLORWHITE;
DRAWTEXT(ISLASTBAR,前低,'(前低)'),SHIFT7,COLORWHITE;
F1:((前高-前低)*0.236)+前低,COLORYELLOW;
DRAWNUMBER(ISLASTBAR,F1,F1,2),aligno5,SHIFT3,COLORYELLOW;
DRAWTEXT(BARSLAST(B)>BARSLAST(B2) and ISLASTBAR,F1,'(0.236)'),SHIFT7,COLORWHITE;
DRAWTEXT(BARSLAST(B)<BARSLAST(B2) and ISLASTBAR,F1,'(0.764)'),SHIFT7,COLORWHITE;
F2:((前高-前低)*0.382)+前低,COLORFF00FF;
DRAWNUMBER(ISLASTBAR,F2,F2,2),aligno5,SHIFT3,COLORFF00FF;
DRAWTEXT(BARSLAST(B)>BARSLAST(B2) and ISLASTBAR,F2,'(0.382)'),SHIFT7,COLORWHITE;
DRAWTEXT(BARSLAST(B)<BARSLAST(B2) and ISLASTBAR,F2,'(0.618)'),SHIFT7,COLORWHITE;
F3:((前高-前低)*0.5)+前低,COLORFFFF00;
DRAWNUMBER(ISLASTBAR,F3,F3,2),aligno5,SHIFT3,COLORFFFF00;
DRAWTEXT(ISLASTBAR,F3,'(0.5)'),SHIFT7,COLORWHITE;
F4:((前高-前低)*0.618)+前低,COLORFF00FF;
DRAWNUMBER(ISLASTBAR,F4,F4,2),aligno5,SHIFT3,COLORFF00FF;
DRAWTEXT(BARSLAST(B)>BARSLAST(B2) and ISLASTBAR,F4,'(0.618)'),SHIFT7,COLORWHITE;
DRAWTEXT(BARSLAST(B)<BARSLAST(B2) and ISLASTBAR,F4,'(0.382)'),SHIFT7,COLORWHITE;
F5:((前高-前低)*0.764)+前低,COLORYELLOW;
DRAWNUMBER(ISLASTBAR,F5,F5,2),aligno5,SHIFT3,COLORYELLOW;
DRAWTEXT(BARSLAST(B)>BARSLAST(B2) and ISLASTBAR,F5,'(0.764)'),SHIFT7,COLORWHITE;
DRAWTEXT(BARSLAST(B)<BARSLAST(B2) and ISLASTBAR,F5,'(0.236)'),SHIFT7,COLORWHITE;

复制内容到剪贴板

代码:

前高:SYSPARAM(4),colorwhite;
DRAWNUMBER(ISLASTBAR,前高,前高,2),aligno5,SHIFT3,COLORWHITE;
DRAWTEXT(ISLASTBAR,前高,'(前高)'),SHIFT7,COLORWHITE;
前低:SYSPARAM(5),colorwhite;
DRAWNUMBER(ISLASTBAR,前低,前低,2),aligno5,SHIFT3,COLORWHITE;
DRAWTEXT(ISLASTBAR,前低,'(前低)'),SHIFT7,COLORWHITE;
F1:((前高-前低)*0.236)+前低,COLORYELLOW;
DRAWNUMBER(ISLASTBAR,F1,F1,2),aligno5,SHIFT3,COLORYELLOW;
F2:((前高-前低)*0.382)+前低,COLORFF00FF;
DRAWNUMBER(ISLASTBAR,F2,F2,2),aligno5,SHIFT3,COLORFF00FF;
F3:((前高-前低)*0.5)+前低,COLORFFFF00;
DRAWNUMBER(ISLASTBAR,F3,F3,2),aligno5,SHIFT3,COLORFFFF00;
F4:((前高-前低)*0.618)+前低,COLORFF00FF;
DRAWNUMBER(ISLASTBAR,F4,F4,2),aligno5,SHIFT3,COLORFF00FF;
F5:((前高-前低)*0.764)+前低,COLORYELLOW;
DRAWNUMBER(ISLASTBAR,F5,F5,2),aligno5,SHIFT3,COLORYELLOW;

复制内容到剪贴板

代码:

input:n(999,1,10000),p1(1,1,1000);

HH:=HHV(H,N)COLORWHITE;
LL:LLV(L,N)COLORWHITE;
<%
VH=FFL.VARDATA("HH")
VL=FFL.VARDATA("LL")
VN=FFL.VARDATA("N")
LAST=UBOUND(VH)
IF VN>LAST THEN VN=LAST+1
FOR I=LAST TO LAST-VN+1 STEP-1
    VH(I)=VH(LAST)
    VL(I)=VL(LAST)
NEXT
FFL.VARDATA("HH")=VH
FFL.VARDATA("LL")=VL
FFL.VARSTARTINDEX("HH")=LAST-VN+1
FFL.VARSTARTINDEX("LL")=LAST-VN+1
%>

TJ:=BARSCOUNT(LL)=N-(N-p1);

DRAWTEXT(ISLASTBAR,LL,'      0↑');
DRAWNUMBER(TJ,LL,LL,2),ALIGN2;

M1:LL*1.0625,COLORYELLOW;
DRAWTEXT(ISLASTBAR,M1,'  6.25%↑ 22.5')COLORYELLOW;
DRAWNUMBER(TJ,M1,M1,2),ALIGN2,COLORYELLOW;
M2:LL*1.125,COLORRED;
DRAWTEXT(c>0  and ISLASTBAR=1,M2,'  12.5%↑   45')COLORRED;
DRAWNUMBER(TJ,M2,M2,2),ALIGN2,COLORRED;
M3:LL*1.1875,COLORGREEN;
DRAWTEXT(ISLASTBAR,M3,' 18.75%↑ 67.5')COLORGREEN;
DRAWNUMBER(TJ,M3,M3,2)ALIGN2,COLORGREEN;
M4:LL*1.25,COLORCYAN;
DRAWTEXT(c>0  and ISLASTBAR=1,M4,'    25%↑   90')COLORCYAN;
DRAWNUMBER(TJ,M4,M4,2),ALIGN2,COLORCYAN;
M5:LL*1.3125,COLOR00808000;
DRAWTEXT(c>0  and ISLASTBAR=1,M5,' 31.25%↑112.5')COLOR00808000;
DRAWNUMBER(TJ,M5,M5,2)ALIGN2,COLOR00808000;
M6:LL*1.3333,COLORMAGENTA;
DRAWTEXT(c>0  and ISLASTBAR=1,M6,'  33.3%↑  120')COLORMAGENTA;
DRAWNUMBER(TJ,M6,M6,2),ALIGN2,COLORMAGENTA;
M7:LL*1.375,COLORGRAY;
DRAWTEXT(c>0  and ISLASTBAR=1,M7,'  37.5%↑  135')COLORGRAY;
DRAWNUMBER(TJ,M7,M7,2),ALIGN2,COLORGRAY;
M8:LL*1.4375,COLORBLUE;
DRAWTEXT(c>0  and ISLASTBAR=1,M8,' 43.75%↑157.5')COLORBLUE;
DRAWNUMBER(TJ,M8,M8,2)ALIGN2,COLORBLUE;
M9:LL*1.5,COLORYELLOW;
DRAWTEXT(c>0  and ISLASTBAR=1,M9,'    50%↑  180')COLORYELLOW;
DRAWNUMBER(TJ,M9,M9,2),ALIGN2,COLORYELLOW;

M10:LL*1.5625,COLORRED;
DRAWTEXT(c>0  and ISLASTBAR=1,M10,' 56.25%↑202.5')COLORRED;
DRAWNUMBER(TJ,M10,M10,2),ALIGN2,COLORRED;
M11:LL*1.625,COLORGREEN;
DRAWTEXT(c>0  and ISLASTBAR=1,M11,'  62.5%↑  225')COLORGREEN;
DRAWNUMBER(TJ,M11,M11,2),ALIGN2,COLORGREEN;
M12:LL*1.6667,COLOR00808000;
DRAWTEXT(c>0  and ISLASTBAR=1,M12,'  66.6%↑  240')COLOR00808000;
DRAWNUMBER(TJ,M12,M12,2),ALIGN2,COLOR00808000;
M13:LL*1.6875,COLORMAGENTA;
DRAWTEXT(c>0  and ISLASTBAR=1,M13,' 68.75%↑247.5')COLORMAGENTA;
DRAWNUMBER(TJ,M13,M13,2),ALIGN2,COLORMAGENTA;
M14:LL*1.75,COLORGRAY;
DRAWTEXT(c>0  and ISLASTBAR=1,M14,'    75%↑  270')COLORGRAY;
DRAWNUMBER(TJ,M14,M14,2),ALIGN2,COLORGRAY;
M15:LL*1.8125,COLORBLUE;
DRAWTEXT(c>0  and ISLASTBAR=1,M15,' 81.25%↑292.5')COLORBLUE;
DRAWNUMBER(TJ,M15,M15,2),ALIGN2,COLORBLUE;
M16:LL*1.875,COLORYELLOW;
DRAWTEXT(c>0  and ISLASTBAR=1,M16,'  87.5%↑  315')COLORYELLOW;
DRAWNUMBER(TJ,M16,M16,2),ALIGN2,COLORYELLOW;
M17:LL*1.9375,COLORRED;
DRAWTEXT(c>0  and ISLASTBAR=1,M17,' 93.75%↑337.5')COLORRED;
DRAWNUMBER(TJ,M17,M17,2),ALIGN2,COLORRED;
M18:LL*2,COLORGREEN;
DRAWTEXT(c>0  and ISLASTBAR=1,M18,'   100%↑  360')COLORGREEN;
DRAWNUMBER(TJ,M18,M18,2),ALIGN2,COLORGREEN;
M19:LL*2.0625,COLORCYAN;
DRAWTEXT(c>0  and ISLASTBAR=1,M19,'106.25%↑382.5')COLORCYAN;
DRAWNUMBER(TJ,M19,M19,2),ALIGN2,COLORCYAN;
M20:LL*2.125,COLOR00808000;
DRAWTEXT(c>0  and ISLASTBAR=1,M20,' 112.5%↑  405')COLOR00808000;
DRAWNUMBER(TJ,M20,M20,2),ALIGN2,COLOR00808000;

复制内容到剪贴板

代码:

input:n(999,1,10000),p(1,1,100);

HH:HHV(H,N)COLORWHITE;
LL:=LLV(L,N)COLORWHITE;
<%
VH=FFL.VARDATA("HH")
VL=FFL.VARDATA("LL")
VN=FFL.VARDATA("N")
LAST=UBOUND(VH)
IF VN>LAST THEN VN=LAST+1
FOR I=LAST TO LAST-VN+1 STEP-1
    VH(I)=VH(LAST)
    VL(I)=VL(LAST)
NEXT
FFL.VARDATA("HH")=VH
FFL.VARDATA("LL")=VL
FFL.VARSTARTINDEX("HH")=LAST-VN+1
FFL.VARSTARTINDEX("LL")=LAST-VN+1
%>

TJ:=BARSCOUNT(HH)=N-(N-p);

DRAWTEXT(ISLASTBAR,HH,'      0↓'),COLORWHITE;
DRAWNUMBER(TJ,HH,HH,2),ALIGN2,COLORWHITE;


M1:HH*0.9375,COLORYELLOW;
DRAWTEXT(c>0  and ISLASTBAR=1,M1,'  6.25%↓ 22.5')COLORYELLOW;
DRAWNUMBER(TJ,M1,M1,2),ALIGN2,COLORYELLOW;
M2:HH*0.875,COLORRED;
DRAWTEXT(c>0  and ISLASTBAR=1,M2,'  12.5%↓   45')COLORRED;
DRAWNUMBER(TJ,M2,M2,2),ALIGN2,COLORRED;
M3:HH*0.8125,COLORGREEN;
DRAWTEXT(c>0  and ISLASTBAR=1,M3,' 18.75%↓ 67.5')COLORGREEN;
DRAWNUMBER(TJ,M3,M3,2),ALIGN2,COLORGREEN;
M4:HH*0.75,COLORCYAN;
DRAWTEXT(c>0  and ISLASTBAR=1,M4,'    25%↓   90')COLORCYAN;
DRAWNUMBER(TJ,M4,M4,2),ALIGN2,COLORCYAN;
M5:HH*0.6875,COLORMAGENTA;
DRAWTEXT(c>0  and ISLASTBAR=1,M5,' 31.25%↓112.5')COLORMAGENTA;
DRAWNUMBER(TJ,M5,M5,2),ALIGN2,COLORMAGENTA;
M6:HH*0.6667,COLOR000094D0;
DRAWTEXT(c>0  and ISLASTBAR=1,M6,'  33.3%↓  120')COLOR000094D0;
DRAWNUMBER(TJ,M6,M6,2),ALIGN2,COLOR000094D0;
M7:HH*0.625,COLORBLUE;
DRAWTEXT(c>0  and ISLASTBAR=1,M7,'  37.5%↓  135')COLORBLUE;
DRAWNUMBER(TJ,M7,M7,2),ALIGN2,COLORBLUE;
M8:HH*0.5625,COLORGRAY;
DRAWTEXT(c>0  and ISLASTBAR=1,M8,' 43.75%↓157.5')COLORGRAY;
DRAWNUMBER(TJ,M8,M8,2),ALIGN2,COLORGRAY;
M9:HH*0.5,colorFF00CC;
DRAWTEXT(c>0  and ISLASTBAR=1,M9,'    50%↓  180')colorFF00CC;
DRAWNUMBER(TJ,M9,M9,2),ALIGN2,,colorFF00CC;

复制内容到剪贴板

代码:

input:var1(5,1,1000);

X: 1*Var1;
0.927*Var1, POINTDOT;
0.882*Var1, POINTDOT;
X1: 0.809*Var1;
0.736*Var1, POINTDOT;
0.691*Var1, POINTDOT;
X2: 0.618*Var1;
0.528*Var1, POINTDOT;
0.472*Var1, POINTDOT;
呆熊: 0.382*Var1;

复制内容到剪贴板

代码:

input:N(3);
J1:=IsLastBar;
J2:=REF(HIGH,N)=HHV(HIGH,2*N+1);
J3:=FILTER(J2,N);
J4:=BACKSET(J3,N+1);
J5:=FILTER(J4,N);
J6:=J5 OR J1;
J7:=REF(LOW,N)=LLV(LOW,2*N+1);
J8:=FILTER(J7,N);
J9:=BACKSET(J8,N+1);
JA:=FILTER(J9,N);
JB:=JA AND NOT(J5);
JC:=BACKSET(J6,REF(BARSLAST(JB),1)+1);
JD:=JC>REF(JC,1);
JE:=BACKSET(JD,2);
JF:=JE>REF(JE,1);
J10:=BACKSET(JF AND COUNT(J6,REF(BARSLAST(JB),1)+2)=0,REF(BARSLAST(JB),1)+2);
J11:=J10>REF(J10,1);
J12:=BACKSET(J11 AND COUNT(J6,REF(BARSLAST(JB),1)+2)=0,REF(BARSLAST(JB),1)+2);
J13:=J12>REF(J12,1);
J14:=IF(J6,COUNT(JB,REF(BARSLAST(J6),1)+1),0);
J15:=IF(J14=1 AND J6,BARSLAST(JF),0);
J16:=IF(J6 AND REF(LOW,BARSLAST(JF))>=REF(LOW,BARSLAST(J11)),BARSLAST(J11),BARSLAST(JF));
J17:=IF(J14=2 AND J6,J16,0);
J18:=IF(J14>=3 AND J6,IF(J6 AND REF(LOW,J16)>=REF(LOW,BARSLAST(J13)),BARSLAST(J13),J16),0);
J19:=J15+J17+J18;
J1A:=BACKSET(J6,J19);
J1B:=J1A>REF(J1A,1);
J1C:=BACKSET(J1B,2);
J1D:=J1C>REF(J1C,1);
J1E:=J1D OR J1;
J1F:=BACKSET(J1E,REF(BARSLAST(J6),1)+1);
J20:=J1F>REF(J1F,1);
J21:=BACKSET(J20,2);
J22:=J21>REF(J21,1);
J23:=BACKSET(J22 AND COUNT(J1E,REF(BARSLAST(J6),1)+2)=0,REF(BARSLAST(J6),1)+2);
J24:=J23>REF(J23,1);
J25:=BACKSET(J24 AND COUNT(J1E,REF(BARSLAST(J6),1)+2)=0,REF(BARSLAST(J6),1)+2);
J26:=J25>REF(J25,1);
J27:=IF(J1E,COUNT(J5,REF(BARSLAST(J1E),1)+1),0);
J28:=IF(J27=1 AND J1E,BARSLAST(J22),0);
J29:=IF(J1E AND REF(HIGH,BARSLAST(J22))<=REF(HIGH,BARSLAST(J24)),BARSLAST(J24),BARSLAST(J22));
J2A:=IF(J27=2 AND J1E,J29,0);
J2B:=IF(J27>=3 AND J1E,IF(J1E AND REF(HIGH,J29)<=REF(HIGH,BARSLAST(J26)),BARSLAST(J26),J29),0);
J2C:=J28+J2A+J2B;
J2D:=BACKSET(J1E,J2C);
J2E:=J2D>REF(J2D,1);
J2F:=BACKSET(J2E,2);
J30:=J2F>REF(J2F,1);
J37:=BACKSET(J1,BARSLAST(J1D)+1);
J38:=J37>REF(J37,1);
J39:=BACKSET(J38,REF(BARSLAST(J1D),1)+2);
J3A:=J39>REF(J39,1);
J3B:=BACKSET(J1,BARSLAST(J30)+1);
J3C:=J3B>REF(J3B,1);
J3D:=BACKSET(J3C,REF(BARSLAST(J30),1)+2);
J3E:=J3D>REF(J3D,1),Coloryellow,PointDot;
DRAWLINE(J3A,LOW,J38,LOW,1),Coloryellow,PointDot;
DRAWLINE(J3E,HIGH,J3C,HIGH,1),Coloryellow,PointDot;
前一低: REF(LOW,BARSLAST(J38)),Colorcyan,PointDot,Linethick3;
前二低: REF(LOW,BARSLAST(J3A)),Colormagenta,PointDot,Linethick2;
前一高: REF(HIGH,BARSLAST(J3C)),Colorcyan,PointDot,Linethick3;
前二高: REF(HIGH,BARSLAST(J3E)),Colormagenta,PointDot,Linethick2;

作者：南客
需激活十字光标后使用

复制内容到剪贴板

代码:

ll:=sysparam(5);

hh:=sysparam(4);

n:=round(ln(hh/ll)/ln(1.1)+0.5);

variable:zb[n]=ll;

for i=2 to n do
  zb[i]:=zb[i-1]*1.1;

zb[1],color008888,pointdot;

if n>=02 then zb[02],color008888,pointdot;

if n>=03 then zb[03],color008888,pointdot;

if n>=04 then zb[04],color008888,pointdot;

if n>=05 then zb[05],color008888,pointdot;

if n>=06 then zb[06],color008888,pointdot;

if n>=07 then zb[07],color008888,pointdot;

if n>=08 then zb[08],color008888,pointdot;

if n>=09 then zb[09],color008888,pointdot;

if n>=10 then zb[10],color008888,pointdot;

if n>=11 then zb[11],color008888,pointdot;

if n>=12 then zb[12],color008888,pointdot;

if n>=13 then zb[13],color008888,pointdot;

if n>=14 then zb[14],color008888,pointdot;

if n>=15 then zb[15],color008888,pointdot;

if n>=16 then zb[16],color008888,pointdot;

if n>=17 then zb[17],color008888,pointdot;

if n>=18 then zb[18],color008888,pointdot;

if n>=19 then zb[19],color008888,pointdot;

if n>=20 then zb[20],color008888,pointdot;

if n>=21 then zb[21],color008888,pointdot;

if n>=22 then zb[22],color008888,pointdot;

if n>=23 then zb[23],color008888,pointdot;

if n>=24 then zb[24],color008888,pointdot;

if n>=25 then zb[25],color008888,pointdot;

if n>=26 then zb[26],color008888,pointdot;

if n>=27 then zb[27],color008888,pointdot;

if n>=28 then zb[28],color008888,pointdot;

if n>=29 then zb[29],color008888,pointdot;

if n>=30 then zb[30],color008888,pointdot;

if n>=31 then zb[31],color008888,pointdot;

if n>=32 then zb[32],color008888,pointdot;

if n>=33 then zb[33],color008888,pointdot;

if n>=34 then zb[34],color008888,pointdot;

if n>=35 then zb[35],color008888,pointdot;

if n>=36 then zb[36],color008888,pointdot;

if n>=37 then zb[37],color008888,pointdot;

if n>=38 then zb[38],color008888,pointdot;

if n>=39 then zb[39],color008888,pointdot;

if n>=40 then zb[40],color008888,pointdot;

if n>=41 then zb[41],color008888,pointdot;

if n>=42 then zb[42],color008888,pointdot;

if n>=43 then zb[43],color008888,pointdot;

if n>=44 then zb[44],color008888,pointdot;

if n>=45 then zb[45],color008888,pointdot;

if n>=46 then zb[46],color008888,pointdot;

if n>=47 then zb[47],color008888,pointdot;

if n>=48 then zb[48],color008888,pointdot;

if n>=49 then zb[49],color008888,pointdot;

if n>=50 then zb[50],color008888,pointdot;

复制内容到剪贴板

代码:

D:=SYSParam( 4 ) ;
DD:=SYSParam( 4 ) / 2 ;
EE:=Sum(1,0)=SYSParam( 3 );

頂點:D - 0*DD , LineThick0 , Color80FFFF ;
XA:=D - 0.073*DD ;
YA:=D - 0.118*DD ;
DrawLine( D=H , 頂點 , EE=1 , 頂點 , 1 ) , Color80FFFF ;
DrawLine( D=H , XA , EE=1 , XA ,1 ) , PointDot , ColorEFC8A0 ;
DrawLine( D=H , YA , EE=1 , YA , 1 ) , PointDot , ColorEFC8A0 ;

浪花:D - 0.191*DD , LineThick0 , Color6F9DFF ;
XB:=D - 0.264*DD ;
YB:=D - 0.309*DD ;
DrawLine( D=H , 浪花 , EE=1 , 浪花 , 1 ) , Color6F9DFF ;
DrawLine( D=H , XB , EE=1 , XB ,1 ) , PointDot , ColorEFC8A0 ;
DrawLine( D=H , YB , EE=1 , YB , 1 ) , PointDot , ColorEFC8A0 ;

熊口:D - 0.382*DD , LineThick0 , ColorFF8080 ;
XC:=D - 0.472*DD ;
YC:=D - 0.528*DD ;
DrawLine( D=H , 熊口 , EE=1 , 熊口 , 1 ) , ColorFF8080 ;
DrawLine( D=H , XC , EE=1 , XC ,1 ) , PointDot , ColorEFC8A0 ;
DrawLine( D=H , YC , EE=1 , YC , 1 ) , PointDot , ColorEFC8A0 ;

熊洞:D - 0.618*DD , LineThick0 , ColorC080FF ;
XD:=D - 0.691*DD ;
YD:=D - 0.736*DD ;
DrawLine( D=H ,熊洞 , EE=1 , 熊洞 , 1 ) , ColorC080FF ;
DrawLine( D=H , XD , EE=1 , XD ,1 ) , PointDot , ColorEFC8A0 ;
DrawLine( D=H , YD , EE=1 , YD , 1 ) , PointDot , ColorEFC8A0 ;

熊眠:D - 0.809*DD , LineThick0 , ColorFFFFFF ;
DrawLine( D=H , 熊眠 , EE=1 , 熊眠 , 1 ) , ColorFFFFFF ;

熊底:D - 1*DD , LineThick0 , Color80F906 ;
DrawLine( D=H , 熊底 , EE=1 , 熊底 , 1 ) , Color80F906 ;

熊谷:D - 1.382*DD , LineThick0 , Color80F906 ;
DrawLine( D=H , 熊谷 , EE=1 , 熊谷 , 1 ) , Color80F906 ;

复制内容到剪贴板

代码:

A1:=EMA(C,3);
A2:=EMA(C,5);
A3:IF(A1>=A2,A1,A2);DRAWNUMBER(ISLASTBAR=1,A3,A3,1),SHIFT1;
PARTLINE(A1>A2,A3),LINETHICK2,COLORMAGENTA;
PARTLINE(A1<A2,A3),LINETHICK2,COLORblue;
PARTLINE(A1=A2,A3),LINETHICK2,COLORyellow;
DataCountN:=c*0;
<%
nn=FFL.VarData("DataCountN")
setnn=ubound(nn)+1
for i = lbound(nn) to ubound(nn)
  nn(i)=setnn
next
FFL.VarData("DataCountN")=nn
%>
p:=if(SYSPARAM(1)<DataCountN-t-n,SYSPARAM(1),DataCountN-t-n);
Ax:=p=BarsCount(c);
Ay:=refx(forcast(c,t),t)-refx(slope(c,t),t)*t;
Bx:=ref(Ax,t);
By:=forcast(c,t);
中值:LINEvalue(Ax,Ay,Bx,By,0,0),COLORCYAN,LINETHICK2;
js:=hhv(h-中值,t+1);
jq:=hhv(中值-L,t+1);
upos:=p+t;
<%
upos=FFL.VarData("upos")
js=FFL.VarData("js")
jq=FFL.VarData("jq")
for i = lbound(js) to ubound(js)
  js(i)=js(upos(i)-1)
  jq(i)=jq(upos(i)-1)
next
FFL.VarData("js")=js
FFL.VarData("jq")=jq
%>
上轨:LINEvalue(Ax,Ay+js,Bx,By+js,0,0),COLORRED,LINETHICK2;
下轨:LINEvalue(Ax,Ay-jq,Bx,By-jq,0,0),COLORGREEN,LINETHICK2;
STICKLINE(Ax or Bx,上轨,下轨,0.01,0)COLORGRAY,POINTDOT;

DataCountN1:=c*0;
<%
nn=FFL.VarData("DataCountN1")
setnn=ubound(nn)+1
for i = lbound(nn) to ubound(nn)
  nn(i)=setnn
next
FFL.VarData("DataCountN1")=nn
%>
p1:=if(SYSPARAM(1)<DataCountN1-t1-n1,SYSPARAM(1),DataCountN1-t1-n1);
Ax1:=p1=BarsCount(c);
Ay1:=refx(forcast(c,t1),t1)-refx(slope(c,t1),t1)*t1;
Bx1:=ref(Ax1,t1);
By1:=forcast(c,t1);
大中值1:LINEvalue(Ax1,Ay1,Bx1,By1,0,0),COLORCYAN,LINETHICK2;
js1:=hhv(h-大中值1,t1+1);
jq1:=hhv(大中值1-L,t1+1);
upos1:=p1+t1;
<%
upos1=FFL.VarData("upos1")
js1=FFL.VarData("js1")
jq1=FFL.VarData("jq1")
for i = lbound(js1) to ubound(js1)
  js1(i)=js1(upos1(i)-1)
  jq1(i)=jq1(upos1(i)-1)
next
FFL.VarData("js1")=js1
FFL.VarData("jq1")=jq1
%>
大上轨1:LINEvalue(Ax1,Ay1+js1,Bx1,By1+js1,0,0),COLORRED,LINETHICK2;
大下轨1:LINEvalue(Ax1,Ay1-jq1,Bx1,By1-jq1,0,0),COLORGREEN,LINETHICK2;
STICKLINE(Ax1 or Bx1,大上轨1,大下轨1,0.01,0)COLORGRAY,POINTDOT;