在前辈老师的公式上攒的,谢谢啦,叠加在主图上,电脑够快,屏幕够大,可以看着玩,没实际意义,否则就是浪费CPU.
建引用(Y_K主周)
周oo:IF(n=0,OPEN,REF(OPEN,0));
周cc:IF(n=0,CLOSE,REF(CLOSE,0);
周hh:IF(n=0,HIGH,REF(HIGH,0));
周ll:IF(n=0,LOW,REF(LOW,0));
主公式()
周oo:=CLOSE*0,LINETHICK; 周cc:=CLOSE*0,LINETHICK; 周hh:=CLOSE*0,LINETHICK; 周ll:=CLOSE*0,LINETHICK; 周da:=DATACOUNT;
for i3=0 to 30 DO BEGIN
Ni3:=NUMTOSTR(i3,0);
mo3:=STKINDI('','Y_K主周.周oo('+Ni3+')',0,7);
周oo[周da-i3] := mo3[周da];
mc3:=STKINDI('','Y_K主周.周cc('+Ni3+')',0,7);
周cc[周da-i3] := mc3[周da];
mh3:=STKINDI('','Y_K主周.周hh('+Ni3+')',0,7);
周hh[周da-i3] := mh3[周da];
ml3:=STKINDI('','Y_K主周.周ll('+Ni3+')',0,7);
周ll[周da-i3] := ml3[周da];
END;
ZQ1:=DATACOUNT-BARPOS;
ZQ2:=DATACOUNT-BARPOS+1;
周N:=SYSPARAM(3)-SYSPARAM(2)-18;
STICKLINE(ZQ2=(周N+9),SYSPARAM(4)*1.02,SYSPARAM(5)*0.98,210,0),COLOR002233,SHIFT0;//190
STICKLINE(ZQ2=(周N+9),SYSPARAM(4),SYSPARAM(5)*0.995,196,0),COLOR000509,SHIFT0;//190
TL1:=REFX(IF(ISLASTBAR,周LL,1),ZQ1);TL2:=REFX(LINEVALUE(ZQ2=2,周LL,REF(ZQ2,1)=2,REF(周LL,1),1,0),ZQ1);TL3:=REFX(LINEVALUE(ZQ2=3,周LL,REF(ZQ2,1)=3,REF(周LL,1),1,0),ZQ1);
TL4:=REFX(LINEVALUE(ZQ2=4,周LL,REF(ZQ2,1)=4,REF(周LL,1),1,0),ZQ1);TL5:=REFX(LINEVALUE(ZQ2=5,周LL,REF(ZQ2,1)=5,REF(周LL,1),1,0),ZQ1);TL6:=REFX(LINEVALUE(ZQ2=6,周LL,REF(ZQ2,1)=6,REF(周LL,1),1,0),ZQ1);
TL7:=REFX(LINEVALUE(ZQ2=7,周LL,REF(ZQ2,1)=7,REF(周LL,1),1,0),ZQ1);TL8:=REFX(LINEVALUE(ZQ2=8,周LL,REF(ZQ2,1)=8,REF(周LL,1),1,0),ZQ1);TL9:=REFX(LINEVALUE(ZQ2=9,周LL,REF(ZQ2,1)=9,REF(周LL,1),1,0),ZQ1);
TL10:=REFX(LINEVALUE(ZQ2=10,周LL,REF(ZQ2,1)=10,REF(周LL,1),1,0),ZQ1);TL11:=REFX(LINEVALUE(ZQ2=11,周LL,REF(ZQ2,1)=11,REF(周LL,1),1,0),ZQ1);TL12:=REFX(LINEVALUE(ZQ2=12,周LL,REF(ZQ2,1)=12,REF(周LL,1),1,0),ZQ1);
TL13:=REFX(LINEVALUE(ZQ2=13,周LL,REF(ZQ2,1)=13,REF(周LL,1),1,0),ZQ1);TL14:=REFX(LINEVALUE(ZQ2=14,周LL,REF(ZQ2,1)=14,REF(周LL,1),1,0),ZQ1);TL15:=REFX(LINEVALUE(ZQ2=15,周LL,REF(ZQ2,1)=15,REF(周LL,1),1,0),ZQ1);
TL16:=REFX(LINEVALUE(ZQ2=16,周LL,REF(ZQ2,1)=16,REF(周LL,1),1,0),ZQ1);TL17:=REFX(LINEVALUE(ZQ2=17,周LL,REF(ZQ2,1)=17,REF(周LL,1),1,0),ZQ1);TL18:=REFX(LINEVALUE(ZQ2=18,周LL,REF(ZQ2,1)=18,REF(周LL,1),1,0),ZQ1);
TL19:=REFX(LINEVALUE(ZQ2=19,周LL,REF(ZQ2,1)=19,REF(周LL,1),1,0),ZQ1);TL20:=REFX(LINEVALUE(ZQ2=20,周LL,REF(ZQ2,1)=20,REF(周LL,1),1,0),ZQ1);
TH1:=REFX(IF(ISLASTBAR,周hH,1),ZQ1);TH2:=REFX(LINEVALUE(ZQ2=2,周hH,REF(ZQ2,1)=2,REF(周hH,1),1,0),ZQ1);TH3:=REFX(LINEVALUE(ZQ2=3,周hH,REF(ZQ2,1)=3,REF(周hH,1),1,0),ZQ1);
TH4:=REFX(LINEVALUE(ZQ2=4,周hH,REF(ZQ2,1)=4,REF(周hH,1),1,0),ZQ1);TH5:=REFX(LINEVALUE(ZQ2=5,周hH,REF(ZQ2,1)=5,REF(周hH,1),1,0),ZQ1);TH6:=REFX(LINEVALUE(ZQ2=6,周hH,REF(ZQ2,1)=6,REF(周hH,1),1,0),ZQ1);
TH7:=REFX(LINEVALUE(ZQ2=7,周hH,REF(ZQ2,1)=7,REF(周hH,1),1,0),ZQ1);TH8:=REFX(LINEVALUE(ZQ2=8,周hH,REF(ZQ2,1)=8,REF(周hH,1),1,0),ZQ1);TH9:=REFX(LINEVALUE(ZQ2=9,周hH,REF(ZQ2,1)=9,REF(周hH,1),1,0),ZQ1);
TH10:=REFX(LINEVALUE(ZQ2=10,周hH,REF(ZQ2,1)=10,REF(周hH,1),1,0),ZQ1);TH11:=REFX(LINEVALUE(ZQ2=11,周hH,REF(ZQ2,1)=11,REF(周hH,1),1,0),ZQ1);TH12:=REFX(LINEVALUE(ZQ2=12,周hH,REF(ZQ2,1)=12,REF(周hH,1),1,0),ZQ1);
TH13:=REFX(LINEVALUE(ZQ2=13,周hH,REF(ZQ2,1)=13,REF(周hH,1),1,0),ZQ1);TH14:=REFX(LINEVALUE(ZQ2=14,周hH,REF(ZQ2,1)=14,REF(周hH,1),1,0),ZQ1);TH15:=REFX(LINEVALUE(ZQ2=15,周hH,REF(ZQ2,1)=15,REF(周hH,1),1,0),ZQ1);
TH16:=REFX(LINEVALUE(ZQ2=16,周hH,REF(ZQ2,1)=16,REF(周hH,1),1,0),ZQ1);TH17:=REFX(LINEVALUE(ZQ2=17,周hH,REF(ZQ2,1)=17,REF(周hH,1),1,0),ZQ1);TH18:=REFX(LINEVALUE(ZQ2=18,周hH,REF(ZQ2,1)=18,REF(周hH,1),1,0),ZQ1);
TH19:=REFX(LINEVALUE(ZQ2=19,周hH,REF(ZQ2,1)=19,REF(周hH,1),1,0),ZQ1);TH20:=REFX(LINEVALUE(ZQ2=20,周hH,REF(ZQ2,1)=20,REF(周hH,1),1,0),ZQ1);
To1:=REFX(IF(ISLASTBAR,周oo,1),ZQ1);To2:=REFX(LINEVALUE(ZQ2=2,周oo,REF(ZQ2,1)=2,REF(周oo,1),1,0),ZQ1);To3:=REFX(LINEVALUE(ZQ2=3,周oo,REF(ZQ2,1)=3,REF(周oo,1),1,0),ZQ1);
To4:=REFX(LINEVALUE(ZQ2=4,周oo,REF(ZQ2,1)=4,REF(周oo,1),1,0),ZQ1);To5:=REFX(LINEVALUE(ZQ2=5,周oo,REF(ZQ2,1)=5,REF(周oo,1),1,0),ZQ1);To6:=REFX(LINEVALUE(ZQ2=6,周oo,REF(ZQ2,1)=6,REF(周oo,1),1,0),ZQ1);
To7:=REFX(LINEVALUE(ZQ2=7,周oo,REF(ZQ2,1)=7,REF(周oo,1),1,0),ZQ1);To8:=REFX(LINEVALUE(ZQ2=8,周oo,REF(ZQ2,1)=8,REF(周oo,1),1,0),ZQ1);To9:=REFX(LINEVALUE(ZQ2=9,周oo,REF(ZQ2,1)=9,REF(周oo,1),1,0),ZQ1);
To10:=REFX(LINEVALUE(ZQ2=10,周oo,REF(ZQ2,1)=10,REF(周oo,1),1,0),ZQ1);To11:=REFX(LINEVALUE(ZQ2=11,周oo,REF(ZQ2,1)=11,REF(周oo,1),1,0),ZQ1);To12:=REFX(LINEVALUE(ZQ2=12,周oo,REF(ZQ2,1)=12,REF(周oo,1),1,0),ZQ1);
To13:=REFX(LINEVALUE(ZQ2=13,周oo,REF(ZQ2,1)=13,REF(周oo,1),1,0),ZQ1);To14:=REFX(LINEVALUE(ZQ2=14,周oo,REF(ZQ2,1)=14,REF(周oo,1),1,0),ZQ1);To15:=REFX(LINEVALUE(ZQ2=15,周oo,REF(ZQ2,1)=15,REF(周oo,1),1,0),ZQ1);
To16:=REFX(LINEVALUE(ZQ2=16,周oo,REF(ZQ2,1)=16,REF(周oo,1),1,0),ZQ1);To17:=REFX(LINEVALUE(ZQ2=17,周oo,REF(ZQ2,1)=17,REF(周oo,1),1,0),ZQ1);To18:=REFX(LINEVALUE(ZQ2=18,周oo,REF(ZQ2,1)=18,REF(周oo,1),1,0),ZQ1);
To19:=REFX(LINEVALUE(ZQ2=19,周oo,REF(ZQ2,1)=19,REF(周oo,1),1,0),ZQ1);To20:=REFX(LINEVALUE(ZQ2=20,周oo,REF(ZQ2,1)=20,REF(周oo,1),1,0),ZQ1);
Tc1:=REFX(IF(ISLASTBAR,周cc,1),ZQ1);Tc2:=REFX(LINEVALUE(ZQ2=2,周cc,REF(ZQ2,1)=2,REF(周cc,1),1,0),ZQ1);Tc3:=REFX(LINEVALUE(ZQ2=3,周cc,REF(ZQ2,1)=3,REF(周cc,1),1,0),ZQ1);
Tc4:=REFX(LINEVALUE(ZQ2=4,周cc,REF(ZQ2,1)=4,REF(周cc,1),1,0),ZQ1);Tc5:=REFX(LINEVALUE(ZQ2=5,周cc,REF(ZQ2,1)=5,REF(周cc,1),1,0),ZQ1);Tc6:=REFX(LINEVALUE(ZQ2=6,周cc,REF(ZQ2,1)=6,REF(周cc,1),1,0),ZQ1);
Tc7:=REFX(LINEVALUE(ZQ2=7,周cc,REF(ZQ2,1)=7,REF(周cc,1),1,0),ZQ1);Tc8:=REFX(LINEVALUE(ZQ2=8,周cc,REF(ZQ2,1)=8,REF(周cc,1),1,0),ZQ1);Tc9:=REFX(LINEVALUE(ZQ2=9,周cc,REF(ZQ2,1)=9,REF(周cc,1),1,0),ZQ1);
Tc10:=REFX(LINEVALUE(ZQ2=10,周cc,REF(ZQ2,1)=10,REF(周cc,1),1,0),ZQ1);Tc11:=REFX(LINEVALUE(ZQ2=11,周cc,REF(ZQ2,1)=11,REF(周cc,1),1,0),ZQ1);Tc12:=REFX(LINEVALUE(ZQ2=12,周cc,REF(ZQ2,1)=12,REF(周cc,1),1,0),ZQ1);
Tc13:=REFX(LINEVALUE(ZQ2=13,周cc,REF(ZQ2,1)=13,REF(周cc,1),1,0),ZQ1);Tc14:=REFX(LINEVALUE(ZQ2=14,周cc,REF(ZQ2,1)=14,REF(周cc,1),1,0),ZQ1);Tc15:=REFX(LINEVALUE(ZQ2=15,周cc,REF(ZQ2,1)=15,REF(周cc,1),1,0),ZQ1);
Tc16:=REFX(LINEVALUE(ZQ2=16,周cc,REF(ZQ2,1)=16,REF(周cc,1),1,0),ZQ1);Tc17:=REFX(LINEVALUE(ZQ2=17,周cc,REF(ZQ2,1)=17,REF(周cc,1),1,0),ZQ1);Tc18:=REFX(LINEVALUE(ZQ2=18,周cc,REF(ZQ2,1)=18,REF(周cc,1),1,0),ZQ1);
Tc19:=REFX(LINEVALUE(ZQ2=19,周cc,REF(ZQ2,1)=19,REF(周cc,1),1,0),ZQ1);Tc20:=REFX(LINEVALUE(ZQ2=20,周cc,REF(ZQ2,1)=20,REF(周cc,1),1,0),ZQ1);
STICKLINE(ZQ2=周n and Tc1>To1,Tc1,To1,8,0),COLOR000045;STICKLINE(ZQ2=周n and Tc1<To1,Tc1,To1,8,0),Color003300;STICKLINE(ZQ2=周n and Tc1>To1,Tl1,Th1,1,0),,COLOR00004f;STICKLINE(ZQ2=周n and Tc1<To1,Tl1,Th1,1,0),Color003500;
STICKLINE(ZQ2=(周N+1) and Tc2>To2,Tc2,To2,8,0),COLOR000045,;STICKLINE(ZQ2=(周N+1) and Tc2<To2,Tc2,To2,8,0),Color003300,;STICKLINE(ZQ2=(周N+1) and Tc2>To2,Tl2,Th2,1,0),,COLOR00004f,;STICKLINE(ZQ2=(周N+1) and Tc2<To2,Tl2,Th2,1,0),Color003500,;
STICKLINE(ZQ2=(周N+2) and Tc3>To3,Tc3,To3,8,0),COLOR000045,;STICKLINE(ZQ2=(周N+2) and Tc3<To3,Tc3,To3,8,0),Color003300,;STICKLINE(ZQ2=(周N+2) and Tc3>To3,Tl3,Th3,1,0),,COLOR00004f,;STICKLINE(ZQ2=(周N+2) and Tc3<To3,Tl3,Th3,1,0),Color003500,;
STICKLINE(ZQ2=(周N+3) and Tc4>To4,Tc4,To4,8,0),COLOR000045,;STICKLINE(ZQ2=(周N+3) and Tc4<To4,Tc4,To4,8,0),Color003300,;STICKLINE(ZQ2=(周N+3) and Tc4>To4,Tl4,Th4,1,0),,COLOR00004f,;STICKLINE(ZQ2=(周N+3) and Tc4<To4,Tl4,Th4,1,0),Color003 |