{----------------------波神凯线源码----------------------------------}
INPUT:最近天(5,1,360),测量(1,1,4);
DRAWGBK(C>0,COLORRGB(100,120,180),0,1);
当前月:=FRACPART(ROUND(当前日期/100)/100)*100;
月:=MONTH;日:=DAY;
VERTLINE(月=1 AND ( 日=25)),COLORFFFFFF,LINEDASHDOT;
VERTLINE(月=3 AND ( 日=20)),COLORFFFFFF,LINEDASHDOT;
VERTLINE(月=5 AND ( 日=12)),COLORFFFFFF,LINEDASHDOT;
VERTLINE(月=6 AND (日=14 )),COLORFFFFFF,LINEDASHDOT;
VERTLINE(月=7 AND ( 日=19 )),COLORFFFFFF,LINEDASHDOT;
VERTLINE(月=8 AND ( 日=6 )),COLORFFFFFF,LINEDASHDOT;
VERTLINE(月=9 AND ( 日=18 )),COLORFFFFFF,LINEDASHDOT;
VERTLINE(月=10 AND ( 日=31)),COLORFFFFFF,LINEDASHDOT;
VERTLINE(月=11 AND ( 日=28)),COLORFFFFFF,LINEDASHDOT;
VERTLINE(月=12 AND ( 日=31)),COLORFFFFFF,LINEDASHDOT;
VERTLINE(月=1 AND ( 日=6 OR 日=15 OR 日=21 )),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=2 AND ( 日=6 OR 日=15 OR 日=21 )),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=3 AND ( 日=6 OR 日=15 OR 日=21 )),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=4 AND ( 日=6 OR 日=15 OR 日=21 )),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=5 AND ( 日=6 OR 日=15 OR 日=21 )),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=6 AND ( 日=6 OR 日=21)),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=7 AND ( 日=8 OR 日=15 OR 日=23)),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=8 AND ( 日=8 OR 日=15 OR 日=23)),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=9 AND ( 日=8 OR 日=15 OR 日=23)),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=10 AND ( 日=8 OR 日=15 OR 日=23 )),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=11 AND ( 日=8 OR 日=15 OR 日=23)),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=12 AND ( 日=8 OR 日=15 OR 日=23 )),COLORAAAAAA,LINEDASHDOT;
N:=if(sysparam(1)=datacount,最近天,datacount-sysparam(1)+1);
HH:=HHV(HIGH,N);
LL:=LLV(LOW,N);
VN:=N;
IF VN>DATACOUNT THEN
VN=DATACOUNT+1;
FOR I=DATACOUNT DOWNTO DATACOUNT-VN+1 DO BEGIN
HH[I]:=HH[DATACOUNT];
LL[I]:=LL[DATACOUNT];
END;
TMP:=SETLBOUND(hh,DATACOUNT-VN+1);
TMP:=SETLBOUND(ll,DATACOUNT-VN+1);
KKH:=BARSLAST(H=HH);
KKL:=BARSLAST(L=LL);
N低日:=STRTONUM(NUMTOSTR(REF(DATE,KKL),0));
N高日:=STRTONUM(NUMTOSTR(REF(DATE,KKH),0));
多空:=IF(N低日>N高日,2,1),LINETHICK0;
DATE1:=IF(多空=1,N低日,N高日);
hh:=ref(h,BARSLAST(DATE1=DATE));
HH2:=IF(ref(h,barslast(DATE1=DATE))<REF(H,BARSLAST(DATE1=DATE)-1),ref(H,BARSLAST(DATE1=DATE)-1),IF(ref(h,barslast(DATE1=DATE))<REF(H,BARSLAST(DATE1=DATE)-2),REF(H,BARSLAST(DATE1=DATE)-2),ref(H,BARSLAST(DATE1=DATE)-1)));
LL2:=IF(ref(l,barslast(DATE1=DATE))>REF(l,BARSLAST(DATE1=DATE)-1),ref(l,BARSLAST(DATE1=DATE)-1),IF(ref(l,barslast(DATE1=DATE))>REF(l,BARSLAST(DATE1=DATE)-2),REF(l,BARSLAST(DATE1=DATE)-2),ref(l,BARSLAST(DATE1=DATE)-1)));
hh31:=ref(o,BARSLAST(DATE1=DATE));
hh32:=ref(c,BARSLAST(DATE1=DATE));
hh3:=min(hh31,hh32);
LL3:=max(hh31,hh32);
HH4:=if(多空=1,REF(L,barslast(DATE=N低日)),REF(H,barslast(DATE=N高日)));
LL4:=if(多空=1,REF(H,barslast(barpos=sysparam(1))),REF(L,barslast(barpos=sysparam(1))));
LLOW:=ref(LOW,BARSLAST(DATE1=DATE));
H1:=STRTONUM(NUMTOSTR(hh,2));
H2:=STRTONUM(NUMTOSTR(HH2,2));
L2:=STRTONUM(NUMTOSTR(LL2,2));
h3:=STRTONUM(NUMTOSTR(Hh3,2));
L3:=STRTONUM(NUMTOSTR(LL3,2));
H4:=STRTONUM(NUMTOSTR(HH4,2));
L4:=STRTONUM(NUMTOSTR(LL4,2));
L1:=STRTONUM(NUMTOSTR(LLOW,2));
LL1:=if(测量=1,H1-L1,IF(测量=2 AND 多空=1,H2-L1,IF(测量=2 AND 多空<>1,H1-L2,IF(测量=3 and 多空=1,H3-L1,IF(测量=3 and 多空<>1,H1-L3,IF(测量=4 and 多空=1,L4-H4,H4-L4))))));
LL:=STRTONUM(NUMTOSTR(LL1,2)),linethick0;
VERTLINE(BARPOS=SYSPARAM(1) AND 多空=1 AND 测量=4 AND H>=REF(H,1) AND H>=REFX(H,1) AND H>REF(H,2) AND H>REFX(H,2) ),COLORRED,LINEDOT;
DRAWTEXT(BARPOS=SYSPARAM(1) AND 多空=1 AND 测量=4 AND H>=REF(H,1) AND H>=REFX(H,1) AND H>REF(H,2) AND H>REFX(H,2),H*1.05,'←'),COLORYELLOW;
VERTLINE(BARPOS=SYSPARAM(1) AND 多空<>1 AND 测量=4 AND L<=REF(L,1) AND L<=REFX(L,1) AND L<REF(L,2) AND L<REFX(L,2) ),COLORRED,LINEDOT;
DRAWTEXT(BARPOS=SYSPARAM(1) AND 多空<>1 AND 测量=4 AND L<=REF(L,1) AND L<=REFX(L,1) AND L<REF(L,2) AND L<REFX(L,2),H*1.05,'←'),COLORYELLOW;
VERTLINE(DATE=DATE1),COLORFFAAAA,LINETHICK2;
DRAWTEXT(DATE=DATE1,SYSPARAM(4)*0.95,'起\n \n始\n \n线'),COLORFFFFFF;
IF 多空=1 THEN BEGIN
开门线: PARTLINE(DATE>N低日,LL*1.508 + L1),LINETHICK2,COLOREE99FF;;
PARTLINE(DATE>N低日,LL*2+ L1),COLOR9999FF,LINEDOT;
多2线: PARTLINE(DATE>N低日,LL*2.4 + L1),COLORFFFF99,linethick1;
PARTLINE(DATE>N低日,LL*3.05+ L1),COLOR99FF99,LINEDOT;
PARTLINE(DATE>N低日,LL*3.75+ L1),COLORFF9999,LINEDOT;
多5线: PARTLINE(DATE>N低日,LL*4.15 + L1),COLORMAGENTA,linethick2,LINEDOT;
PARTLINE(DATE>N低日,LL*4.8+ L1),COLORRED,LINEDOT;
多7线: PARTLINE(DATE>N低日,LL*5.5+ L1),COLORCYAN,linethick2;
PARTLINE(DATE>N低日,LL*6.1 + L1),COLORGREEN,LINEDOT;
多关门线: PARTLINE(DATE>N低日,LL*6.9+ L1),LINETHICK2,COLORRED;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*1.508+0.002,NUMTOSTR(L1+LL*1.508,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*2+0.002,NUMTOSTR(L1+LL*2,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*2.4+0.002,'NO.2 '+NUMTOSTR(L1+LL*2.4,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*3.05+0.002,NUMTOSTR(L1+LL*3.05,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*3.75+0.002,NUMTOSTR(L1+LL*3.75,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*4.15+0.002,'NO.5 '+NUMTOSTR(L1+LL*4.15,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*4.8+0.002,NUMTOSTR(L1+LL*4.8,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*5.5+0.002,'NO.7 '+NUMTOSTR(L1+LL*5.5,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*6.1+0.002,NUMTOSTR(L1+LL*6.1,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*6.9+0.002,NUMTOSTR(L1+LL*6.9,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(DATE=DATE1,LL*1.508+ L1+0.002,'多开门'),colorred;
DRAWTEXT(DATE=DATE1,LL*6.9+ L1+0.002,'多关门'),colorred;
END;
ELSE BEGIN
空开门线: PARTLINE(DATE>N高日,H1-LL*1.508),LINETHICK2,COLOREE99FF;
PARTLINE(DATE>N高日,H1-LL*2),COLOR9999FF,LINEDOT;
空2线: PARTLINE(DATE>N高日,H1-LL*2.4),COLORFFFF99;
PARTLINE(DATE>N高日,H1-LL*3.05),COLOR99FF99,LINEDOT;
PARTLINE(DATE>N高日,H1-LL*3.75),COLORFF9999,LINEDOT;
空5线: PARTLINE(DATE>N高日,H1-LL*4.15),COLORMAGENTA;
PARTLINE(DATE>N高日,H1-LL*4.8),COLORRED,LINEDOT;
空7线: PARTLINE(DATE>N高日,H1-LL*5.5),COLORCYAN;
PARTLINE(DATE>N高日,H1-LL*6.1),COLORGREEN,LINEDOT;
空关门线: PARTLINE(DATE>N高日,H1-LL*6.9),LINETHICK2,COLORRED;
DRAWTEXT(DATE=DATE1,H1-LL*1.508+0.002,'空开门'),color3333FF;
DRAWTEXT(DATE=DATE1,H1-LL*6.9+0.002,'空关门'),color3333FF;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*1.508+0.002,NUMTOSTR(H1-LL*1.50801,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*2+0.002,NUMTOSTR(H1-LL*2.00001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*2.4+0.002,'NO.2 '+NUMTOSTR(H1-LL*2.40001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*3.05+0.002,NUMTOSTR(H1-LL*3.05001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*3.75+0.002,NUMTOSTR(H1-LL*3.75001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*4.15+0.002,'NO.5 '+NUMTOSTR(H1-LL*4.15001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*4.8+0.002,NUMTOSTR(H1-LL*4.80001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*5.5+0.002,'NO.7 '+NUMTOSTR(H1-LL*5.50001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*6.1+0.002,NUMTOSTR(H1-LL*6.10001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*6.9+0.002,NUMTOSTR(H1-LL*6.90001,2)),COLORAAAAAA,ALIGN2;
END;
DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='1',c,NUMTOSTR(当前月,0)+'月转折日:6、15、21、*25\n \n \n \n '),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='2',c,NUMTOSTR(当前月,0)+'月转折日:6、15、21\n \n \n \n '),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='3',c,NUMTOSTR(当前月,0)+'月转折日:6、15、*20、21\n \n \n \n '),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='4',c,NUMTOSTR(当前月,0)+'月转折日:6、15、21\n \n \n \n '),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='5',c,NUMTOSTR(当前月,0)+'月转折日:6、*1 2、15、21\n \n \n \n '),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='6',c,NUMTOSTR(当前月,0)+'月转折日:6、*1 4、21\n \n \n \n '),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='7',c,NUMTOSTR(当前月,0)+'月转折日:8、15、*1 9、23\n \n \n \n '),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='8',c,NUMTOSTR(当前月,0)+'月转折日:*6、8、15、23\n \n \n \n '),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='9',c,NUMTOSTR(当前月,0)+'月转折日:8、15、*1 8、23\n \n \n \n '),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='10',c,NUMTOSTR(当前月,0)+'月转折日:8、15、23、*31\n \n \n \n '),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='11',c,NUMTOSTR(当前月,0)+'月转折日:8、15、23、*28\n \n \n \n '),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM(2)=BARPOS and NUMTOSTR(当前月,0)='12',c,NUMTOSTR(当前月,0)+'月转折日:8、15、23、*31\n \n \n \n '),COLOR00FFFF,ALIGN5;
{-----------------------------立体K线--------------------------------------}
Ko:=close;
Kc:=ref(close,1);
STICKLINE(ko<=kc ,CLOSE ,OPEN,8,0 ),COLOR008800;
STICKLINE(ko<=kc ,CLOSE ,OPEN,7,0 ),COLOR009900;
STICKLINE(ko<=kc ,CLOSE ,OPEN,6,0 ),COLOR00aa00;
STICKLINE(ko<=kc ,CLOSE ,OPEN,5,0 ),COLOR00bb00;
STICKLINE(ko<=kc,CLOSE ,OPEN,4,0 ),COLOR00cc00;
STICKLINE(ko<=kc,CLOSE ,OPEN,3,0 ),COLOR33dd00;
STICKLINE(ko<=kc,CLOSE ,OPEN,2,0 ),COLOR00ee00;
STICKLINE(ko<=kc,CLOSE ,OPEN,1,0 ),COLOR66ff00;STICKLINE(ko>kc,CLOSE,OPEN,8,0 ),COLOr000088;
STICKLINE(ko>kc,CLOSE,OPEN,7,0 ),COLOr000099;
STICKLINE(ko>kc,CLOSE,OPEN,6 ,0 ),COLOR0000aa;
STICKLINE(ko>kc,CLOSE,OPEN,5,0 ),COLOr0000bb;
STICKLINE(ko>kc,CLOSE,OPEN,4,0 ),COLOr0000cc;
STICKLINE(ko>kc,CLOSE,OPEN,3 ,0 ),COLOR0000dd;
STICKLINE(ko>kc,CLOSE,OPEN,2,0 ),COLOr0000ee;
STICKLINE(ko>kc,CLOSE,OPEN,1 ,0 ),COLOR0033ff;STICKLINE(ko>kc,OPEN,LOW,0.5,0 ),COLORred;
STICKLINE(ko>kc,CLOSE,HIGH,0.5 ,0 ),COLORred;
STICKLINE(ko<=kc,CLOSE,LOW,0.5 ,0 ),COLOR66cc33;
STICKLINE(ko<=kc,OPEN,HIGH,0.5 ,0 ),COLOR66cc33;{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
