打印本文
關(guān)閉窗口
相關(guān)標(biāo)簽:
?
?
?
原理解析：
?
?來(lái)源:程序化99（ www.tumamayizhan.com ）
源碼：
?
?
?
INPUT:N(3,1,100);
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));H2:=D1 AND not(D2 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 and 前一低<ref(h,xtqkwz1);
ifTJ_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 and 前二低<ref(h,xtqkwz1) and xtqkwz1>qgwz1;
ifTJ_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 and 前三低<ref(h,xtqkwz1) and xtqkwz1>qgwz2;
ifTJ_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 and 前四低<ref(h,xtqkwz1) and xtqkwz1>qgwz3;
ifTJ_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:=前一高<前二高;
ifTJ_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:=前二高<前三高;
ifTJ_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:=前三高<前四高;
ifTJ_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:=前四高<前五高;
ifTJ_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:=前五高<前六高;
ifTJ_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:=前六高<前七高;
ifTJ_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:=前七高<前八高;
ifTJ_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:=前八高<前九高;
ifTJ_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:=前九高<前十高;
ifTJ_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:=前十高<前十一高;
ifTJ_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:=前十一高<前十二高;
ifTJ_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:=前十二高<前十三高;
ifTJ_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:=前十三高<前十四高;
ifTJ_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:=前一低>前二低;
ifTJ_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:=前二低>前三低;
ifTJ_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:=前三低>前四低;
ifTJ_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:=前四低>前五低;
ifTJ_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:=前五低>前六低;
ifTJ_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:=前六低>前七低;
ifTJ_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:=前七低>前八低;
ifTJ_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:=前八低>前九低;
ifTJ_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:=前九低>前十低;
ifTJ_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:=前十低>前十一低;
ifTJ_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:=前十一低>前十二低;
ifTJ_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:=前十二低>前十三低;
ifTJ_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:=前十三低>前十四低;
ifTJ_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:=前一低>前二低;
ifTJ_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:=前二低>前三低;
ifTJ_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:=前三低>前四低;
ifTJ_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:=前四低>前五低;
ifTJ_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:=前五低>前六低;
ifTJ_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:=前六低>前七低;
ifTJ_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:=前七低>前八低;
ifTJ_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:=前八低>前九低;
ifTJ_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:=前九低>前十低;
ifTJ_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:=前十低>前十一低;
ifTJ_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:=前十一低>前十二低;
ifTJ_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:=前十二低>前十三低;
ifTJ_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:=前十三低>前十四低;
ifTJ_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:=前一高<前二高;
ifTJ_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:=前二高<前三高;
ifTJ_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:=前三高<前四高;
ifTJ_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:=前四高<前五高;
ifTJ_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:=前五高<前六高;
ifTJ_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:=前六高<前七高;
ifTJ_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:=前七高<前八高;
ifTJ_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:=前八高<前九高;
ifTJ_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:=前九高<前十高;
ifTJ_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:=前十高<前十一高;
ifTJ_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:=前十一高<前十二高;
ifTJ_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:=前十二高<前十三高;
ifTJ_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:=前十三高<前十四高;
ifTJ_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;
?
公式導(dǎo)入教程: 【通達(dá)信公式源碼導(dǎo)入方法教程】 【同花順公式源碼導(dǎo)入方法教程】 【大智慧新一代公式源碼導(dǎo)入方法教程】
?