波神搏浪左腳進右腳出指標公式源碼

作者：飛狐來源：cxh99.com 發布時間：2021年05月10日

相關標簽:

原理解析：

當前月賦值:對CURRENTDATE/100(進行)四舍五入/100的小數部分*100

當滿足條件SYSPARAM(2)=BARPOSANDNUMTOS真實波幅='1'時,在收盤價位置書寫文字,ALIGN5,COLORFFFF

當滿足條件SYSPARAM(2)=BARPOSANDNUMTOS真實波幅='2'時,在收盤價位置書寫文字,ALIGN5,COLORFFFF

當滿足條件SYSPARAM(2)=BARPOSANDNUMTOS真實波幅='3'時,在收盤價位置書寫文字,ALIGN5,COLORFFFF

當滿足條件SYSPARAM(2)=BARPOSANDNUMTOS真實波幅='4'時,在收盤價位置書寫文字,ALIGN5,COLORFFFF

當滿足條件SYSPARAM(2)=BARPOSANDNUMTOS真實波幅='5'時,在收盤價位置書寫文字,ALIGN5,COLORFFFF

當滿足條件SYSPARAM(2)=BARPOSANDNUMTOS真實波幅='6'時,在收盤價位置書寫文字,ALIGN5,COLORFFFF

當滿足條件SYSPARAM(2)=BARPOSANDNUMTOS真實波幅='7'時,在收盤價位置書寫文字,ALIGN5,COLORFFFF

當滿足條件SYSPARAM(2)=BARPOSANDNUMTOS真實波幅='8'時,在收盤價位置書寫文字,ALIGN5,COLORFFFF

當滿足條件SYSPARAM(2)=BARPOSANDNUMTOS真實波幅='9'時,在收盤價位置書寫文字,ALIGN5,COLORFFFF

當滿足條件SYSPARAM(2)=BARPOSANDNUMTOS真實波幅='10'時,在收盤價位置書寫文字,ALIGN5,COLORFFFF

當滿足條件SYSPARAM(2)=BARPOSANDNUMTOS真實波幅='11'時,在收盤價位置書寫文字,ALIGN5,COLORFFFF

當滿足條件SYSPARAM(2)=BARPOSANDNUMTOS真實波幅='12'時,在收盤價位置書寫文字,ALIGN5,COLORFFFF

賦值:日期

前日期賦值:1日前的日期

HHDAY0賦值:SETVAL(BARPOS>2 AND 本周期日期>前日期,最高價,-本周期日期>前日期累加至2的天數+1,1日前的本周期日期>前日期累加至1的天數日內最高價的最高值)

LLDAY0賦值:SETVAL(BARPOS>2 AND 本周期日期>前日期,最低價,-本周期日期>前日期累加至2的天數+1,1日前的本周期日期>前日期累加至1的天數日內最低價的最低值)

HHDAY賦值:SETVAL(數據位置狀態=2,HHDAY0,-上次本周期日期>前日期距今天數,(上次本周期日期>前日期距今天數)+1日內最高價的最高值)

LLDAY賦值:SETVAL(數據位置狀態=2,LLDAY0,-上次本周期日期>前日期距今天數,(上次本周期日期>前日期距今天數)+1日內最低價的最低值)

賦值:HHDAY[DATACOUNT-1]

賦值:LLDAY[DATACOUNT-1]

END

N賦值:如果SYSPARAM(1)=DATACOUNT,返回最近天,否則返回DATACOUNT-SYSPARAM(1)+1

輸出K線測量范圍:N,線寬為0

HH賦值:N日內最高價的最高值

LL賦值:N日內最低價的最低值

VN賦值:N

條件判斷 VN>DATACOUNT THENVN=DATACOUNT+1

TJ賦值:收盤價

賦值:HH[DATACOUNT]

賦值:LL[DATACOUNT]

賦值:0

END

TMP賦值:SETLBOUND(33,DATACOUNT-VN+1)

TMP賦值:SETLBOUND(34,DATACOUNT-VN+1)

KKH賦值:首次最高價=HH距今天數

KKL賦值:首次最低價=LL距今天數

NLPOS賦值:STRTONUM(NUMTOSTR(KKL日前的BARPOS,0))

NHPOS賦值:STRTONUM(NUMTOSTR(KKH日前的BARPOS,0))

多空賦值:如果NLPOS>NHPOS,返回0,否則返回1

K1賦值:如果多空>=1,返回最低價精度1%之字轉向的前1個波谷位置,否則返回最高價精度1%之字轉向的前1個波峰位置

F1賦值:如果多空>=1,返回最高價精度2%之字轉向的前1個波峰位置,否則返回最低價精度2%之字轉向的前1個波谷位置

K2賦值:上次K1=0距今天數

K1LAST賦值:如果多空>=1,返回如果反向測量>=1,返回最高價精度3%之字轉向的前1個波峰位置,否則返回最低價精度3%之字轉向的前1個波谷位置,否則返回如果反向測量>=1,返回最低價精度3%之字轉向的前1個波谷位置,否則返回最高價精度3%之字轉向的前1個波峰位置

K2LAST賦值:如果BARPOS=DATACOUNT,返回K1LAST=0累加至近單線的天數,否則返回0

K3LAST賦值:若BARPOS=DATACOUNT則將最近K2LAST周期置為1

K4LAST賦值:如果K3LAST>0,返回1,否則返回-1

K5LAST賦值:K4LAST上穿0

F2賦值:上次F1=0距今天數

KK賦值:K2日前的BARPOS

FF賦值:F2日前的BARPOS

K4賦值:DATACOUNT-N+1

P1賦值:如果KK>=K4,返回1,否則返回-1

P2賦值:如果FF>=K4,返回1,否則返回-1

PK1賦值:P1上穿0

PK2賦值:P2上穿0

KTONOW1賦值:上次PK1距今天數

KTONOW2賦值:上次PK2距今天數

BBP賦值:KTONOW1日前的BARPOS

HH賦值:KTONOW1日前的最高價

HH2賦值:如果多空>=1,返回KTONOW2日前的最高價,否則返回KTONOW1日前的最高價

LL2賦值:如果多空>=1,返回KTONOW1日前的最低價,否則返回KTONOW2日前的最低價

LLOW賦值:KTONOW1日前的最低價

H1賦值:STRTONUM(NUMTOSTR(HH,2))

L1賦值:STRTONUM(NUMTOSTR(LLOW,2))

H2賦值:STRTONUM(NUMTOSTR(HH2,2))

L2賦值:STRTONUM(NUMTOSTR(LL2,2))

HE賦值:如果(全顯=-3OR全顯=3)ANDDATATYPE<6,返回KTONOW1日前的HHDAY,否則返回如果測量=1,返回H1,否則返回H2

LE賦值:如果(全顯=-3OR全顯=3)ANDDATATYPE<6,返回KTONOW1日前的LLDAY,否則返回如果測量=1,返回L1,否則返回L2

LL賦值:STRTONUM(NUMTOSTR(HE-LE,2))

HELAST賦值:上次K5LAST距今天數日前的最高價

LELAST賦值:上次K5LAST距今天數日前的最低價

LLLAST賦值:HELAST-LELAST

LIND1賦值:LE+LL*1.7856

LIND2賦值:LE+LL*2.9775

LIND3賦值:HE+LL*2.9775

LIND4賦值:LE+LL*4.764

LIND5賦值:HE+LL*4.764

LIND6賦值:LE+LL*6.5

LIND7賦值:LE+LL*7.7415

LIND8賦值:HE+LL*7.7415

LIND9賦值:LE+LL*10.5

LINK1賦值:HE-LL*1.7856

LINK2賦值:HE-LL*2.9775

LINK3賦值:LE-LL*2.9775

