请高手老师帮忙能否把飞狐的魔力反转指标转成通达信指标下载 通达信源码

指标公式详细说明

魔力反转

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;

指标公式下载地址

上一指标公式：通道线+波段预测（源码 主图+副图 通达信 贴图）下载 通达信通道源码

下一指标公式：黑马买点（源码 副图 通达信 贴图）下载 通达信黑马指标

相关通达信公式推荐

指标公式下载注意

☉ 好公式网发布的指标公式主要用于软件技术面分析，仅供参考，勿用于实际操作，据此操作风险自负！

☉ 解压密码：www.goodgongshi.com 就是好公式网域名，希望大家看清楚，切勿输错。

☉ tnc和tni格式指标公式，仅可以用通达信软件引入使用，例如可以用通达信软件引入使用指标公式；

☉ tne格式指标公式，仅可以用通达信软件公式编辑器5.0版导入，高版本兼容低版本；

☉ fnc格式指标公式，可以用大智慧软件新一代高速行情分析系统股票软件使用，少部分可以用分析家软件引入使用；

☉ alg格式指标公式，仅仅可以用飞狐交易师软件引入使用；exp格式指标公式，仅可以用大智慧经典版软件引入使用；

☉ hxf格式指标公式，仅可以用同花顺软件引入使用。

☉ 如果您发现下载软件链接错误，请联系管理员报告错误。

☉ 好公式网欢迎各位网友帮忙宣传转发本站网址，有您的支持，我们会做得更好！

☉ 本文请高手老师帮忙能否把飞狐的魔力反转指标转成通达信指标下载 通达信源码仅供学习研究。