金融大预测之波神凯线最新山zhai版 波神凯线的使用体会 带箱体测量、下影线和单线测量的波神凯线 。包括全部测量方法,但要手动设置参数“测量”,对应关系为:1---单K线测量;2---箱体(三角)测量;3---下影线测量;默认为K线测量。具备设置取值周期、光标选点功能。 源码公布现将公式源码公布如下: {----------------------波神凯线源码----------------------------------} INPUT:最近天(5,1,360),测量(1,1,3); 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),linethick0; HH:=HHV(HIGH,N); LL:=LLV(LOW,N); VN:=N; {LAST1:=DATACOUNT;} 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; 多空天:IF(N低日<N高日,kkl,kkh),LINETHICK0; DATE1:IF(多空=1,N低日,N高日),LINETHICK0; hh:=ref(h,BARSLAST(DATE1=DATE)); HH2:=ref(H,BARSLAST(DATE1=DATE)-1); LL2:=ref(L,BARSLAST(DATE1=DATE)-1); hh31:=ref(o,BARSLAST(DATE1=DATE)); hh32:=ref(c,BARSLAST(DATE1=DATE)); hh3:=min(hh31,hh32); 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)); L1:=STRTONUM(NUMTOSTR(LLOW,2)); LL1:=if(测量=1,H1-L1,IF(测量=2 AND 多空=1,H2-L1,IF(测量=2 AND 多空<>1,H1-L2,IF(测量=3,H3-L1,H1-L1)))); LL:=STRTONUM(NUMTOSTR(LL1,2)); VERTLINE(DATE=DATE1),COLORFFAAAA,,LINETHICK2; DRAWTEXT(DATE=DATE1,SYSPARAM(4)*0.95,'起\n \n始\n \n线'),COLORFFFFFF; 起始至今天:BARSLAST(DATE1=DATE),COLORFFFF00,LINETHICK0; 涨幅:(C-REF(C,起始至今天))/REF(C,起始至今天)*100,COLORFFDDDD,LINETHICK0; IF 多空=1 THEN BEGIN {看多} 开门线: PARTLINE(DATE>=N低日,LL*1.50801 + L1),LINETHICK1,COLOREE99FF;; PARTLINE(DATE>=N低日,LL*2.00001 + L1),COLOR9999FF,LINEDOT; 多2线: PARTLINE(DATE>=N低日,LL*2.40001 + L1),COLORFFFF99,linethick1; PARTLINE(DATE>=N低日,LL*3.05001 + L1),COLOR99FF99,LINEDOT; PARTLINE(DATE>=N低日,LL*3.75001 + L1),COLORFF9999,LINEDOT; 多5线: PARTLINE(DATE>=N低日,LL*4.15001 + L1),COLORMAGENTA,linethick2,LINEDOT; PARTLINE(DATE>=N低日,LL*4.80001 + L1),COLORRED,LINEDOT; 多7线: PARTLINE(DATE>=N低日,LL*5.50001 + L1),COLORCYAN,linethick2; PARTLINE(DATE>=N低日,LL*6.10001 + L1),COLORGREEN,LINEDOT; PARTLINE(DATE>=N低日,LL*6.90001 + L1),LINETHICK1,COLORRED; DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*1.50801+0.002,NUMTOSTR(L1+LL*1.50801,2)),COLORAAAAAA,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*2.00001+0.002,NUMTOSTR(L1+LL*2.00001,2)),COLORAAAAAA,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*2.40001+0.002,'NO.2 '+NUMTOSTR(L1+LL*2.40001,2)),COLORAAAAAA,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*3.05001+0.002,NUMTOSTR(L1+LL*3.05001,2)),COLORAAAAAA,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*3.75001+0.002,NUMTOSTR(L1+LL*3.75001,2)),COLORAAAAAA,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*4.15001+0.002,'NO.5 '+NUMTOSTR(L1+LL*4.15001,2)),COLORAAAAAA,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*4.80001+0.002,NUMTOSTR(L1+LL*4.80001,2)),COLORAAAAAA,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*5.50001+0.002,'NO.7 '+NUMTOSTR(L1+LL*5.50001,2)),COLORAAAAAA,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*6.10001+0.002,NUMTOSTR(L1+LL*6.10001,2)),COLORAAAAAA,ALIGN2; DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*6.90001+0.002,NUMTOSTR(L1+LL*6.90001,2)),COLORAAAAAA,ALIGN2; DRAWTEXT(DATE=DATE1,LL*1.50801 + L1+0.002,'多开门'),colorred; DRAWTEXT(DATE=DATE1,LL*6.90001 + L1+0.002,'多关门'),colorred; END; ELSE BEGIN {看空} 空开门线: PARTLINE(DATE>=N高日,H1-LL*1.50801),LINETHICK1,COLOREE99FF; PARTLINE(DATE>=N高日,H1-LL*2.00001),COLOR9999FF,LINEDOT; 空2线: PARTLINE(DATE>=N高日,H1-LL*2.40001),COLORFFFF99; PARTLINE(DATE>=N高日,H1-LL*3.05001),COLOR99FF99,LINEDOT; PARTLINE(DAT |
