|
本書中文版由鼎砥投資論壇金融研究員 stu先生 翻譯以下是各種周期DELTA的彩線繪制源碼，適用于飛狐軟件。各段代碼都可用于主圖和副圖，并提醒注意，每種DELTA有各自適用的K線周期短期DELTA（STD）：//疊加K線——如果用于主圖，以下五行可以不要+ B* d7 D0 g: B4 F0 fSTICKLINE(OPEN>CLOSE, LOW,HIGH, 0,0),COLORWHITE;STICKLINE(OPEN>CLOSE, CLOSE,OPEN, 8,0),COLORWHITE;' J0 ^' S0 }- a5 r* p& eSTICKLINE(OPEN<=CLOSE,OPEN, CLOSE,8,1),COLORRED;STICKLINE(OPEN<=CLOSE,CLOSE,HIGH, 0,0),COLORRED;STICKLINE(OPEN<=CLOSE,LOW,OPEN, 0,0),COLORRED;; G$ M! @* Y, n/ y1 P- `8 q6 z//光標(biāo)所在畫面的最高價(jià)和最低價(jià)- J! e' {% d$ xHH:=SYSPARAM(4);4 g- `' K- C; c# P' Z8 uLL:=SYSPARAM(5);+ q5 v$ X5 R$ y/ E$ Q, C. x//判斷是否繪制彩線的位置日:=date; //求當(dāng)前K線的日期6 v B( w p, H- T; oisColor:=if(日>ref(日,1) or BARSCOUNT(c)=1,1,0); //當(dāng)K線的日期發(fā)生變化時(shí)，就是新的彩線繪制位置DIS:=if(BARSCOUNT(C)=1,0,日-ref(日,1)-1); //星期六、星期日以及節(jié)假日也要考慮6 B( g) m$ J7 f) ^+ `$ g) qNum:=count(isColor,0)+DIS; //計(jì)算彩線個(gè)數(shù)8 ^2 x* `4 O( W: ~4 o/ M//繪制彩線STICKLINE(isColor and mod(Num,4)=0,LL,HH,1,0),colorred ;; L: v4 @+ ?- i% t/ xSTICKLINE(isColor and mod(Num,4)=1,LL,HH,1,0),coloryellow ;8 E6 q7 r7 S' [3 d4 Z4 T' kSTICKLINE(isColor and mod(Num,4)=2,LL,HH,1,0),colorblue ;9 J3 _1 T) j5 HSTICKLINE(isColor and mod(Num,4)=3,LL,HH,1,0),colorwhite ;適用于60分鐘線、30分鐘線，15分鐘線，5分鐘線。* J8 V$ Q4 e# Z5 |$ C; V8 e& t) s. [1 E# Q# J' F# c: ]; P2 S（補(bǔ)充：黑體部分很重要，原先給出的代碼缺少這句，即忽略了周末和節(jié)假日的處理。根據(jù)吉姆.索羅門的解釋，周末和節(jié)假日也在DELTA序列內(nèi)，雖然它沒有K線。原文中用雙線來標(biāo)注周末和節(jié)假日，我覺得，只要正確按照順序標(biāo)注彩線即可，因此不采用雙線。另外，本程序現(xiàn)在已經(jīng)處理任意長(zhǎng)短的節(jié)假日和周末。）中短期DELTA（ITD）：. s% j* h/ p1 Z( K//疊加K線--如果用于主圖，以下五行可以不要STICKLINE(OPEN>CLOSE, LOW,HIGH, 0,0),COLORWHITE;STICKLINE(OPEN>CLOSE, CLOSE,OPEN, 8,0),COLORWHITE;STICKLINE(OPEN<=CLOSE,OPEN, CLOSE,8,1),COLORRED;9 N0 f5 F7 T4 P. ?2 oSTICKLINE(OPEN<=CLOSE,CLOSE,HIGH, 0,0),COLORRED;STICKLINE(OPEN<=CLOSE,LOW,OPEN, 0,0),COLORRED;, j, Y6 B% j' `, X! X' ], Y/ k' d5 e1 X J//光標(biāo)所在畫面的最高價(jià)和最低價(jià)* E( V3 c4 t7 r% i; c( p) WHH:=SYSPARAM(4);LL:=SYSPARAM(5);5 Z* @0 K- }4 u; I//判斷是否繪制彩線的位置農(nóng)歷smi49liesDay,LineThick0;) J, G. s- @) t$ o( IisFirst:=if(農(nóng)歷>Ref(農(nóng)歷,1) and ref(農(nóng)歷,1)<15 and 農(nóng)歷>15,1,0);isColor:=iif(lday=15 or isFirst,1,0); //農(nóng)歷15，或者農(nóng)歷15后的第一個(gè)交易日，就是繪制彩線的位置& ?- B1 a$ x! [' |Num:=count(isColor,0); //計(jì)算彩線個(gè)數(shù)7 Y7 o- R; P/ d, }' \//繪制彩線4 u5 Z T( |, M6 I( o0 fSTICKLINE(isColor and mod(Num,4)=0,ll,hh,1,0),colorred ;STICKLINE(isColor and mod(Num,4)=1,ll,hh,1,0),coloryellow ; B0 M( A5 C* oSTICKLINE(isColor and mod(Num,4)=2,ll,hh,1,0),colorblue ;STICKLINE(isColor and mod(Num,4)=3,ll,hh,1,0),colorwhite ;6 K9 Z( ]) j# d. H6 z, j# i9 g9 W! V0 u c適用于日線，周線好像亦可，推薦用于日線。中期DELTA（MTD）：) i8 h, J3 r7 L: f( C5 D, r% i2 V, L* F//疊加K線——如果用于主圖，以下五行可以不要- a% d: J+ P4 m2 p6 s3 x$ SSTICKLINE(OPEN>CLOSE, LOW,HIGH, 0,0),COLORWHITE;STICKLINE(OPEN>CLOSE, CLOSE,OPEN, 8,0),COLORWHITE; C; z: ] \* {; `8 N9 pSTICKLINE(OPEN<=CLOSE,OPEN, CLOSE,8,1),COLORRED;/ G/ g, L8 s' P8 [STICKLINE(OPEN<=CLOSE,CLOSE,HIGH, 0,0),COLORRED;STICKLINE(OPEN<=CLOSE,LOW,OPEN, 0,0),COLORRED;. I! G8 R' s. ^/ y' P. {6 ]8 w1 e0 F3 y5 |1 g* @- V9 d//光標(biāo)所在畫面的最高價(jià)和最低價(jià), b' r' B; f; xHH:=SYSPARAM(4);LL:=sysparam(5);2 |1 Q! ~) g: u3 y//判斷是否繪制彩線的位置農(nóng)歷smi49liesDay,LineThick0;isFirst:=if(lday=15 or (農(nóng)歷>Ref(農(nóng)歷,1) and ref(農(nóng)歷,1)<15 and 農(nóng)歷>15),1,0); //農(nóng)歷15，或者農(nóng)歷15后的第一個(gè)交易日9 L; P4 K' V& y- D7 Q7 {isColor:=if(mod(count(isFirst,0),3)=1 and isFirst,1,0),linethick0; //每三個(gè)農(nóng)歷滿月的位置繪制彩線6 y$ y' K3 R5 H* G7 XNum:=count(isColor,0); //計(jì)算彩線個(gè)數(shù)+ _8 w# j# U0 o$ ^+ O//繪制彩線STICKLINE(isColor and mod(Num,4)=0,ll,hh,1,0),colorred ;4 @- s3 m/ ?$ t' jSTICKLINE(isColor and mod(Num,4)=1,ll,hh,1,0),coloryellow ;, v6 f, d8 e6 C9 _ s8 DSTICKLINE(isColor and mod(Num,4)=2,ll,hh,1,0),colorblue ;STICKLINE(isColor and mod(Num,4)=3,ll,hh,1,0),colorwhite ;適用于日線、周線長(zhǎng)期DELTA（LTD）：1 N' q& j( ^( t$ e9 ]' T- b//疊加K線--如果用于主圖，以下五行可以不要STICKLINE(OPEN>CLOSE, LOW,HIGH, 0,0),COLORWHITE;STICKLINE(OPEN>CLOSE, CLOSE,OPEN, 8,0),COLORWHITE;' S1 ~! p# R9 t: f& \' p/ \STICKLINE(OPEN<=CLOSE,OPEN, CLOSE,8,1),COLORRED;5 v3 W/ E; ]5 `6 B1 ySTICKLINE(OPEN<=CLOSE,CLOSE,HIGH, 0,0),COLORRED;STICKLINE(OPEN<=CLOSE,LOW,OPEN, 0,0),COLORRED;. O* l- G: |1 ], [//光標(biāo)所在畫面的最高價(jià)和最低價(jià)HH:=SYSPARAM(4);, B1 y9 f+ ~% N0 ?LL:=sysparam(5);$ N8 Y/ _& p. W% [% G. Q4 _8 C( D3 t/ t& q/ Q//判斷是否繪制彩線的位置年:=year;- j- w; \# a/ ^4 B7 sisColor:=if(年>ref(年,1),1,0); //當(dāng)K線的年份發(fā)生變化，就是繪制彩線的位置Num:=count(isColor,0); //計(jì)算彩線個(gè)數(shù)//繪制彩線STICKLINE(isColor and mod(Num,4)=0,ll,hh,1,0),colorred ;: B4 q; l3 j. R% BSTICKLINE(isColor and mod(Num,4)=1,ll,hh,1,0),coloryellow ;STICKLINE(isColor and mod(Num,4)=2,ll,hh,1,0),colorblue ;% |6 h* _1 W- Z7 J4 g& eSTICKLINE(isColor and mod(Num,4)=3,ll,hh,1,0),colorwhite ;- i' H' P4 A7 E2 g適用于日線、周線、月線，推薦用于周線、月線。超長(zhǎng)期DELTA(SLTD)：+ _! `7 t' T# m* `5 Y/ i- ~//疊加K線--如果用于主圖，以下五行可以不要9 \3 y4 q5 e! R4 c/ `STICKLINE(OPEN>CLOSE, LOW,HIGH, 0,0),COLORWHITE;: X5 u4 }0 _- w' Z$ W# d+ q: _STICKLINE(OPEN>CLOSE, CLOSE,OPEN, 8,0),COLORWHITE;STICKLINE(OPEN<=CLOSE,OPEN, CLOSE,8,1),COLORRED;0 T! @ x4 O% x3 y& D% L [STICKLINE(OPEN<=CLOSE,CLOSE,HIGH, 0,0),COLORRED;8 n0 m. ?$ b2 J$ L8 @8 _1 RSTICKLINE(OPEN<=CLOSE,LOW,OPEN, 0,0),COLORRED;. g) [) Q: Y# P2 e; `; C: M- g//光標(biāo)所在畫面的最高價(jià)和最低價(jià)HH:=SYSPARAM(4);LL:=SYSPARAM(5);8 e3 C' |! R# ~4 y6 `//判斷是否繪制彩線的位置# v3 J+ p* T0 ` X u月:=month;$ s8 K* v4 N; R. FisFirst:=if(月>ref(月,1) or 月isColor:=if(mod(count(isFirst,0),57)=1 and isFirst,1,0); //每57個(gè)月繪制一次彩線;# A, ?/ m3 R# X: w' zNum:=count(isColor,0); //計(jì)算彩線個(gè)數(shù)6 G; u9 M9 p: }5 R5 l! J//繪制彩線: U9 ~/ i; r+ w9 [& V T) USTICKLINE(isColor and mod(Num,4)=0,ll,hh,1,0),colorred ;8 e9 e9 E( e' ?# I' F# @0 E7 M8 g4 USTICKLINE(isColor and mod(Num,4)=1,ll,hh,1,0),coloryellow ;STICKLINE(isColor and mod(Num,4)=2,ll,hh,1,0),colorblue ;% L2 R4 x! W3 HSTICKLINE(isColor and mod(Num,4)=3,ll,hh,1,0),colorwhite ;適用于日線、周線、月線，推薦用于周線、月線。* h1 R4 j- }' R% T! j2 i2 k由于中國(guó)股市沒有那么長(zhǎng)的歷史，所以此DELTA在很長(zhǎng)時(shí)間內(nèi)都沒有意義，呵呵。
|
