飞狐划线主图

追随达芬奇

{飞狐划线主图}
INPUT:N(3,1,100);
DRAWTEXT(l>REF(H,1),REF(H,1),'←＜'),COLORRED;
DRAWTEXT(h<REF(L,1),REF(L,1),'←＜'),COLORGREEN;
xtqk:=h<REF(L,1);
xtqkdw:=xtqk>ref(xtqk,1);
xtqkwz1:=BARSLAST(xtqkdw);
xtqkwz2:=xtqkwz1+1;
xtqkg1:=ref(h,xtqkwz1);
xtqkg2:=ref(l,xtqkwz2);
A1:=ref(h,N)=hhv(h,2*N+1);
B1:=filter(A1,N);
C1:=backset(B1,N+1);
D1:=filter(C1,n);
A2:=ref(l,N)=llv(l,2*N+1);
B2:=filter(A2,N);
C2:=backset(B2,N+1);
D2:=filter(C2,N);
E1:=(ref(llv(l,2*N),1)+ref(hhv(h,2*N),1))/2;
E2:=(h+l)/2;
H1:=(D1 AND not(D2 AND E1>=E2)) OR barstatus=2 OR barscount(c)=1;
L1:=(D2 AND not(D1 AND E1=E2);
X1:=ref(barslast(H1),1)+1;
F1:=backset(H1 AND count(L1,X1)>0,llvbars(if(L1,l,10000),X1));
G1:=F1>ref(F1,1);
I1:=backset(G1,2);
LD:=I1>ref(I1,1);
L2:=LD OR barstatus=2 OR barscount(c)=1;
X2:=ref(barslast(L2),1)+1;
F2:=backset(L2 AND count(H2,X2)>0,hhvbars(if(H2,h,0),X2));
G2:=F2>ref(F2,1);
I2:=backset(G2,2);
HD:=I2>ref(I2,1);
T1:=backset(barstatus=2,barslast(LD)+1); U1:=T1>ref(T1,1);
T2:=backset(U1,ref(barslast(LD),1)+2); U2:=T2>ref(T2,1);
T3:=backset(U2,ref(barslast(LD),1)+2); U3:=T3>ref(T3,1);
T4:=backset(U3,ref(barslast(LD),1)+2); U4:=T4>ref(T4,1);
T5:=backset(U4,ref(barslast(LD),1)+2); U5:=T5>ref(T5,1);
T6:=backset(U5,ref(barslast(LD),1)+2); U6:=T6>ref(T6,1);
T7:=backset(U6,ref(barslast(LD),1)+2); U7:=T7>ref(T7,1);
T8:=backset(U7,ref(barslast(LD),1)+2); U8:=T8>ref(T8,1);
T9:=backset(U8,ref(barslast(LD),1)+2); U9:=T9>ref(T9,1);
T10:=backset(U9,ref(barslast(LD),1)+2); U10:=T10>ref(T10,1);
T11:=backset(U10,ref(barslast(LD),1)+2); U11:=T11>ref(T11,1);
T12:=backset(U11,ref(barslast(LD),1)+2); U12:=T12>ref(T12,1);
T13:=backset(U12,ref(barslast(LD),1)+2); U13:=T13>ref(T13,1);
T14:=backset(U13,ref(barslast(LD),1)+2); U14:=T14>ref(T14,1);
T15:=backset(U14,ref(barslast(LD),1)+2); U15:=T15>ref(T15,1);
R1:=backset(barstatus=2,barslast(HD)+1); S1:=R1>ref(R1,1);
R2:=backset(S1,ref(barslast(HD),1)+2); S2:=R2>ref(R2,1);
R3:=backset(S2,ref(barslast(HD),1)+2); S3:=R3>ref(R3,1);
R4:=backset(S3,ref(barslast(HD),1)+2); S4:=R4>ref(R4,1);
R5:=backset(S4,ref(barslast(HD),1)+2); S5:=R5>ref(R5,1);
R6:=backset(S5,ref(barslast(HD),1)+2); S6:=R6>ref(R6,1);
R7:=backset(S6,ref(barslast(HD),1)+2); S7:=R7>ref(R7,1);
R8:=backset(S7,ref(barslast(HD),1)+2); S8:=R8>ref(R8,1);
R9:=backset(S8,ref(barslast(HD),1)+2); S9:=R9>ref(R9,1);
R10:=backset(S9,ref(barslast(HD),1)+2); S10:=R10>ref(R10,1);
R11:=backset(S10,ref(barslast(HD),1)+2); S11:=R11>ref(R11,1);
R12:=backset(S11,ref(barslast(HD),1)+2); S12:=R12>ref(R12,1);
R13:=backset(S12,ref(barslast(HD),1)+2); S13:=R13>ref(R13,1);
R14:=backset(S13,ref(barslast(HD),1)+2); S14:=R14>ref(R14,1);
R15:=backset(S14,ref(barslast(HD),1)+2); S15:=R15>ref(R15,1);
前一低:=REF(L,BARSLAST(u1));
前二低:=REF(L,BARSLAST(u2));
前三低:=REF(L,BARSLAST(u3));
前四低:=REF(L,BARSLAST(u4));
前五低:=REF(L,BARSLAST(u5));
前六低:=REF(L,BARSLAST(u6));
前七低:=REF(L,BARSLAST(u7));
前八低:=REF(L,BARSLAST(u8));
前九低:=REF(L,BARSLAST(u9));
前十低:=REF(L,BARSLAST(u10));
前十一低:=REF(L,BARSLAST(u11));
前十二低:=REF(L,BARSLAST(u12));
前十三低:=REF(L,BARSLAST(u13));
前十四低:=REF(L,BARSLAST(u14));
前十五低:=REF(L,BARSLAST(u15));
前一高:=REF(H,BARSLAST(s1));
前二高:=REF(H,BARSLAST(s2));
前三高:=REF(H,BARSLAST(s3));
前四高:=REF(H,BARSLAST(s4));
前五高:=REF(H,BARSLAST(s5));
前六高:=REF(H,BARSLAST(s6));
前七高:=REF(H,BARSLAST(s7));
前八高:=REF(H,BARSLAST(s8));
前九高:=REF(H,BARSLAST(s9));
前十高:=REF(H,BARSLAST(s10));
前十一高:=REF(H,BARSLAST(s11));
前十二高:=REF(H,BARSLAST(s12));
前十三高:=REF(H,BARSLAST(s13));
前十四高:=REF(H,BARSLAST(s14));
前十五高:=REF(H,BARSLAST(s15));
qdwz1:=BARSLAST(u1);
qdwz2:=BARSLAST(u2);
qdwz3:=BARSLAST(u3);
qdwz4:=BARSLAST(u4);
qdwz5:=BARSLAST(u5);
qdwz6:=BARSLAST(u6);
qdwz7:=BARSLAST(u7);
qdwz8:=BARSLAST(u8);
qdwz9:=BARSLAST(u9);
qdwz10:=BARSLAST(u10);
qdwz11:=BARSLAST(u11);
qdwz12:=BARSLAST(u12);
qdwz13:=BARSLAST(u13);
qdwz14:=BARSLAST(u14);
qdwz15:=BARSLAST(u15);
qgwz1:=BARSLAST(s1);
qgwz2:=BARSLAST(s2);
qgwz3:=BARSLAST(s3);
qgwz4:=BARSLAST(s4);
qgwz5:=BARSLAST(s5);
qgwz6:=BARSLAST(s6);
qgwz7:=BARSLAST(s7);
qgwz8:=BARSLAST(s8);
qgwz9:=BARSLAST(s9);
qgwz10:=BARSLAST(s10);
qgwz11:=BARSLAST(s11);
qgwz12:=BARSLAST(s12);
qgwz13:=BARSLAST(s13);
qgwz14:=BARSLAST(s14);
qgwz15:=BARSLAST(s15);
tj1:=if(qdwz1<QGWZ1,1,0);
SA1:=DATACOUNT;
if TJ1[SA1]=0 then begin
TJ_1A01_XT1:=xtqkwz1<QGWZ1 前一低<ref(h,xtqkwz1);
if TJ_1A01_XT1[SA1] then begin
A_1A01_XT1:=((前一高-前一低)*(qdwz1-xtqkwz1))/(xtqkg1-前一低)+0.5;
B_1A01_XT1:=(xtqkg1-前一低)/(qdwz1-xtqkwz1);
C_1A01_XT1:=A_1A01_XT1-(qdwz1-qgwz1);
DRAWSL(u1,l,B_1A01_XT1[datacount],A_1A01_XT1[datacount],0),Coloryellow;
DRAWSL(s1,h,0,C_1A01_XT1[datacount],0),coloryellow;
A_1A01_XT2:=((前一高-前一低)*(qdwz1-xtqkwz2))/(xtqkg2-前一低)+0.5;
B_1A01_XT2:=(xtqkg2-前一低)/(qdwz1-xtqkwz2);
C_1A01_XT2:=A_1A01_XT2-(qdwz1-qgwz1);
DRAWSL(u1,l,B_1A01_XT2[datacount],A_1A01_XT2[datacount],0),Coloryellow;
end;
TJ_1A02_XT1:=xtqkwz1<QGWZ2 前二低qgwz1;
if TJ_1A02_XT1[SA1] then begin
A_1A02_XT1:=((前二高-前二低)*(qdwz2-xtqkwz1))/(xtqkg1-前二低)+0.5;
B_1A02_XT1:=(xtqkg1-前二低)/(qdwz2-xtqkwz1);
C_1A02_XT1:=A_1A02_XT1-(qdwz2-qgwz2);
DRAWSL(u2,l,B_1A02_XT1[datacount],A_1A02_XT1[datacount],0),Coloryellow;
DRAWSL(s2,h,0,C_1A02_XT1[datacount],0),coloryellow;
A_1A02_XT2:=((前二高-前二低)*(qdwz2-xtqkwz2))/(xtqkg2-前二低)+0.5;
B_1A02_XT2:=(xtqkg2-前二低)/(qdwz2-xtqkwz2);
C_1A02_XT2:=A_1A02_XT2-(qdwz2-qgwz2);
DRAWSL(u2,l,B_1A02_XT2[datacount],A_1A02_XT2[datacount],0),Coloryellow;
end;
TJ_1A03_XT1:=xtqkwz1<QGWZ3 xtqkwz1 and 前三低qgwz2;
if TJ_1A03_XT1[SA1] then begin
A_1A03_XT1:=((前三高-前三低)*(qdwz3-xtqkwz1))/(xtqkg1-前三低)+0.5;
B_1A03_XT1:=(xtqkg1-前三低)/(qdwz3-xtqkwz1);
C_1A03_XT1:=A_1A03_XT1-(qdwz3-qgwz3);
DRAWSL(u3,l,B_1A03_XT1[datacount],A_1A03_XT1[datacount],0),Coloryellow;
DRAWSL(s3,h,0,C_1A03_XT1[datacount],0),coloryellow;
A_1A03_XT2:=((前三高-前三低)*(qdwz3-xtqkwz2))/(xtqkg2-前三低)+0.5;
B_1A03_XT2:=(xtqkg2-前三低)/(qdwz3-xtqkwz2);
C_1A03_XT2:=A_1A03_XT2-(qdwz3-qgwz3);
DRAWSL(u3,l,B_1A03_XT2[datacount],A_1A03_XT2[datacount],0),Coloryellow;
end;
TJ_1A04_XT1:=xtqkwz1<QGWZ4 xtqkwz1 and 前四低qgwz3;
if TJ_1A04_XT1[SA1] then begin
A_1A04_XT1:=((前四高-前四低)*(qdwz4-xtqkwz1))/(xtqkg1-前四低)+0.5;
B_1A04_XT1:=(xtqkg1-前四低)/(qdwz4-xtqkwz1);
C_1A04_XT1:=A_1A04_XT1-(qdwz4-qgwz4);
DRAWSL(u4,l,B_1A04_XT1[datacount],A_1A04_XT1[datacount],0),Coloryellow;
DRAWSL(s4,h,0,C_1A04_XT1[datacount],0),coloryellow;
A_1A04_XT2:=((前四高-前四低)*(qdwz4-xtqkwz2))/(xtqkg2-前四低)+0.5;
B_1A04_XT2:=(xtqkg2-前四低)/(qdwz4-xtqkwz2);
C_1A04_XT2:=A_1A04_XT2-(qdwz4-qgwz4);
DRAWSL(u4,l,B_1A04_XT2[datacount],A_1A04_XT2[datacount],0),Coloryellow;
end;
TJ_1A01:=前一高<前二高;
if TJ_1A01[SA1] then begin
A_1A01:=((前二高-前一低)*(qgwz2-qgwz1))/(前二高-前一高)-(qgwz2-qdwz1)+0.5;
B_1A01:=-(前二高-前一高)/(qgwz2-qgwz1);
C_1A01:=A_1A01+qgwz2-qdwz1;
DRAWSL(S2,h,B_1A01[datacount],C_1A01[datacount],0),Colorred,LINEDOT;
DRAWSL(u1,l,0,A_1A01[datacount],0),colorred,LINEDOT;
end;
TJ_1A02:=前二高<前三高;
if TJ_1A02[SA1] then begin
A_1A02:=((前三高-前二低)*(qgwz3-qgwz2))/(前三高-前二高)-(qgwz3-qdwz2)+0.5;
B_1A02:=-(前三高-前二高)/(qgwz3-qgwz2);
C_1A02:=A_1A02+qgwz3-qdwz2;
DRAWSL(S3,h,B_1A02[datacount],C_1A02[datacount],0),ColorFF0000,LINEDOT;
DRAWSL(u2,l,0,A_1A02[datacount],0),colorFF0000,LINEDOT;
end;
TJ_1A03:=前三高<前四高;
if TJ_1A03[SA1] then begin
A_1A03:=((前四高-前三低)*(qgwz4-qgwz3))/(前四高-前三高)-(qgwz4-qdwz3)+0.5;
B_1A03:=-(前四高-前三高)/(qgwz4-qgwz3);
C_1A03:=A_1A03+qgwz4-qdwz3;
DRAWSL(S4,h,B_1A03[datacount],C_1A03[datacount],0),Color000099,LINEDOT;
DRAWSL(u3,l,0,A_1A03[datacount],0),color000099,LINEDOT;
end;
TJ_1A04:=前四高<前五高;
if TJ_1A04[SA1] then begin
A_1A04:=((前五高-前四低)*(qgwz5-qgwz4))/(前五高-前四高)-(qgwz5-qdwz4)+0.5;
B_1A04:=-(前五高-前四高)/(qgwz5-qgwz4);
C_1A04:=A_1A04+qgwz5-qdwz4;
DRAWSL(S5,h,B_1A04[datacount],C_1A04[datacount],0),ColorFF0099,LINEDOT;
DRAWSL(u4,l,0,A_1A04[datacount],0),colorFF0099,LINEDOT;
end;
TJ_1A05:=前五高<前六高;
if TJ_1A05[SA1] then begin
A_1A05:=((前六高-前五低)*(qgwz6-qgwz5))/(前六高-前五高)-(qgwz6-qdwz5)+0.5;
B_1A05:=-(前六高-前五高)/(qgwz6-qgwz5);
C_1A05:=A_1A05+qgwz6-qdwz5;
DRAWSL(S6,h,B_1A05[datacount],C_1A05[datacount],0),Color006600,LINEDOT;
DRAWSL(u5,l,0,A_1A05[datacount],0),color006600,LINEDOT;
end;
TJ_1A06:=前六高<前七高;
if TJ_1A06[SA1] then begin
A_1A06:=((前七高-前六低)*(qgwz7-qgwz6))/(前七高-前六高)-(qgwz7-qdwz6)+0.5;
B_1A06:=-(前七高-前六高)/(qgwz7-qgwz6);
C_1A06:=A_1A06+qgwz7-qdwz6;
DRAWSL(S7,h,B_1A06[datacount],C_1A06[datacount],0),Color006699,LINEDOT;
DRAWSL(u6,l,0,A_1A06[datacount],0),color006699,LINEDOT;
end;
TJ_1A07:=前七高<前八高;
if TJ_1A07[SA1] then begin
A_1A07:=((前八高-前七低)*(qgwz8-qgwz7))/(前八高-前七高)-(qgwz8-qdwz7)+0.5;
B_1A07:=-(前八高-前七高)/(qgwz8-qgwz7);
C_1A07:=A_1A07+qgwz8-qdwz7;
DRAWSL(S8,h,B_1A07[datacount],C_1A07[datacount],0),Color00FF00,LINEDOT;
DRAWSL(u7,l,0,A_1A07[datacount],0),color00FF00,LINEDOT;
end;
TJ_1A08:=前八高<前九高;
if TJ_1A08[SA1] then begin
A_1A08:=((前九高-前八低)*(qgwz9-qgwz8))/(前九高-前八高)-(qgwz9-qdwz8)+0.5;
B_1A08:=-(前九高-前八高)/(qgwz9-qgwz8);
C_1A08:=A_1A08+qgwz9-qdwz8;
DRAWSL(S9,h,B_1A08[datacount],C_1A08[datacount],0),Color00CC99,LINEDOT;
DRAWSL(u8,l,0,A_1A08[datacount],0),color00CC99,LINEDOT;
end;
TJ_1A09:=前九高<前十高;
if TJ_1A09[SA1] then begin
A_1A09:=((前十高-前九低)*(qgwz10-qgwz9))/(前十高-前九高)-(qgwz10-qdwz9)+0.5;
B_1A09:=-(前十高-前九高)/(qgwz10-qgwz9);
C_1A09:=A_1A09+qgwz10-qdwz9;
DRAWSL(S10,h,B_1A09[datacount],C_1A09[datacount],0),Color0000FF,LINEDOT;
DRAWSL(u9,l,0,A_1A09[datacount],0),color0000FF,LINEDOT;
end;
TJ_1A10:=前十高<前十一高;
if TJ_1A10[SA1] then begin
A_1A10:=((前十一高-前十低)*(qgwz11-qgwz10))/(前十一高-前十高)-(qgwz11-qdwz10)+0.5;
B_1A10:=-(前十一高-前十高)/(qgwz11-qgwz10);
C_1A10:=A_1A10+qgwz11-qdwz10;
DRAWSL(S11,h,B_1A10[datacount],C_1A10[datacount],0),Color669900,LINEDOT;
DRAWSL(u10,l,0,A_1A10[datacount],0),color669900,LINEDOT;
end;
TJ_1A11:=前十一高<前十二高;
if TJ_1A11[SA1] then begin
A_1A11:=((前十二高-前十一低)*(qgwz12-qgwz11))/(前十二高-前十一高)-(qgwz12-qdwz11)+0.5;
B_1A11:=-(前十二高-前十一高)/(qgwz12-qgwz11);
C_1A11:=A_1A11+qgwz12-qdwz11;
DRAWSL(S12,h,B_1A11[datacount],C_1A11[datacount],0),ColorFFFFFF,LINEDOT;
DRAWSL(u11,l,0,A_1A11[datacount],0),colorFFFFFF,LINEDOT;
end;
TJ_1A12:=前十二高<前十三高;
if TJ_1A12[SA1] then begin
A_1A12:=((前十三高-前十二低)*(qgwz13-qgwz12))/(前十三高-前十二高)-(qgwz13-qdwz12)+0.5;
B_1A12:=-(前十三高-前十二高)/(qgwz13-qgwz12);
C_1A12:=A_1A12+qgwz13-qdwz12;
DRAWSL(S13,h,B_1A12[datacount],C_1A12[datacount],0),ColorFF33CC,LINEDOT;
DRAWSL(u12,l,0,A_1A12[datacount],0),colorFF33CC,LINEDOT;
end;
TJ_1A13:=前十三高<前十四高;
if TJ_1A13[SA1] then begin
A_1A13:=((前十四高-前十三低)*(qgwz14-qgwz13))/(前十四高-前十三高)-(qgwz14-qdwz13)+0.5;
B_1A13:=-(前十四高-前十三高)/(qgwz14-qgwz13);
C_1A13:=A_1A13+qgwz14-qdwz13;
DRAWSL(S14,h,B_1A13[datacount],C_1A13[datacount],0),Color3366FF,LINEDOT;
DRAWSL(u13,l,0,A_1A13[datacount],0),color3366FF,LINEDOT;
end;
TJ_1B01:=前一低>前二低;
if TJ_1B01[SA1] then begin
A_1B01:=((前二高-前二低)*(qdwz2-qdwz1))/(前一低-前二低)+(qgwz2-qdwz2)+0.5;
B_1B01:=(前二低-前一低)/(qdwz1-qdwz2);
C_1B01:=A_1B01+qdwz2-qgwz2;
DRAWSL(U2,l,B_1B01[datacount],C_1B01[datacount],0),Colorgreen,LINEDOT;
DRAWSL(s2,h,0,A_1B01[datacount],0),colorgreen,LINEDOT;
end;
TJ_1B02:=前二低>前三低;
if TJ_1B02[SA1] then begin
A_1B02:=((前三高-前三低)*(qdwz3-qdwz2))/(前二低-前三低)+(qgwz3-qdwz3)+0.5;
B_1B02:=(前三低-前二低)/(qdwz2-qdwz3);
C_1B02:=A_1B02+qdwz3-qgwz3;
DRAWSL(U3,l,B_1B02[datacount],C_1B02[datacount],0),ColorFFFF66,LINEDOT;
DRAWSL(s3,h,0,A_1B02[datacount],0),ColorFFFF66,LINEDOT;
end;
TJ_1B03:=前三低>前四低;
if TJ_1B03[SA1] then begin
A_1B03:=((前四高-前四低)*(qdwz4-qdwz3))/(前三低-前四低)+(qgwz4-qdwz4)+0.5;
B_1B03:=(前四低-前三低)/(qdwz3-qdwz4);
C_1B03:=A_1B03+qdwz4-qgwz4;
DRAWSL(U4,l,B_1B03[datacount],C_1B03[datacount],0),ColorEEEEEE,LINEDOT;
DRAWSL(s4,h,0,A_1B03[datacount],0),ColorEEEEEE,LINEDOT;
end;
TJ_1B04:=前四低>前五低;
if TJ_1B04[SA1] then begin
A_1B04:=((前五高-前五低)*(qdwz5-qdwz4))/(前四低-前五低)+(qgwz5-qdwz5)+0.5;
B_1B04:=(前五低-前四低)/(qdwz4-qdwz5);
C_1B04:=A_1B04+qdwz5-qgwz5;
DRAWSL(U5,l,B_1B04[datacount],C_1B04[datacount],0),ColorFF9933,LINEDOT;
DRAWSL(s5,h,0,A_1B04[datacount],0),ColorFF9933,LINEDOT;
end;
TJ_1B05:=前五低>前六低;
if TJ_1B05[SA1] then begin
A_1B05:=((前六高-前六低)*(qdwz6-qdwz5))/(前五低-前六低)+(qgwz6-qdwz6)+0.5;
B_1B05:=(前六低-前五低)/(qdwz5-qdwz6);
C_1B05:=A_1B05+qdwz6-qgwz6;
DRAWSL(U6,l,B_1B05[datacount],C_1B05[datacount],0),Color0033CC,LINEDOT;
DRAWSL(s6,h,0,A_1B05[datacount],0),Color0033CC,LINEDOT;
end;
TJ_1B06:=前六低>前七低;
if TJ_1B06[SA1] then begin
A_1B06:=((前七高-前七低)*(qdwz7-qdwz6))/(前六低-前七低)+(qgwz7-qdwz7)+0.5;
B_1B06:=(前七低-前六低)/(qdwz6-qdwz7);
C_1B06:=A_1B06+qdwz7-qgwz7;
DRAWSL(U7,l,B_1B06[datacount],C_1B06[datacount],0),ColorCCFFFF,LINEDOT;
DRAWSL(s7,h,0,A_1B06[datacount],0),ColorCCFFFF,LINEDOT;
end;
TJ_1B07:=前七低>前八低;
if TJ_1B07[SA1] then begin
A_1B07:=((前八高-前八低)*(qdwz8-qdwz7))/(前七低-前八低)+(qgwz8-qdwz8)+0.5;
B_1B07:=(前八低-前七低)/(qdwz7-qdwz8);
C_1B07:=A_1B07+qdwz8-qgwz8;
DRAWSL(U8,l,B_1B07[datacount],C_1B07[datacount],0),Color00FFCC,LINEDOT;
DRAWSL(s8,h,0,A_1B07[datacount],0),Color00FFCC,LINEDOT;
end;
TJ_1B08:=前八低>前九低;
if TJ_1B08[SA1] then begin
A_1B08:=((前九高-前九低)*(qdwz9-qdwz8))/(前八低-前九低)+(qgwz9-qdwz9)+0.5;
B_1B08:=(前九低-前八低)/(qdwz8-qdwz9);
C_1B08:=A_1B08+qdwz9-qgwz9;
DRAWSL(U9,l,B_1B08[datacount],C_1B08[datacount],0),ColorFF0033,LINEDOT;
DRAWSL(s9,h,0,A_1B08[datacount],0),ColorFF0033,LINEDOT;
end;
TJ_1B09:=前九低>前十低;
if TJ_1B09[SA1] then begin
A_1B09:=((前十高-前十低)*(qdwz10-qdwz9))/(前九低-前十低)+(qgwz10-qdwz10)+0.5;
B_1B09:=(前十低-前九低)/(qdwz9-qdwz10);
C_1B09:=A_1B09+qdwz10-qgwz10;
DRAWSL(U10,l,B_1B09[datacount],C_1B09[datacount],0),Color3366FF,LINEDOT;
DRAWSL(s10,h,0,A_1B09[datacount],0),Color3366FF,LINEDOT;
end;
TJ_1B10:=前十低>前十一低;
if TJ_1B10[SA1] then begin
A_1B10:=((前十一高-前十一低)*(qdwz11-qdwz10))/(前十低-前十一低)+(qgwz11-qdwz11)+0.5;
B_1B10:=(前十一低-前十低)/(qdwz10-qdwz11);
C_1B10:=A_1B10+qdwz11-qgwz11;
DRAWSL(U11,l,B_1B10[datacount],C_1B10[datacount],0),ColorCC33CC,LINEDOT;
DRAWSL(s11,h,0,A_1B10[datacount],0),ColorCC33CC,LINEDOT;
end;
TJ_1B11:=前十一低>前十二低;
if TJ_1B11[SA1] then begin
A_1B11:=((前十二高-前十二低)*(qdwz12-qdwz11))/(前十一低-前十二低)+(qgwz12-qdwz12)+0.5;
B_1B11:=(前十二低-前十一低)/(qdwz11-qdwz12);
C_1B11:=A_1B11+qdwz12-qgwz12;
DRAWSL(U12,l,B_1B11[datacount],C_1B11[datacount],0),ColorFF9933,LINEDOT;
DRAWSL(s12,h,0,A_1B11[datacount],0),ColorFF9933,LINEDOT;
end;
TJ_1B12:=前十二低>前十三低;
if TJ_1B12[SA1] then begin
A_1B12:=((前十三高-前十三低)*(qdwz13-qdwz12))/(前十二低-前十三低)+(qgwz13-qdwz13)+0.5;
B_1B12:=(前十三低-前十二低)/(qdwz12-qdwz13);
C_1B12:=A_1B12+qdwz13-qgwz13;
DRAWSL(U13,l,B_1B12[datacount],C_1B12[datacount],0),Coloryellow,LINEDOT;
DRAWSL(s13,h,0,A_1B12[datacount],0),Coloryellow,LINEDOT;
end;
TJ_1B13:=前十三低>前十四低;
if TJ_1B13[SA1] then begin
A_1B13:=((前十四高-前十四低)*(qdwz14-qdwz13))/(前十三低-前十四低)+(qgwz14-qdwz14)+0.5;
B_1B13:=(前十四低-前十三低)/(qdwz13-qdwz14);
C_1B13:=A_1B13+qdwz14-qgwz14;
DRAWSL(U14,l,B_1B13[datacount],C_1B13[datacount],0),ColorFFCC00,LINEDOT;
DRAWSL(s14,h,0,A_1B13[datacount],0),ColorFFCC00,LINEDOT;
end;
end;
if TJ1[SA1]=1 then begin
TJ_2A01:=前一低>前二低;
if TJ_2A01[SA1] then begin
A_2A01:=((前一高-前二低)*(qdwz2-qdwz1))/(前一低-前二低)+(qgwz1-qdwz2)+0.5;
B_2A01:=(前一低-前二低)/(qdwz2-qdwz1);
C_2A01:=A_2A01+qdwz2-qgwz1;
DRAWSL(U2,l,B_2A01[datacount],C_2A01[datacount],0),Colorgreen,LINEDOT;
DRAWSL(s1,h,0,A_2A01[datacount],0),colorgreen,LINEDOT;
end;
TJ_2A02:=前二低>前三低;
if TJ_2A02[SA1] then begin
A_2A02:=((前二高-前三低)*(qdwz3-qdwz2))/(前二低-前三低)+(qgwz2-qdwz3)+0.5;
B_2A02:=(前二低-前三低)/(qdwz3-qdwz2);
C_2A02:=A_2A02+qdwz3-qgwz2;
DRAWSL(U3,l,B_2A02[datacount],C_2A02[datacount],0),ColorFFFF66,LINEDOT;
DRAWSL(s2,h,0,A_2A02[datacount],0),ColorFFFF66,LINEDOT;
end;
TJ_2A03:=前三低>前四低;
if TJ_2A03[SA1] then begin
A_2A03:=((前三高-前四低)*(qdwz4-qdwz3))/(前三低-前四低)+(qgwz3-qdwz4)+0.5;
B_2A03:=(前三低-前四低)/(qdwz4-qdwz3);
C_2A03:=A_2A03+qdwz4-qgwz3;
DRAWSL(U4,l,B_2A03[datacount],C_2A03[datacount],0),ColorFFFF00,LINEDOT;
DRAWSL(s3,h,0,A_2A03[datacount],0),ColorFFFF00,LINEDOT;
end;
TJ_2A04:=前四低>前五低;
if TJ_2A04[SA1] then begin
A_2A04:=((前四高-前五低)*(qdwz5-qdwz4))/(前四低-前五低)+(qgwz4-qdwz5)+0.5;
B_2A04:=(前四低-前五低)/(qdwz5-qdwz4);
C_2A04:=A_2A04+qdwz5-qgwz4;
DRAWSL(U5,l,B_2A04[datacount],C_2A04[datacount],0),ColorDDDDDD,LINEDOT;
DRAWSL(s4,h,0,A_2A04[datacount],0),ColorDDDDDD,LINEDOT;
end;
TJ_2A05:=前五低>前六低;
if TJ_2A05[SA1] then begin
A_2A05:=((前五高-前六低)*(qdwz6-qdwz5))/(前五低-前六低)+(qgwz5-qdwz6)+0.5;
B_2A05:=(前五低-前六低)/(qdwz6-qdwz5);
C_2A05:=A_2A05+qdwz6-qgwz5;
DRAWSL(U6,l,B_2A05[datacount],C_2A05[datacount],0),Color00CC33,LINEDOT;
DRAWSL(s5,h,0,A_2A05[datacount],0),Color00CC33,LINEDOT;
end;
TJ_2A06:=前六低>前七低;
if TJ_2A06[SA1] then begin
A_2A06:=((前六高-前七低)*(qdwz7-qdwz6))/(前六低-前七低)+(qgwz6-qdwz7)+0.5;
B_2A06:=(前六低-前七低)/(qdwz7-qdwz6);
C_2A06:=A_2A06+qdwz7-qgwz6;
DRAWSL(U7,l,B_2A06[datacount],C_2A06[datacount],0),Color009900,LINEDOT;
DRAWSL(s6,h,0,A_2A06[datacount],0),Color009900,LINEDOT;
end;
TJ_2A07:=前七低>前八低;
if TJ_2A07[SA1] then begin
A_2A07:=((前七高-前八低)*(qdwz8-qdwz7))/(前七低-前八低)+(qgwz7-qdwz8)+0.5;
B_2A07:=(前七低-前八低)/(qdwz8-qdwz7);
C_2A07:=A_2A07+qdwz8-qgwz7;
DRAWSL(U8,l,B_2A07[datacount],C_2A07[datacount],0),Color669999,LINEDOT;
DRAWSL(s7,h,0,A_2A07[datacount],0),Color669999,LINEDOT;
end;
TJ_2A08:=前八低>前九低;
if TJ_2A08[SA1] then begin
A_2A08:=((前八高-前九低)*(qdwz9-qdwz8))/(前八低-前九低)+(qgwz8-qdwz9)+0.5;
B_2A08:=(前八低-前九低)/(qdwz9-qdwz8);
C_2A08:=A_2A08+qdwz9-qgwz8;
DRAWSL(U9,l,B_2A08[datacount],C_2A08[datacount],0),ColorDDDDDD,LINEDOT;
DRAWSL(s8,h,0,A_2A08[datacount],0),ColorDDDDDD,LINEDOT;
end;
TJ_2A09:=前九低>前十低;
if TJ_2A09[SA1] then begin
A_2A09:=((前九高-前十低)*(qdwz10-qdwz9))/(前九低-前十低)+(qgwz9-qdwz10)+0.5;
B_2A09:=(前九低-前十低)/(qdwz10-qdwz9);
C_2A09:=A_2A09+qdwz10-qgwz9;
DRAWSL(U10,l,B_2A09[datacount],C_2A09[datacount],0),Color009999,LINEDOT;
DRAWSL(s9,h,0,A_2A09[datacount],0),Color009999,LINEDOT;
end;
TJ_2A10:=前十低>前十一低;
if TJ_2A10[SA1] then begin
A_2A10:=((前十高-前十一低)*(qdwz11-qdwz10))/(前十低-前十一低)+(qgwz10-qdwz11)+0.5;
B_2A10:=(前十低-前十一低)/(qdwz11-qdwz10);
C_2A10:=A_2A10+qdwz11-qgwz10;
DRAWSL(U11,l,B_2A10[datacount],C_2A10[datacount],0),Color0000FF,LINEDOT;
DRAWSL(s10,h,0,A_2A10[datacount],0),Color0000FF,LINEDOT;
end;
TJ_2A11:=前十一低>前十二低;
if TJ_2A11[SA1] then begin
A_2A11:=((前十一高-前十二低)*(qdwz12-qdwz11))/(前十一低-前十二低)+(qgwz11-qdwz12)+0.5;
B_2A11:=(前十一低-前十二低)/(qdwz12-qdwz11);
C_2A11:=A_2A11+qdwz12-qgwz11;
DRAWSL(U12,l,B_2A11[datacount],C_2A11[datacount],0),Color00FF00,LINEDOT;
DRAWSL(s11,h,0,A_2A11[datacount],0),Color00FF00,LINEDOT;
end;
TJ_2A12:=前十二低>前十三低;
if TJ_2A12[SA1] then begin
A_2A12:=((前十二高-前十三低)*(qdwz13-qdwz12))/(前十二低-前十三低)+(qgwz12-qdwz13)+0.5;
B_2A12:=(前十二低-前十三低)/(qdwz13-qdwz12);
C_2A12:=A_2A12+qdwz13-qgwz12;
DRAWSL(U13,l,B_2A12[datacount],C_2A12[datacount],0),ColorFF0000,LINEDOT;
DRAWSL(s12,h,0,A_2A12[datacount],0),ColorFF0000,LINEDOT;
end;
TJ_2A13:=前十三低>前十四低;
if TJ_2A13[SA1] then begin
A_2A13:=((前十三高-前十四低)*(qdwz14-qdwz13))/(前十三低-前十四低)+(qgwz13-qdwz14)+0.5;
B_2A13:=(前十三低-前十四低)/(qdwz14-qdwz13);
C_2A13:=A_2A13+qdwz14-qgwz13;
DRAWSL(U14,l,B_2A13[datacount],C_2A13[datacount],0),Color00FFFF,LINEDOT;
DRAWSL(s13,h,0,A_2A13[datacount],0),Color00FFFF,LINEDOT;
end;
TJ_2B01:=前一高<前二高;
if TJ_2B01[SA1] then begin
A_2B01:=((前二高-前二低)*(qgwz2-qgwz1))/(前二高-前一高)+(qdwz2-qgwz2)+0.5;
B_2B01:=-(前二高-前一高)/(qgwz2-qgwz1);
C_2B01:=A_2B01+qgwz2-qdwz2;
DRAWSL(s2,h,B_2B01[datacount],C_2B01[datacount],0),Colorred,LINEDOT;
DRAWSL(u2,l,0,A_2B01[datacount],0),colorred,LINEDOT;
end;
TJ_2B02:=前二高<前三高;
if TJ_2B02[SA1] then begin
A_2B02:=((前三高-前三低)*(qgwz3-qgwz2))/(前三高-前二高)+(qdwz3-qgwz3)+0.5;
B_2B02:=-(前三高-前二高)/(qgwz3-qgwz2);
C_2B02:=A_2B02+qgwz3-qdwz3;
DRAWSL(s3,h,B_2B02[datacount],C_2B02[datacount],0),colorFF00FF,LINEDOT;
DRAWSL(u3,l,0,A_2B02[datacount],0),colorFF00FF,LINEDOT;
end;
TJ_2B03:=前三高<前四高;
if TJ_2B03[SA1] then begin
A_2B03:=((前四高-前四低)*(qgwz4-qgwz3))/(前四高-前三高)+(qdwz4-qgwz4)+0.5;
B_2B03:=-(前四高-前三高)/(qgwz4-qgwz3);
C_2B03:=A_2B03+qgwz4-qdwz4;
DRAWSL(s4,h,B_2B03[datacount],C_2B03[datacount],0),color00FFFF,LINEDOT;
DRAWSL(u4,l,0,A_2B03[datacount],0),color00FFFF,LINEDOT;
end;
TJ_2B04:=前四高<前五高;
if TJ_2B04[SA1] then begin
A_2B04:=((前五高-前五低)*(qgwz5-qgwz4))/(前五高-前四高)+(qdwz5-qgwz5)+0.5;
B_2B04:=-(前五高-前四高)/(qgwz5-qgwz4);
C_2B04:=A_2B04+qgwz5-qdwz5;
DRAWSL(s5,h,B_2B04[datacount],C_2B04[datacount],0),color0066FF,LINEDOT;
DRAWSL(u5,l,0,A_2B04[datacount],0),color0066FF,LINEDOT;
end;
TJ_2B05:=前五高<前六高;
if TJ_2B05[SA1] then begin
A_2B05:=((前六高-前六低)*(qgwz6-qgwz5))/(前六高-前五高)+(qdwz6-qgwz6)+0.5;
B_2B05:=-(前六高-前五高)/(qgwz6-qgwz5);
C_2B05:=A_2B05+qgwz6-qdwz6;
DRAWSL(s6,h,B_2B05[datacount],C_2B05[datacount],0),color993333,LINEDOT;
DRAWSL(u6,l,0,A_2B05[datacount],0),color993333,LINEDOT;
end;
TJ_2B06:=前六高<前七高;
if TJ_2B06[SA1] then begin
A_2B06:=((前七高-前七低)*(qgwz7-qgwz6))/(前七高-前六高)+(qdwz7-qgwz7)+0.5;
B_2B06:=-(前七高-前六高)/(qgwz7-qgwz6);
C_2B06:=A_2B06+qgwz7-qdwz7;
DRAWSL(s7,h,B_2B06[datacount],C_2B06[datacount],0),colorCC99CC,LINEDOT;
DRAWSL(u7,l,0,A_2B06[datacount],0),colorCC99CC,LINEDOT;
end;
TJ_2B07:=前七高<前八高;
if TJ_2B07[SA1] then begin
A_2B07:=((前八高-前八低)*(qgwz8-qgwz7))/(前八高-前七高)+(qdwz8-qgwz8)+0.5;
B_2B07:=-(前八高-前七高)/(qgwz8-qgwz7);
C_2B07:=A_2B07+qgwz8-qdwz8;
DRAWSL(s8,h,B_2B07[datacount],C_2B07[datacount],0),color339999,LINEDOT;
DRAWSL(u8,l,0,A_2B07[datacount],0),color339999,LINEDOT;
end;
TJ_2B08:=前八高<前九高;
if TJ_2B08[SA1] then begin
A_2B08:=((前九高-前九低)*(qgwz9-qgwz8))/(前九高-前八高)+(qdwz9-qgwz9)+0.5;
B_2B08:=-(前九高-前八高)/(qgwz9-qgwz8);
C_2B08:=A_2B08+qgwz9-qdwz9;
DRAWSL(s9,h,B_2B08[datacount],C_2B08[datacount],0),color0066FF,LINEDOT;
DRAWSL(u9,l,0,A_2B08[datacount],0),color0066FF,LINEDOT;
end;
TJ_2B09:=前九高<前十高;
if TJ_2B09[SA1] then begin
A_2B09:=((前十高-前十低)*(qgwz10-qgwz9))/(前十高-前九高)+(qdwz10-qgwz10)+0.5;
B_2B09:=-(前十高-前九高)/(qgwz10-qgwz9);
C_2B09:=A_2B09+qgwz10-qdwz10;
DRAWSL(s10,h,B_2B09[datacount],C_2B09[datacount],0),colorFFFF00,LINEDOT;
DRAWSL(u10,l,0,A_2B09[datacount],0),colorFFFF00,LINEDOT;
end;
TJ_2B10:=前十高<前十一高;
if TJ_2B10[SA1] then begin
A_2B10:=((前十一高-前十一低)*(qgwz11-qgwz10))/(前十一高-前十高)+(qdwz11-qgwz11)+0.5;
B_2B10:=-(前十一高-前十高)/(qgwz11-qgwz10);
C_2B10:=A_2B10+qgwz11-qdwz11;
DRAWSL(s11,h,B_2B10[datacount],C_2B10[datacount],0),colorFF00FF,LINEDOT;
DRAWSL(u11,l,0,A_2B10[datacount],0),colorFF00FF,LINEDOT;
end;
TJ_2B11:=前十一高<前十二高;
if TJ_2B11[SA1] then begin
A_2B11:=((前十二高-前十二低)*(qgwz12-qgwz11))/(前十二高-前十一高)+(qdwz12-qgwz12)+0.5;
B_2B11:=-(前十二高-前十一高)/(qgwz12-qgwz11);
C_2B11:=A_2B11+qgwz12-qdwz12;
DRAWSL(s12,h,B_2B11[datacount],C_2B11[datacount],0),color00CCCC,LINEDOT;
DRAWSL(u12,l,0,A_2B11[datacount],0),color00CCCC,LINEDOT;
end;
TJ_2B12:=前十二高<前十三高;
if TJ_2B12[SA1] then begin
A_2B12:=((前十三高-前十三低)*(qgwz13-qgwz12))/(前十三高-前十二高)+(qdwz13-qgwz13)+0.5;
B_2B12:=-(前十三高-前十二高)/(qgwz13-qgwz12);
C_2B12:=A_2B12+qgwz13-qdwz13;
DRAWSL(s13,h,B_2B12[datacount],C_2B12[datacount],0),color0066CC,LINEDOT;
DRAWSL(u13,l,0,A_2B12[datacount],0),color0066CC,LINEDOT;
end;
TJ_2B13:=前十三高<前十四高;
if TJ_2B13[SA1] then begin
A_2B13:=((前十四高-前十四低)*(qgwz14-qgwz13))/(前十四高-前十三高)+(qdwz14-qgwz14)+0.5;
B_2B13:=-(前十四高-前十三高)/(qgwz14-qgwz13);
C_2B13:=A_2B13+qgwz14-qdwz14;
DRAWSL(s14,h,B_2B13[datacount],C_2B13[datacount],0),colorDDDDDD,LINEDOT;
DRAWSL(u14,l,0,A_2B13[datacount],0),colorDDDDDD,LINEDOT;
end;
end;

非非小草儿

好好学习 认真领悟

宇宙祥云

好好学习天天向上

胖胖

HHHHHHHHHHHHHHHHHHHHHHH

金丝楠木

飞狐划线主图

liu9xuren

学习学习再学习

秋天的贝贝

好好学习天天向上

地狱涅槃

谢谢分享！！！！！！！！！！！！！！！

北纬三十度

顶。。。。。

郁金香盛开

看下才知道

郁金香盛开

有个图就好了,可以参考一下,是否管用

万花筒

在标题就注明是飞狐系股软用的，不会浪费时间，很好。

3388hcy

飞狐划线主图

好好女士

飞狐划线主图

一路不停

好好学习天天向上

股海男儿

飞狐划线主图

赚一点发发

学习学习再学习