LINK4賦值:HE-LL*4.764

LINK5賦值:LE-LL*4.764

LINK6賦值:HE-LL*6.5

LINK7賦值:HE-LL*7.7415

LINK8賦值:LE-LL*7.7415

LINK9賦值:HE-LL*10.5

LINE1賦值:如果多空>=1,返回LIND1,否則返回LINK1

LINE2賦值:如果多空>=1,返回LIND2,否則返回LINK2

LINE3賦值:如果多空>=1,返回LIND3,否則返回LINK3

LINE4賦值:如果多空>=1,返回LIND4,否則返回LINK4

LINE5賦值:如果多空>=1,返回LIND5,否則返回LINK5

LINE6賦值:如果多空>=1,返回LIND6,否則返回LINK6

LINE7賦值:如果多空>=1,返回LIND7,否則返回LINK7

LINE8賦值:如果多空>=1,返回LIND8,否則返回LINK8

LINE9賦值:如果多空>=1,返回LIND9,否則返回LINK9

LASTDDX1賦值:LELAST+LLLAST*1.7856

LASTDDX2賦值:LELAST+LLLAST*2.9775

LASTDDX3賦值:HELAST+LLLAST*2.9775

LASTDDX4賦值:LELAST+LLLAST*4.764

LASTDDX5賦值:HELAST+LLLAST*4.764

LASTDDX6賦值:LELAST+LLLAST*6.5

LASTDDX7賦值:LELAST+LLLAST*7.7415

LASTDDX8賦值:HELAST+LLLAST*7.7415

LASTDDX9賦值:LELAST+LLLAST*10.5

LASTKDX1賦值:HELAST-LLLAST*1.7856

LASTKDX2賦值:HELAST-LLLAST*2.9775

LASTKDX3賦值:LELAST-LLLAST*2.9775

LASTKDX4賦值:HELAST-LLLAST*4.764

LASTKDX5賦值:LELAST-LLLAST*4.764

LASTKDX6賦值:HELAST-LLLAST*6.5

LASTKDX7賦值:HELAST-LLLAST*7.7415

LASTKDX8賦值:LELAST-LLLAST*7.7415

LASTKDX9賦值:HELAST-LLLAST*10.5

LASTDX1賦值:如果多空>=1,返回如果反向測量>=1,返回LASTKDX1,否則返回LASTDDX1,否則返回如果反向測量>=1,返回LASTDDX1,否則返回LASTKDX1

LASTDX2賦值:如果多空>=1,返回如果反向測量>=1,返回LASTKDX2,否則返回LASTDDX2,否則返回如果反向測量>=1,返回LASTDDX2,否則返回LASTKDX2

LASTDX3賦值:如果多空>=1,返回如果反向測量>=1,返回LASTKDX3,否則返回LASTDDX3,否則返回如果反向測量>=1,返回LASTDDX3,否則返回LASTKDX3

LASTDX4賦值:如果多空>=1,返回如果反向測量>=1,返回LASTKDX4,否則返回LASTDDX4,否則返回如果反向測量>=1,返回LASTDDX4,否則返回LASTKDX4

LASTDX5賦值:如果多空>=1,返回如果反向測量>=1,返回LASTKDX5,否則返回LASTDDX5,否則返回如果反向測量>=1,返回LASTDDX5,否則返回LASTKDX5

LASTDX6賦值:如果多空>=1,返回如果反向測量>=1,返回LASTKDX6,否則返回LASTDDX6,否則返回如果反向測量>=1,返回LASTDDX6,否則返回LASTKDX6

LASTDX7賦值:如果多空>=1,返回如果反向測量>=1,返回LASTKDX7,否則返回LASTDDX7,否則返回如果反向測量>=1,返回LASTDDX7,否則返回LASTKDX7

LASTDX8賦值:如果多空>=1,返回如果反向測量>=1,返回LASTKDX8,否則返回LASTDDX8,否則返回如果反向測量>=1,返回LASTDDX8,否則返回LASTKDX8

LASTDX9賦值:如果多空>=1,返回如果反向測量>=1,返回LASTKDX9,否則返回LASTDDX9,否則返回如果反向測量>=1,返回LASTDDX9,否則返回LASTKDX9

FILLRGN(BARPOS>=BBP,LINE2,LINE3),COLOR1A1010

