相關標簽: 波神線怎么設置 、 波浪理論口訣 、 波神凱線手機版 、 波神凱線測線工具 、 解讀波神規律的八條線 、 波神凱線靠譜嗎 、 波神規律軟件多少錢 、 波神規律線mt4 、 波神規律教程 、 波神凱線軟件下載 、 波神凱線官網 、 波神凱線指標 、

?

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 ( 日=6OR 日=21)),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=7 AND ( 日=8 OR 日=15OR 日=23)),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=8 AND ( 日=8OR 日=15 OR 日=23)),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=9 AND ( 日=8 OR 日=15OR 日=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(DATE>=N高日,H1-LL*3.75001),COLORFF9999,LINEDOT;
空5線: PARTLINE(DATE>=N高日,H1-LL*4.15001),COLORMAGENTA;
PARTLINE(DATE>=N高日,H1-LL*4.80001),COLORRED,LINEDOT;
空7線: PARTLINE(DATE>=N高日,H1-LL*5.50001),COLORCYAN;
PARTLINE(DATE>=N高日,H1-LL*6.10001),COLORGREEN,LINEDOT;
空關門線: PARTLINE(DATE>=N高日,H1-LL*6.90001),LINETHICK1,COLORRED;
DRAWTEXT(DATE=DATE1,H1-LL*1.50801+0.002,空開門),color3333FF;
DRAWTEXT(DATE=DATE1,H1-LL*6.90001+0.002,空關門),color3333FF;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*1.50801+0.002,NUMTOSTR(H1-LL*1.50801,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*2.00001+0.002,NUMTOSTR(H1-LL*2.00001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*2.40001+0.002,NO.2 +NUMTOSTR(H1-LL*2.40001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*3.05001+0.002,NUMTOSTR(H1-LL*3.05001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*3.75001+0.002,NUMTOSTR(H1-LL*3.75001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*4.15001+0.002,NO.5 +NUMTOSTR(H1-LL*4.15001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*4.80001+0.002,NUMTOSTR(H1-LL*4.80001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*5.50001+0.002,NO.7 +NUMTOSTR(H1-LL*5.50001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*6.10001+0.002,NUMTOSTR(H1-LL*6.10001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*6.90001+0.002,NUMTOSTR(H1-LL*6.90001,2)),COLORAAAAAA,ALIGN2;
END;
高年:=ref(YEAR,BARSLAST(date=N高日));
高月:=ref(MONTH,BARSLAST(date=N高日));
高日:=ref(DAY,BARSLAST(date=N高日));
低年:=ref(YEAR,BARSLAST(date=N低日));
低月:=ref(MONTH,BARSLAST(date=N低日));
低日:=ref(DAY,BARSLAST(date=N低日));
DRAWTEXT(SYSPARAM(2)=BARPOS,H1,最近+NUMTOSTR(最近天,0)+天最高價日期:+NUMTOSTR(高年,0)+年+NUMTOSTR(高月,0)+月+NUMTOSTR(高日,0)+日+\n \n
+最近+NUMTOSTR(最近天,0)+天最低價日期:+NUMTOSTR(低年,0)+年+NUMTOSTR(低月,0)+月+NUMTOSTR(低日,0)+日),COLORFFAAAA,ALIGN4;
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;

喜歡顯示豎線的朋友可以把下面幾句話加在開頭.

月:=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 ( 日=6OR 日=21)),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=7 AND ( 日=8 OR 日=15OR 日=23)),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=8 AND ( 日=8OR 日=15 OR 日=23)),COLORAAAAAA,LINEDASHDOT;
VERTLINE(月=9 AND ( 日=8 OR 日=15OR 日=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;

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?