FILLRGN(BARPOS>=BBP AND 如果全顯>0,返回1,否則返回如果精度3=0,返回1,否則返回如果多空,返回STRTONUM(NUMTOSTR(LINE5,2))<=(STRTONUM(NUMTOSTR(如果反向測量>=1,返回LASTDX1,否則返回LASTDX9,2))),否則返回STRTONUM(NUMTOSTR(LINE5,2))>=(STRTONUM(NUMTOSTR(如果反,返回?,否則返回?,LINE5,LINE6),COLOR1A1010

FILLRGN(BARPOS>=BBP AND 如果全顯>0,返回1,否則返回如果精度3=0,返回1,否則返回如果多空,返回STRTONUM(NUMTOSTR(LINE7,2))<=(STRTONUM(NUMTOSTR(如果反向測量>=1,返回LASTDX1,否則返回LASTDX9,2))),否則返回STRTONUM(NUMTOSTR(LINE7,2))>=(STRTONUM(NUMTOSTR(如果反,返回?,否則返回?,LINE7,LINE8),COLOR1A1010

FILLRGN(BARPOS>=BBP AND 如果全顯>0,返回1,否則返回如果精度3=0,返回1,否則返回如果多空,返回STRTONUM(NUMTOSTR(LINE8,2))<=(STRTONUM(NUMTOSTR(如果反向測量>=1,返回LASTDX1,否則返回LASTDX9,2))),否則返回STRTONUM(NUMTOSTR(LINE8,2))>=(STRTONUM(NUMTOSTR(如果反,返回?,否則返回?,LINE8,LINE9),COLOR2A1A10

FILLRGN(K3LAST>0,LASTDX2,LASTDX3),COLOR553333

FILLRGN(K3LAST>0,LASTDX5,LASTDX6),COLOR553333

FILLRGN(K3LAST>0,LASTDX7,LASTDX8),COLOR553333

FILLRGN(K3LAST>0,LASTDX8,LASTDX9),COLOR885533

PARTLINE(BARPOS>=BBP,LINE1),LINEDOT,COLOREE99FF

PARTLINE(BARPOS>=BBP,LINE2),LINEDOT,COLOR66CC99

PARTLINE(BARPOS>=BBP,LINE2+(LINE3-LINE2)/2),LINEDOT,COLOR808080

PARTLINE(BARPOS>=BBP,LINE3),LINEDOT,COLOR808080

PARTLINE(BARPOS>=BBP AND 如果全顯>0,返回1,否則返回如果精度3=0,返回1,否則返回如果多空,返回STRTONUM(NUMTOSTR(LINE4,2))<=(STRTONUM(NUMTOSTR(如果反向測量>=1,返回LASTDX1,否則返回LASTDX9,2))),否則返回STRTONUM(NUMTOSTR(LINE4,2))>=(STRTONUM(NUMTOSTR(如果反,返回?,否則返回?,LINE4),LINEDOT,COLOR66CC99

PARTLINE(BARPOS>=BBP AND 如果全顯>0,返回1,否則返回如果精度3=0,返回1,否則返回如果多空,返回STRTONUM(NUMTOSTR(LINE5,2))<=(STRTONUM(NUMTOSTR(如果反向測量>=1,返回LASTDX1,否則返回LASTDX9,2))),否則返回STRTONUM(NUMTOSTR(LINE5,2))>=(STRTONUM(NUMTOSTR(如果反,返回?,否則返回?,LINE5),LINEDOT,COLOR808080

PARTLINE(BARPOS>=BBP AND 如果全顯>0,返回1,否則返回如果精度3=0,返回1,否則返回如果多空,返回STRTONUM(NUMTOSTR(LINE7,2))<=(STRTONUM(NUMTOSTR(如果反向測量>=1,返回LASTDX1,否則返回LASTDX9,2))),否則返回STRTONUM(NUMTOSTR(LINE7,2))>=(STRTONUM(NUMTOSTR(如果反,返回?,否則返回?,LINE7),LINEDOT,COLOR66CC99

PARTLINE(BARPOS>=BBP AND 如果全顯>0,返回1,否則返回如果精度3=0,返回1,否則返回如果多空,返回STRTONUM(NUMTOSTR(LINE8,2))<=(STRTONUM(NUMTOSTR(如果反向測量>=1,返回LASTDX1,否則返回LASTDX9,2))),否則返回STRTONUM(NUMTOSTR(LINE8,2))>=(STRTONUM(NUMTOSTR(如果反,返回?,否則返回?,LINE9),LINEDOT,COLOR8080

PARTLINE(K3LAST>0,LASTDX1),LINEDOT,COLORFFFF

PARTLINE(K3LAST>0,LASTDX4),LINEDOT,COLOR7280FA

VERTLINE(測量>1 AND PK2 AND (全顯不等于3 AND 全顯不等于-3 OR DATATYPE>=6)),LINEDOT,COLOR338833

VERTLINE(BARPOS=BBP),LINEDOT,COLOR885533

BEGINTM2賦值:8

TPK1賦值:如果如果STARTED=0,返回多空,否則返回FORUP,返回最低價0.1%之字轉向的前1個波谷位置,否則返回最高價0.1%之字轉向的前1個波峰位置

TPK2賦值:若BARPOS=DATACOUNT則將最近如果BARPOS=DATACOUNT,返回TPK1=0累加至STARTED的天數,否則返回0周期置為1

KTPK1賦值:如果如果STARTED=0,返回多空,否則返回FORUP,返回最高價如果STARTED=0,返回TM2,否則返回0.1%之字轉向的前1個波峰位置,否則返回最低價如果STARTED=0,返回TM2,否則返回0.1%之字轉向的前1個波谷位置

DDD賦值:(首次KTPK1=0ANDREF(BARPOS,上次KTPK1=0距今天數)>上次PK1距今天數日前的BARPOS距今天數)=0

KTPK2賦值:若BARPOS=DATACOUNT則將最近如果BARPOS=DATACOUNT,返回KTPK1=0累加至ENDED的天數,否則返回0周期置為1

T1賦值:STRTONUM(NUMTOSTR(如果STARTED=0,返回上次PK1距今天數,否則返回首次TPK2距今天數日前的BARPOS,0))

T2賦值:STRTONUM(NUMTOSTR(如果STARTED=0,返回上次DDD距今天數,否則返回首次KTPK2距今天數日前的BARPOS,0))

PC賦值:T2-T1

A賦值:收盤價

B賦值:收盤價

賦值:0

END

J賦值:3

TT2賦值:0

TT1賦值:0

TEM1賦值:T1

TEM2賦值:T2

BEGINTT1賦值:TEM1+PC*1/5的開方*((1+5的開方)/2的J乘冪-(1-5的開方)/2的J乘冪)+0.9的整數部分

TT2賦值:TEM2+PC*1/5的開方*((1+5的開方)/2的J乘冪-(1-5的開方)/2的J乘冪)+0.9的整數部分

條件判斷 TT1>DATACOUNT OR TT1<0 THENBREAK

賦值:1

條件判斷 TT2>DATACOUNT OR TT2<0 THENBREAK

賦值:1

THENJ賦值:J+1

BEGINJ賦值:3

PC賦值:TT2-TT1

TEM1賦值:TT1

TEM2賦值:TT2

END

條件判斷 TT1-DATACOUNT=1 THENVERTLINE(BARPOS=DATACOUNT),POINTDOT,SHIFT1,COLOR808080

條件判斷 TT2-DATACOUNT=1 THENVERTLINE(BARPOS=DATACOUNT),POINTDOT,SHIFT1,COLOR303030

條件判斷 TT1-DATACOUNT=2 THENVERTLINE(BARPOS=DATACOUNT),POINTDOT,SHIFT2,COLOR808080

條件判斷 TT2-DATACOUNT=2 THENVERTLINE(BARPOS=DATACOUNT),POINTDOT,SHIFT2,COLOR303030

條件判斷 TT1-DATACOUNT=3 THENVERTLINE(BARPOS=DATACOUNT),POINTDOT,SHIFT3,COLOR808080

條件判斷 TT2-DATACOUNT=3 THENVERTLINE(BARPOS=DATACOUNT),POINTDOT,SHIFT3,COLOR303030

輸出DRAWTEXTEX(TT1-DATACOUNT和TT2-DATACOUNT的較大值>0 OR TT1-DATACOUNT和TT2-DATACOUNT的較小值>0,1,0,0,'NEXTIME:'+(NUMTOSTR(如果TT1-DATACOUNT和TT2-DATACOUNT的較小值<0,返回TT1-DATACOUNT和TT2-DATACOUNT的較大值,否則返回TT1-DATACOUNT和TT2-DATACOUNT的較小值,0))),COLOR808080

輸出DRAWTEXTEX(TT1-DATACOUNT>0,1,0,50,'NEARLY COMMING KEY_TIMELINE:'+NUMTOSTR(TT1-DATACOUNT,0)),COLORA0A0A0

VERTLINE(A=1),POINTDOT,COLOR505050

VERTLINE(B=1),POINTDOT,COLOR202020

條件判斷 FORUP AND STARTED>0 OR 多空 AND STARTED=0 THEN BEGINDRAWICON(BARPOS=T1,最低價*0.99,4)

當滿足條件BARPOS=T2時,在最高價*1.01位置畫5號圖標

END

ELSE BEGINDRAWICON(BARPOS=T1,最高價*1.01,5)

當滿足條件BARPOS=T2時,在最低價*0.99位置畫4號圖標

END

BEGINVAR2賦值:上次K5LAST距今天數

VAR3賦值:VAR2日前的大盤的收盤價/VAR2日前的收盤價

DPO賦值:大盤的開盤價/VAR3

DPH賦值:大盤的最高價/VAR3

DPL賦值:大盤的最低價/VAR3

DPC賦值:大盤的收盤價/VAR3

當滿足條件DPC>1日前的DPC時,在DPH和DPL位置之間畫柱狀線,寬度為0.1,0不為0則畫空心柱.,COLORC0C0C0

當滿足條件DPC>1日前的DPC時,在DPO和DPC位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,COLOR606060

當滿足條件DPC>1日前的DPC時,在DPO和DPC位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR909090

當滿足條件DPC>1日前的DPC時,在DPO和DPC位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLORB0B0B0

當滿足條件DPC<=1日前的DPC時,在DPH和DPL位置之間畫柱狀線,寬度為0.1,1不為0則畫空心柱.,COLOR808080

當滿足條件DPC<=1日前的DPC時,在DPO和DPC位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,COLOR202020

當滿足條件DPC<=1日前的DPC時,在DPO和DPC位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR404040

當滿足條件DPC<=1日前的DPC時,在DPO和DPC位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR606060

END

輸出如果全顯=3OR全顯=-3OR全顯=-2OR全顯=4,返回?,否則返回? AND DATATYPE<6 THEN BEGINDHHDAY:HHDAY,LINEDOT,COLOR660099

輸出DLLDAY:LLDAY,LINEDOT,COLORFF0000

當滿足條件BARPOS=BBP時,在如果多空,返回最低價*0.98,否則返回最高價*1.02位置書寫文字,COLOR707070

END

KO賦值:收盤價

KC賦值:1日前的收盤價

當滿足條件KO>KCAND(K3LAST>0OR精度3=0)時,在開盤價和最低價位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,COLOR2828FF

當滿足條件KO>KCAND(K3LAST>0OR精度3=0)時,在收盤價和最高價位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,COLOR2828FF

當滿足條件KO<=KCAND(K3LAST>0OR精度3=0)時,在收盤價和最低價位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,COLORFFFF22

當滿足條件KO<=KCAND(K3LAST>0OR精度3=0)時,在開盤價和最高價位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,COLORFFFF22

當滿足條件KO<=KCAND(K3LAST>0OR精度3=0)時,在收盤價和開盤價位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,COLORCC6600

當滿足條件KO<=KCAND(K3LAST>0OR精度3=0)時,在收盤價和開盤價位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLORFFFF11

當滿足條件KO>KCAND(K3LAST>0OR精度3=0)時,在收盤價和開盤價位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,COLOR440099

當滿足條件KO>KCAND(K3LAST>0OR精度3=0)時,在收盤價和開盤價位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR2828FF

當滿足條件KO>KCANDK3LAST=0AND精度3不等于0時,在開盤價和最低價位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,COLOR88

當滿足條件KO>KCANDK3LAST=0AND精度3不等于0時,在收盤價和最高價位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,COLOR88

當滿足條件KO<=KCANDK3LAST=0AND精度3不等于0時,在收盤價和最低價位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,COLOR886600

當滿足條件KO<=KCANDK3LAST=0AND精度3不等于0時,在開盤價和最高價位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,COLOR886600

當滿足條件KO<=KCANDK3LAST=0AND精度3不等于0時,在收盤價和開盤價位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,COLOR660000

當滿足條件KO<=KCANDK3LAST=0AND精度3不等于0時,在收盤價和開盤價位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR886600

當滿足條件KO>KCANDK3LAST=0AND精度3不等于0時,在收盤價和開盤價位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,COLOR66

當滿足條件KO>KCANDK3LAST=0AND精度3不等于0時,在收盤價和開盤價位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR88

條件判斷多空=1 OR 多空=0 THEN BEGINDRAWTEXT(BARPOS=BBP,LINE1,' '+NUMTOSTR(LINE1,2)+' [1]'),ALIGN2,COLORC0C0C0

當滿足條件BARPOS=BBP時,在LINE2位置書寫文字,ALIGN1,COLORC0C0C0

當滿足條件BARPOS=BBP時,在LINE2+(LINE3-LINE2)/2位置書寫文字,ALIGN2,COLORC0C0C0

當滿足條件BARPOS=BBP時,在LINE3位置書寫文字,ALIGN1,COLORC0C0C0

當滿足條件BARPOS=BBPANDIF(全顯>0,1,如果精度3=0,返回1,否則返回如果多空,返回STRTONUM(NUMTOSTR(LINE4,2))<=(STRTONUM(NUMTOSTR(如果反向測量>=1,返回LASTDX1,否則返回LASTDX9,2))),否則返回STRTONUM(NUMTOSTR(LINE4,2))>時,在(STRTONUM(NUMTOSTR(如果反向測量>=1,返回LASTDX1,否則返回LASTDX9,2))))))位置書寫文字,ALIGN2,COLORC0C0C0

當滿足條件BARPOS=BBPANDIF(全顯>0,1,如果精度3=0,返回1,否則返回如果多空,返回STRTONUM(NUMTOSTR(LINE5,2))<=(STRTONUM(NUMTOSTR(如果反向測量>=1,返回LASTDX1,否則返回LASTDX9,2))),否則返回STRTONUM(NUMTOSTR(LINE5,2))>時,在(STRTONUM(NUMTOSTR(如果反向測量>=1,返回LASTDX1,否則返回LASTDX9,2))))))位置書寫文字,ALIGN1,COLORC0C0C0

當滿足條件BARPOS=BBPANDIF(全顯>0,1,如果精度3=0,返回1,否則返回如果多空,返回STRTONUM(NUMTOSTR(LINE7,2))<=(STRTONUM(NUMTOSTR(如果反向測量>=1,返回LASTDX1,否則返回LASTDX9,2))),否則返回STRTONUM(NUMTOSTR(LINE7,2))>時,在(STRTONUM(NUMTOSTR(如果反向測量>=1,返回LASTDX1,否則返回LASTDX9,2))))))位置書寫文字,ALIGN1,COLORC0C0C0

當滿足條件BARPOS=BBPANDIF(全顯>0,1,如果精度3=0,返回1,否則返回如果多空,返回STRTONUM(NUMTOSTR(LINE8,2))<=(STRTONUM(NUMTOSTR(如果反向測量>=1,返回LASTDX1,否則返回LASTDX9,2))),否則返回STRTONUM(NUMTOSTR(LINE8,2))>時,在(STRTONUM(NUMTOSTR(如果反向測量>=1,返回LASTDX1,否則返回LASTDX9,2))))))位置書寫文字,ALIGN2,COLORC0C0C0

END

條件判斷精度3不等于0 AND (反向測量=1 OR 反向測量=0) THEN BEGINDRAWTEXT(K5LAST,LASTDX1,NUMTOSTR(LASTDX1,2)+' '),ALIGN2,COLORFFFFFF

當滿足條件K5LAST時,在LASTDX2和LASTDX3的較小值+(LASTDX3-LASTDX2的絕對值)/2位置書寫文字,ALIGN2,COLORFFFFFF

當滿足條件K5LAST時,在LASTDX4位置書寫文字,ALIGN2,COLORFFFFFF

當滿足條件K5LAST時,在LASTDX5和LASTDX6的較小值+(LASTDX6-LASTDX5的絕對值)/2位置書寫文字,ALIGN2,COLORFFFFFF

當滿足條件K5LAST時,在LASTDX7和LASTDX8的較小值+(LASTDX8-LASTDX7的絕對值)/2位置書寫文字,ALIGN2,COLORFFFFFF

當滿足條件K5LAST時,在LASTDX8和LASTDX9的較小值+(LASTDX9-LASTDX8的絕對值)/2位置書寫文字,ALIGN2,COLORFFFFFF

END

源碼：

當前月:=FRACPART(ROUND(CURRENTDATE/100)/100)*100;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(當前月,0)='1',CLOSE,NUMTOSTR(當前月,0)+'月轉折日:6、15、21、*25\n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(當前月,0)='2',CLOSE,NUMTOSTR(當前月,0)+'月轉折日:6、15、21\n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(當前月,0)='3',CLOSE,NUMTOSTR(當前月,0)+'月轉折日:6、15、*20、21\n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(當前月,0)='4',CLOSE,NUMTOSTR(當前月,0)+'月轉折日:6、15、21\n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(當前月,0)='5',CLOSE,NUMTOSTR(當前月,0)+'月轉折日:6、*1 2、15、21\n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(當前月,0)='6',CLOSE,NUMTOSTR(當前月,0)+'月轉折日:6、*1 4、21\n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(當前月,0)='7',CLOSE,NUMTOSTR(當前月,0)+'月轉折日:8、15、*1 9、23\n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(當前月,0)='8',CLOSE,NUMTOSTR(當前月,0)+'月轉折日:*6、8、15、23\n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(當前月,0)='9',CLOSE,NUMTOSTR(當前月,0)+'月轉折日:8、15、*1 8、23\n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(當前月,0)='10',CLOSE,NUMTOSTR(當前月,0)+'月轉折日:8、15、23、*31\n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(當前月,0)='11',CLOSE,NUMTOSTR(當前月,0)+'月轉折日:8、15、23、*28\n \n \n \n '),ALIGN5,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(當前月,0)='12',CLOSE,NUMTOSTR(當前月,0)+'月轉折日:8、15、23、*31\n \n \n \n '),ALIGN5,colorFFFF;
IF DATATYPE<6 THEN BEGIN
本周期日期:=DATE;
前日期:=REF(DATE,1);
HHDAY0:=SETVAL(BARPOS>2 AND 本周期日期>前日期,HIGH,-SUMBARS(本周期日期>前日期,2)+1,REF(HHV(HIGH,SUMBARS(本周期日期>前日期,1)),1));
LLDAY0:=SETVAL(BARPOS>2 AND 本周期日期>前日期,LOW,-SUMBARS(本周期日期>前日期,2)+1,REF(LLV(LOW,SUMBARS(本周期日期>前日期,1)),1));
HHDAY:=SETVAL(BARSTATUS=2,HHDAY0,-BARSLAST(本周期日期>前日期),HHV(HIGH,(BARSLAST(本周期日期>前日期))+1));
LLDAY:=SETVAL(BARSTATUS=2,LLDAY0,-BARSLAST(本周期日期>前日期),LLV(LOW,(BARSLAST(本周期日期>前日期))+1));
HHDAY[DATACOUNT]:=HHDAY[DATACOUNT-1];
LLDAY[DATACOUNT]:=LLDAY[DATACOUNT-1];
END;
N:=IF(SYSPARAM(1)=DATACOUNT,最近天,DATACOUNT-SYSPARAM(1)+1);
K線測量范圍:N,LINETHICK0;
HH:=HHV(HIGH,N);
LL:=LLV(LOW,N);
VN:=N;
IF VN>DATACOUNT THEN
VN=DATACOUNT+1;
TJ:=CLOSE;
FOR I=DATACOUNT DOWNTO DATACOUNT-VN+1 DO BEGIN
HH[I]:=HH[DATACOUNT];
LL[I]:=LL[DATACOUNT];
TJ[I]:=0;
END;
TMP:=SETLBOUND(33,DATACOUNT-VN+1);
TMP:=SETLBOUND(34,DATACOUNT-VN+1);
KKH:=BARSSINCE(HIGH=HH);
KKL:=BARSSINCE(LOW=LL);
NLPOS:=STRTONUM(NUMTOSTR(REF(BARPOS,KKL),0));
NHPOS:=STRTONUM(NUMTOSTR(REF(BARPOS,KKH),0));
多空:=IF(NLPOS>NHPOS,0,1);
K1:=IF(多空>=1,TROUGHBARS(2,精度1,1),PEAKBARS(1,精度1,1));
F1:=IF(多空>=1,PEAKBARS(1,精度2,1),TROUGHBARS(2,精度2,1));
K2:=BARSLAST(K1=0);
K1LAST:=IF(多空>=1,IF(反向測量>=1,PEAKBARS(1,精度3,1),TROUGHBARS(2,精度3,1)),IF(反向測量>=1,TROUGHBARS(2,精度3,1),PEAKBARS(1,精度3,1)));
K2LAST:=IF(BARPOS=DATACOUNT,SUMBARS(K1LAST=0,近單線),0);
K3LAST:=BACKSET(BARPOS=DATACOUNT,K2LAST);
K4LAST:=IF(K3LAST>0,1,-1);
K5LAST:=CROSS(K4LAST,0);
F2:=BARSLAST(F1=0);
KK:=REF(BARPOS,K2);
FF:=REF(BARPOS,F2);
K4:=DATACOUNT-N+1;
P1:=IF(KK>=K4,1,-1);
P2:=IF(FF>=K4,1,-1);
PK1:=CROSS(P1,0);
PK2:=CROSS(P2,0);
KTONOW1:=BARSLAST(PK1);
KTONOW2:=BARSLAST(PK2);
BBP:=REF(BARPOS,KTONOW1);
HH:=REF(HIGH,KTONOW1);
HH2:=IF(多空>=1,REF(HIGH,KTONOW2),REF(HIGH,KTONOW1));
LL2:=IF(多空>=1,REF(LOW,KTONOW1),REF(LOW,KTONOW2));
LLOW:=REF(LOW,KTONOW1);
H1:=STRTONUM(NUMTOSTR(HH,2));
L1:=STRTONUM(NUMTOSTR(LLOW,2));
H2:=STRTONUM(NUMTOSTR(HH2,2));
L2:=STRTONUM(NUMTOSTR(LL2,2));
HE:=IF((全顯=-3 OR 全顯=3) AND DATATYPE<6,REF(HHDAY,KTONOW1),IF(測量=1,H1,H2));
LE:=IF((全顯=-3 OR 全顯=3) AND DATATYPE<6,REF(LLDAY,KTONOW1),IF(測量=1,L1,L2));
LL:=STRTONUM(NUMTOSTR(HE-LE,2));
HELAST:=REF(HIGH,BARSLAST(K5LAST));
LELAST:=REF(LOW,BARSLAST(K5LAST));
LLLAST:=HELAST-LELAST;
LIND1:=LE+LL*1.7856;
LIND2:=LE+LL*2.9775;
LIND3:=HE+LL*2.9775;
LIND4:=LE+LL*4.764;
LIND5:=HE+LL*4.764;
LIND6:=LE+LL*6.5;
LIND7:=LE+LL*7.7415;
LIND8:=HE+LL*7.7415;
LIND9:=LE+LL*10.5;
LINK1:=HE-LL*1.7856;
LINK2:=HE-LL*2.9775;
LINK3:=LE-LL*2.9775;
LINK4:=HE-LL*4.764;
LINK5:=LE-LL*4.764;
LINK6:=HE-LL*6.5;
LINK7:=HE-LL*7.7415;
LINK8:=LE-LL*7.7415;
LINK9:=HE-LL*10.5;
LINE1:=IF(多空>=1,LIND1,LINK1);
LINE2:=IF(多空>=1,LIND2,LINK2);
LINE3:=IF(多空>=1,LIND3,LINK3);
LINE4:=IF(多空>=1,LIND4,LINK4);
LINE5:=IF(多空>=1,LIND5,LINK5);
LINE6:=IF(多空>=1,LIND6,LINK6);
LINE7:=IF(多空>=1,LIND7,LINK7);
LINE8:=IF(多空>=1,LIND8,LINK8);
LINE9:=IF(多空>=1,LIND9,LINK9);
LASTDDX1:=LELAST+LLLAST*1.7856;
LASTDDX2:=LELAST+LLLAST*2.9775;
LASTDDX3:=HELAST+LLLAST*2.9775;
LASTDDX4:=LELAST+LLLAST*4.764;
LASTDDX5:=HELAST+LLLAST*4.764;
LASTDDX6:=LELAST+LLLAST*6.5;
LASTDDX7:=LELAST+LLLAST*7.7415;
LASTDDX8:=HELAST+LLLAST*7.7415;
LASTDDX9:=LELAST+LLLAST*10.5;
LASTKDX1:=HELAST-LLLAST*1.7856;
LASTKDX2:=HELAST-LLLAST*2.9775;
LASTKDX3:=LELAST-LLLAST*2.9775;
LASTKDX4:=HELAST-LLLAST*4.764;
LASTKDX5:=LELAST-LLLAST*4.764;
LASTKDX6:=HELAST-LLLAST*6.5;
LASTKDX7:=HELAST-LLLAST*7.7415;
LASTKDX8:=LELAST-LLLAST*7.7415;
LASTKDX9:=HELAST-LLLAST*10.5;
LASTDX1:=IF(多空>=1,IF(反向測量>=1,LASTKDX1,LASTDDX1),IF(反向測量>=1,LASTDDX1,LASTKDX1));
LASTDX2:=IF(多空>=1,IF(反向測量>=1,LASTKDX2,LASTDDX2),IF(反向測量>=1,LASTDDX2,LASTKDX2));
LASTDX3:=IF(多空>=1,IF(反向測量>=1,LASTKDX3,LASTDDX3),IF(反向測量>=1,LASTDDX3,LASTKDX3));
LASTDX4:=IF(多空>=1,IF(反向測量>=1,LASTKDX4,LASTDDX4),IF(反向測量>=1,LASTDDX4,LASTKDX4));
LASTDX5:=IF(多空>=1,IF(反向測量>=1,LASTKDX5,LASTDDX5),IF(反向測量>=1,LASTDDX5,LASTKDX5));
LASTDX6:=IF(多空>=1,IF(反向測量>=1,LASTKDX6,LASTDDX6),IF(反向測量>=1,LASTDDX6,LASTKDX6));
LASTDX7:=IF(多空>=1,IF(反向測量>=1,LASTKDX7,LASTDDX7),IF(反向測量>=1,LASTDDX7,LASTKDX7));
LASTDX8:=IF(多空>=1,IF(反向測量>=1,LASTKDX8,LASTDDX8),IF(反向測量>=1,LASTDDX8,LASTKDX8));
LASTDX9:=IF(多空>=1,IF(反向測量>=1,LASTKDX9,LASTDDX9),IF(反向測量>=1,LASTDDX9,LASTKDX9));
FILLRGN(BARPOS>=BBP,LINE2,LINE3),color1A1010;
FILLRGN(BARPOS>=BBP AND IF(全顯>0,1,IF(精度3=0,1,IF(多空,STRTONUM(NUMTOSTR(LINE5,2))<=(STRTONUM(NUMTOSTR(IF(反向測量>=1,LASTDX1,LASTDX9),2))),STRTONUM(NUMTOSTR(LINE5,2))>=(STRTONUM(NUMTOSTR(IF(反向測量>=1,LASTDX1,LASTDX9),2)))))),LINE5,LINE6),color1A1010;
FILLRGN(BARPOS>=BBP AND IF(全顯>0,1,IF(精度3=0,1,IF(多空,STRTONUM(NUMTOSTR(LINE7,2))<=(STRTONUM(NUMTOSTR(IF(反向測量>=1,LASTDX1,LASTDX9),2))),STRTONUM(NUMTOSTR(LINE7,2))>=(STRTONUM(NUMTOSTR(IF(反向測量>=1,LASTDX1,LASTDX9),2)))))),LINE7,LINE8),color1A1010;
FILLRGN(BARPOS>=BBP AND IF(全顯>0,1,IF(精度3=0,1,IF(多空,STRTONUM(NUMTOSTR(LINE8,2))<=(STRTONUM(NUMTOSTR(IF(反向測量>=1,LASTDX1,LASTDX9),2))),STRTONUM(NUMTOSTR(LINE8,2))>=(STRTONUM(NUMTOSTR(IF(反向測量>=1,LASTDX1,LASTDX9),2)))))),LINE8,LINE9),color2A1A10;
FILLRGN(K3LAST>0,LASTDX2,LASTDX3),color553333;
FILLRGN(K3LAST>0,LASTDX5,LASTDX6),color553333;
FILLRGN(K3LAST>0,LASTDX7,LASTDX8),color553333;
FILLRGN(K3LAST>0,LASTDX8,LASTDX9),color885533;
PARTLINE(BARPOS>=BBP,LINE1),LINEDOT,colorEE99FF;
PARTLINE(BARPOS>=BBP,LINE2),LINEDOT,color66CC99;
PARTLINE(BARPOS>=BBP,LINE2+(LINE3-LINE2)/2),LINEDOT,color808080;
PARTLINE(BARPOS>=BBP,LINE3),LINEDOT,color808080;
PARTLINE(BARPOS>=BBP AND IF(全顯>0,1,IF(精度3=0,1,IF(多空,STRTONUM(NUMTOSTR(LINE4,2))<=(STRTONUM(NUMTOSTR(IF(反向測量>=1,LASTDX1,LASTDX9),2))),STRTONUM(NUMTOSTR(LINE4,2))>=(STRTONUM(NUMTOSTR(IF(反向測量>=1,LASTDX1,LASTDX9),2)))))),LINE4),LINEDOT,color66CC99;
PARTLINE(BARPOS>=BBP AND IF(全顯>0,1,IF(精度3=0,1,IF(多空,STRTONUM(NUMTOSTR(LINE5,2))<=(STRTONUM(NUMTOSTR(IF(反向測量>=1,LASTDX1,LASTDX9),2))),STRTONUM(NUMTOSTR(LINE5,2))>=(STRTONUM(NUMTOSTR(IF(反向測量>=1,LASTDX1,LASTDX9),2)))))),LINE5),LINEDOT,color808080;
PARTLINE(BARPOS>=BBP AND IF(全顯>0,1,IF(精度3=0,1,IF(多空,STRTONUM(NUMTOSTR(LINE5,2))<=(STRTONUM(NUMTOSTR(IF(反向測量>=1,LASTDX1,LASTDX9),2))),STRTONUM(NUMTOSTR(LINE5,2))>=(STRTONUM(NUMTOSTR(IF(反向測量>=1,LASTDX1,LASTDX9),2)))))),LINE6),LINEDOT,color66CC99;
PARTLINE(BARPOS>=BBP AND IF(全顯>0,1,IF(精度3=0,1,IF(多空,STRTONUM(NUMTOSTR(LINE7,2))<=(STRTONUM(NUMTOSTR(IF(反向測量>=1,LASTDX1,LASTDX9),2))),STRTONUM(NUMTOSTR(LINE7,2))>=(STRTONUM(NUMTOSTR(IF(反向測量>=1,LASTDX1,LASTDX9),2)))))),LINE7),LINEDOT,color66CC99;
PARTLINE(BARPOS>=BBP AND IF(全顯>0,1,IF(精度3=0,1,IF(多空,STRTONUM(NUMTOSTR(LINE7,2))<=(STRTONUM(NUMTOSTR(IF(反向測量>=1,LASTDX1,LASTDX9),2))),STRTONUM(NUMTOSTR(LINE7,2))>=(STRTONUM(NUMTOSTR(IF(反向測量>=1,LASTDX1,LASTDX9),2)))))),LINE8),LINEDOT,color808080;
PARTLINE(BARPOS>=BBP AND IF(全顯>0,1,IF(精度3=0,1,IF(多空,STRTONUM(NUMTOSTR(LINE8,2))<=(STRTONUM(NUMTOSTR(IF(反向測量>=1,LASTDX1,LASTDX9),2))),STRTONUM(NUMTOSTR(LINE8,2))>=(STRTONUM(NUMTOSTR(IF(反向測量>=1,LASTDX1,LASTDX9),2)))))),LINE9),LINEDOT,color8080;
PARTLINE(K3LAST>0,LASTDX1),LINEDOT,colorFFFF;
PARTLINE(K3LAST>0,LASTDX4),LINEDOT,color7280FA;
VERTLINE(測量>1 AND PK2 AND (全顯<>3 AND 全顯<>-3 OR DATATYPE>=6)),LINEDOT,color338833;
VERTLINE(BARPOS=BBP),LINEDOT,color885533;
IF 時間標尺 THEN BEGIN
TM2:=8;
TPK1:=IF(IF(STARTED=0,多空,FORUP),TROUGHBARS(2,0.1,1),PEAKBARS(1,0.1,1));
TPK2:=BACKSET(BARPOS=DATACOUNT,IF(BARPOS=DATACOUNT,SUMBARS(TPK1=0,STARTED),0));
KTPK1:=IF(IF(STARTED=0,多空,FORUP),PEAKBARS(1,IF(STARTED=0,TM2,0.1),1),TROUGHBARS(2,IF(STARTED=0,TM2,0.1),1));
DDD:=(BARSSINCE(KTPK1=0 AND REF(BARPOS,BARSLAST(KTPK1=0))>REF(BARPOS,BARSLAST(PK1))))=0;
KTPK2:=BACKSET(BARPOS=DATACOUNT,IF(BARPOS=DATACOUNT,SUMBARS(KTPK1=0,ENDED),0));
T1:=STRTONUM(NUMTOSTR(REF(BARPOS,IF(STARTED=0,BARSLAST(PK1),BARSSINCE(TPK2))),0));
T2:=STRTONUM(NUMTOSTR(REF(BARPOS,IF(STARTED=0,BARSLAST(DDD),BARSSINCE(KTPK2))),0));
PC:=T2-T1;
A:=CLOSE;
B:=CLOSE;
FOR I=1 TO DATACOUNT DO BEGIN
A[I]:=0;
B[I]:=0;
END;
J:=3;
TT2:=0;
TT1:=0;
TEM1:=T1;
TEM2:=T2;BEGIN
TT1:=INTPART(TEM1+PC*1/SQRT(5)*(POW((1+SQRT(5))/2,J)-POW((1-SQRT(5))/2,J))+0.9);
TT2:=INTPART(TEM2+PC*1/SQRT(5)*(POW((1+SQRT(5))/2,J)-POW((1-SQRT(5))/2,J))+0.9);
IF TT1>DATACOUNT OR TT1<0 THEN
BREAK;ELSE
A[TT1]:=1;
IF TT2>DATACOUNT OR TT2<0 THEN
BREAK;ELSE
B[TT2]:=1;
IF J<=5 THEN
J:=J+1;ELSE BEGIN
J:=3;
PC:=TT2-TT1;
TEM1:=TT1;
TEM2:=TT2;
END;
END;
IF TT1-DATACOUNT=1 THEN
VERTLINE(BARPOS=DATACOUNT),POINTDOT,SHIFT1,color808080;
IF TT2-DATACOUNT=1 THEN
VERTLINE(BARPOS=DATACOUNT),POINTDOT,SHIFT1,color303030;
IF TT1-DATACOUNT=2 THEN
VERTLINE(BARPOS=DATACOUNT),POINTDOT,SHIFT2,color808080;
IF TT2-DATACOUNT=2 THEN
VERTLINE(BARPOS=DATACOUNT),POINTDOT,SHIFT2,color303030;
IF TT1-DATACOUNT=3 THEN
VERTLINE(BARPOS=DATACOUNT),POINTDOT,SHIFT3,color808080;
IF TT2-DATACOUNT=3 THEN
VERTLINE(BARPOS=DATACOUNT),POINTDOT,SHIFT3,color303030;
DRAWTEXTEX(MAX(TT1-DATACOUNT,TT2-DATACOUNT)>0 OR MIN(TT1-DATACOUNT,TT2-DATACOUNT)>0,1,0,0,'NEXTIME:'+(NUMTOSTR(IF(MIN(TT1-DATACOUNT,TT2-DATACOUNT)<0,MAX(TT1-DATACOUNT,TT2-DATACOUNT),MIN(TT1-DATACOUNT,TT2-DATACOUNT)),0))),color808080;
DRAWTEXTEX(TT1-DATACOUNT>0,1,0,50,'Nearly Comming KEY_TIMELINE:'+NUMTOSTR(TT1-DATACOUNT,0)),colorA0A0A0;
VERTLINE(A=1),POINTDOT,color505050;
VERTLINE(B=1),POINTDOT,color202020;
IF FORUP AND STARTED>0 OR 多空 AND STARTED=0 THEN BEGIN
DRAWICON(BARPOS=T1,LOW*0.99,4);
DRAWICON(BARPOS=T2,HIGH*1.01,5);
END;ELSE BEGIN
DRAWICON(BARPOS=T1,HIGH*1.01,5);
DRAWICON(BARPOS=T2,LOW*0.99,4);
END;
END;
IF 全顯=2 OR 全顯=-1 THEN BEGIN
VAR2:=BARSLAST(K5LAST);
VAR3:=REF(INDEXC,VAR2)/REF(CLOSE,VAR2);
DPO:=INDEXO/VAR3;
DPH:=INDEXH/VAR3;
DPL:=INDEXL/VAR3;
DPC:=INDEXC/VAR3;
STICKLINE(DPC>REF(DPC,1),DPH,DPL,0.1,0),colorC0C0C0;
STICKLINE(DPC>REF(DPC,1),DPO,DPC,7,0),color606060;
STICKLINE(DPC>REF(DPC,1),DPO,DPC,5,0),color909090;
STICKLINE(DPC>REF(DPC,1),DPO,DPC,3,0),colorB0B0B0;
STICKLINE(DPC<=REF(DPC,1),DPH,DPL,0.1,1),color808080;
STICKLINE(DPC<=REF(DPC,1),DPO,DPC,7,0),color202020;
STICKLINE(DPC<=REF(DPC,1),DPO,DPC,5,0),color404040;
STICKLINE(DPC<=REF(DPC,1),DPO,DPC,3,0),color606060;
END;
IF (全顯=3 OR 全顯=-3 OR 全顯=-2 OR 全顯=4) AND DATATYPE<6 THEN BEGIN
DHHDAY:HHDAY,LINEDOT,color660099;
DLLDAY:LLDAY,LINEDOT,colorFF0000;
DRAWTEXT(BARPOS=BBP,IF(多空,LOW*0.98,HIGH*1.02),NUMTOSTR(REF(YEAR,KTONOW1),0)+'年'+NUMTOSTR(REF(MONTH,KTONOW1),0)+'月'+NUMTOSTR(REF(DAY,KTONOW1),0)+'日'),color707070;
END;
KO:=CLOSE;
KC:=REF(CLOSE,1);
STICKLINE(KO>KC AND (K3LAST>0 OR 精度3=0),OPEN,LOW,0.5,0),color2828FF;
STICKLINE(KO>KC AND (K3LAST>0 OR 精度3=0),CLOSE,HIGH,0.5,0),color2828FF;
STICKLINE(KO<=KC AND (K3LAST>0 OR 精度3=0),CLOSE,LOW,0.5,0),colorFFFF22;
STICKLINE(KO<=KC AND (K3LAST>0 OR 精度3=0),OPEN,HIGH,0.5,0),colorFFFF22;
STICKLINE(KO<=KC AND (K3LAST>0 OR 精度3=0),CLOSE,OPEN,7,0),colorCC6600;
STICKLINE(KO<=KC AND (K3LAST>0 OR 精度3=0),CLOSE,OPEN,5,0),colorFFFF11;
STICKLINE(KO>KC AND (K3LAST>0 OR 精度3=0),CLOSE,OPEN,7,0),color440099;
STICKLINE(KO>KC AND (K3LAST>0 OR 精度3=0),CLOSE,OPEN,5,0),color2828FF;
STICKLINE(KO>KC AND K3LAST=0 AND 精度3<>0,OPEN,LOW,0.5,0),color88;
STICKLINE(KO>KC AND K3LAST=0 AND 精度3<>0,CLOSE,HIGH,0.5,0),color88;
STICKLINE(KO<=KC AND K3LAST=0 AND 精度3<>0,CLOSE,LOW,0.5,0),color886600;
STICKLINE(KO<=KC AND K3LAST=0 AND 精度3<>0,OPEN,HIGH,0.5,0),color886600;
STICKLINE(KO<=KC AND K3LAST=0 AND 精度3<>0,CLOSE,OPEN,7,0),color660000;
STICKLINE(KO<=KC AND K3LAST=0 AND 精度3<>0,CLOSE,OPEN,5,0),color886600;
STICKLINE(KO>KC AND K3LAST=0 AND 精度3<>0,CLOSE,OPEN,7,0),color66;
STICKLINE(KO>KC AND K3LAST=0 AND 精度3<>0,CLOSE,OPEN,5,0),color88;
IF 多空=1 OR 多空=0 THEN BEGIN
DRAWTEXT(BARPOS=BBP,LINE1,' '+NUMTOSTR(LINE1,2)+' [1]'),ALIGN2,colorC0C0C0;
DRAWTEXT(BARPOS=BBP,LINE2,' NO.2 '+NUMTOSTR(LINE2,2)),ALIGN1,colorC0C0C0;
DRAWTEXT(BARPOS=BBP,LINE2+(LINE3-LINE2)/2,' '+NUMTOSTR(LINE2+(LINE3-LINE2)/2,2)+' [H]'),ALIGN2,colorC0C0C0;
DRAWTEXT(BARPOS=BBP,LINE3,' NO.3 '+NUMTOSTR(LINE3,2)),ALIGN1,colorC0C0C0;
DRAWTEXT(BARPOS=BBP AND IF(全顯>0,1,IF(精度3=0,1,IF(多空,STRTONUM(NUMTOSTR(LINE4,2))<=(STRTONUM(NUMTOSTR(IF(反向測量>=1,LASTDX1,LASTDX9),2))),STRTONUM(NUMTOSTR(LINE4,2))>=(STRTONUM(NUMTOSTR(IF(反向測量>=1,LASTDX1,LASTDX9),2)))))),LINE4,NUMTOSTR(LINE4,2)+' [4]'),ALIGN2,colorC0C0C0;
DRAWTEXT(BARPOS=BBP AND IF(全顯>0,1,IF(精度3=0,1,IF(多空,STRTONUM(NUMTOSTR(LINE5,2))<=(STRTONUM(NUMTOSTR(IF(反向測量>=1,LASTDX1,LASTDX9),2))),STRTONUM(NUMTOSTR(LINE5,2))>=(STRTONUM(NUMTOSTR(IF(反向測量>=1,LASTDX1,LASTDX9),2)))))),LINE5,' NO.5 '+NUMTOSTR(LINE5,2)),ALIGN1,colorC0C0C0;
DRAWTEXT(BARPOS=BBP AND IF(全顯>0,1,IF(精度3=0,1,IF(多空,STRTONUM(NUMTOSTR(LINE5,2))<=(STRTONUM(NUMTOSTR(IF(反向測量>=1,LASTDX1,LASTDX9),2))),STRTONUM(NUMTOSTR(LINE5,2))>=(STRTONUM(NUMTOSTR(IF(反向測量>=1,LASTDX1,LASTDX9),2)))))),LINE6,' '+NUMTOSTR(LINE6,2)+' [6]'),ALIGN2,colorC0C0C0;
DRAWTEXT(BARPOS=BBP AND IF(全顯>0,1,IF(精度3=0,1,IF(多空,STRTONUM(NUMTOSTR(LINE7,2))<=(STRTONUM(NUMTOSTR(IF(反向測量>=1,LASTDX1,LASTDX9),2))),STRTONUM(NUMTOSTR(LINE7,2))>=(STRTONUM(NUMTOSTR(IF(反向測量>=1,LASTDX1,LASTDX9),2)))))),LINE7,' NO.7 '+NUMTOSTR(LINE7,2)),ALIGN1,colorC0C0C0;
DRAWTEXT(BARPOS=BBP AND IF(全顯>0,1,IF(精度3=0,1,IF(多空,STRTONUM(NUMTOSTR(LINE7,2))<=(STRTONUM(NUMTOSTR(IF(反向測量>=1,LASTDX1,LASTDX9),2))),STRTONUM(NUMTOSTR(LINE7,2))>=(STRTONUM(NUMTOSTR(IF(反向測量>=1,LASTDX1,LASTDX9),2)))))),LINE8,' '+NUMTOSTR(LINE8,2)+' [8]'),ALIGN2,colorC0C0C0;
DRAWTEXT(BARPOS=BBP AND IF(全顯>0,1,IF(精度3=0,1,IF(多空,STRTONUM(NUMTOSTR(LINE8,2))<=(STRTONUM(NUMTOSTR(IF(反向測量>=1,LASTDX1,LASTDX9),2))),STRTONUM(NUMTOSTR(LINE8,2))>=(STRTONUM(NUMTOSTR(IF(反向測量>=1,LASTDX1,LASTDX9),2)))))),LINE9,' '+NUMTOSTR(LINE9,2)+' [*]'),ALIGN2,colorC0C0C0;
END;
IF 精度3<>0 AND (反向測量=1 OR 反向測量=0) THEN BEGIN
DRAWTEXT(K5LAST,LASTDX1,NUMTOSTR(LASTDX1,2)+' '),ALIGN2,colorFFFFFF;
DRAWTEXT(K5LAST,MIN(LASTDX2,LASTDX3)+(ABS(LASTDX3-LASTDX2))/2,NUMTOSTR(LASTDX2,2)+'-'+NUMTOSTR(LASTDX3,2)+' '),ALIGN2,colorFFFFFF;
DRAWTEXT(K5LAST,LASTDX4,NUMTOSTR(LASTDX4,2)+' '),ALIGN2,colorFFFFFF;
DRAWTEXT(K5LAST,MIN(LASTDX5,LASTDX6)+(ABS(LASTDX6-LASTDX5))/2,NUMTOSTR(LASTDX5,2)+'-'+NUMTOSTR(LASTDX6,2)+' '),ALIGN2,colorFFFFFF;
DRAWTEXT(K5LAST,MIN(LASTDX7,LASTDX8)+(ABS(LASTDX8-LASTDX7))/2,NUMTOSTR(LASTDX7,2)+'-'+NUMTOSTR(LASTDX8,2)+' '),ALIGN2,colorFFFFFF;
DRAWTEXT(K5LAST,MIN(LASTDX8,LASTDX9)+(ABS(LASTDX9-LASTDX8))/2,NUMTOSTR(LASTDX8,2)+'-'+NUMTOSTR(LASTDX9,2)+' '),ALIGN2,colorFFFFFF;
END;

波神凱線操作口訣
一波上漲二三線，離場要在兩線半；
二波關鍵五六線，五線離場要果斷。
三波七八一循環，七上八下多空變；
回調關注一二線，五六頂底亦常見。
中國行情多變幻，第四線來是一關；
大波小段上下翻，波段操作天天賺。
------------------------------------
附：一年時間之窗轉折日 (帶*是神奇數字)
一月：6、15、21、*25 七月：8、15、*1 9、23
二月：6、15、21 八月：*6、8、15、23
三月：6、15、*20、21 九月：8、15、*1 8、23
四月：6、15、21 十月：8、15、23、*31
五月：6、*1 2、15、21 十一月：8、15、23、*28
六月：6、*1 4、21 十二月：8、15、23、*31
============================================================
-------------------倉位控制原則-----------------------------
（一）永不滿倉，始終保持30%以上的備用資金。（二）根據大盤風險系數來決定倉位高低，如果當前大盤風險系數是70%，那么倉位就應該是30%。 <1>、市場出現無風險機會的時候，可以放大資金操作；
<2>、在市場出現波段操作機會的時候，可以重倉短線操作；
<3>、在市場出現極品莊股行情機會的時候，可以三分倉中線操作；
<4>、在市場出現技術分析機會的時候，可以輕倉短線操作。（三）根據中、短周期兩種投資模式來決定資金的劃分模式，將總體資金劃分為60%和40%兩等份。　　<1>.永不滿倉，始終保持30%以上的備用資金。
<2>.根據大盤風險系數來決定倉位高低，如果當前大盤風險系數是70%，那么倉位就應該是30%。
{程序化交易 www.tumamayizhan.com }

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