奇狐社區論壇 - Ichimoku Chart

奇狐社區論壇 : Powered by vBulletin version 2.3.0

奇狐社區論壇 > 指標公式 > 問題交流 > Ichimoku Chart

總頁數 (2): [1] 2 »

上一主題下一主題

作者

主題

curiousboy
中級會員

註冊日期: Jul 2004
來　　自:
文章數量: 79

Ichimoku Chart

想用奇狐畫 Ichimoku Chart ,要如何將'延遲線'向左移呢?

向版主報告此篇 |

2004-12-19 19:22

king
版主

註冊日期: Jan 2004
來　　自:
文章數量: 2783

是這個嗎?

__________________
E-Trader World 交易世界、
Plurk、
Facebook、
Twitter
(EQ:情緒智商) & (HD:習慣領域)才是主導成功交易的重要關鍵。
「存於一個人自身的真相非常簡單，然而人們卻總是追求深奧的真理。」，金融交易亦是如此。

向版主報告此篇 |

2004-12-20 10:38

curiousboy
中級會員

註冊日期: Jul 2004
來　　自:
文章數量: 79

Ichimoku Chart

是這個沒有錯不過從您的圖上看來好像也沒有畫出 lagging span

完整的Ichimoku Chart 應有五條線
conversion line.
base line.
lagging span.
the first leading span.
the second leading span.

就您貼的圖上僅有4條即conversion line,base line.,the first leading span. 及the second leading span.

而lagging span.是將今日之收盤價延後幾個週期繪出就是收盤價線向左平移幾個週期......不之奇狐有無函數可如此做

如附圖之淺藍色線

curiousboy 附帶上了此圖片:

最後由 curiousboy 在 2004-12-20 11:11 編輯

向版主報告此篇 |

2004-12-20 11:07

king
版主

註冊日期: Jan 2004
來　　自:
文章數量: 2783

上圖是Trade Station的,下圖是使用Execl製作出來的

向版主報告此篇 |

2004-12-20 12:17

curiousboy
中級會員

註冊日期: Jul 2004
來　　自:
文章數量: 79

Ichimoku Chart

謝謝

再請問一下如excel 圖中 spana 與 spanb 間的顏色若是超過最後一根收盤k線的部份要如何上顏色?

向版主報告此篇 |

2004-12-20 12:32

king
版主

註冊日期: Jan 2004
來　　自:
文章數量: 2783

Ezecl請依下圖設定,數列你可以先移偏,這樣圖型技術上就可以做到,奇狐我有寫出這指標,有動用到VB語法,是有達到左偏的效果但最後數值為0變成垂直線視覺有一點點醜,若不在意還可以看就是了

向版主報告此篇 |

2004-12-20 12:51

curiousboy
中級會員

註冊日期: Jul 2004
來　　自:
文章數量: 79

Ichimoku Chart

看起來好怪怪的......

Ichimoku Chart
延遲線目的是要將今日的收盤價畫再一個月之前以便與之比較...
大大圖上顯示的是每日收盤線畫到一個月之前為止意義不同
不過spana 與 spanb 間超過今日收盤的部份顏色是如何畫的呢?

我畫的圖超過今日收盤就無法上色耶???

再次感謝您的費心 qqq

向版主報告此篇 |

2004-12-20 13:08

king
版主

註冊日期: Jan 2004
來　　自:
文章數量: 2783

還有一個技巧性的方法就是使用REFX函數也可以,達到此效果,但尾段要使用黑色畫線覆蓋就是了

最後由 king 在 2004-12-20 13:31 編輯

向版主報告此篇 |

2004-12-20 13:15

xiwang
初級會員

註冊日期: Sep 2004
來　　自:
文章數量: 1

偶这里有一个Ichimoku, ,希望对你有帮助

参数: N:26; M:9;

BZX:=(HHV(HIGH,N)+LLV(LOW,N))/2;
ZZX:=(HHV(HIGH,M)+LLV(LOW,M))/2;
FBZX:=BZX;
<%
vbzx=ffl.vardata("FBZX")
vzzx=ffl.vardata("ZZX")
vn=ffl.vardata("n")
vm=ffl.vardata("m")
last=ubound(vbzx)
for i=0 to last-(vn-vm)
vbzx(i)=(vbzx(i)+vzzx(i+vn-vm-1))/2
next
ffl.vardata("FBZX")=vbzx
%>
第一領先距:FBZX,color663388,LINETHICK2,shift24;
第二領先距: (HHV(HIGH,2*N)+LLV(LOW,2*N))/2,color663388,LINETHICK2,shift24;
FILLRGN(第一領先距<第二領先距,第一領先距,第二領先距),COLORcc6666,shift24;
FILLRGN(第一領先距>第二領先距,第一領先距,第二領先距),COLORDD9999,shift24;

{指标线}
標準線: (HHV(HIGH,N)+LLV(LOW,N))/2,COLOR006600,LINETHICK2;
轉折線: (HHV(HIGH,M)+LLV(LOW,M))/2,COLORMAGENTA,LINETHICK2;
Delay:=C;
<%
vdelay=ffl.vardata("Delay")
vn=ffl.vardata("n")
last=ubound(vdelay)
for i=0 to last-vn
vdelay(i)=vdelay(i+vn)
next
ffl.vardata("Delay")=vdelay
%>
Delaylast:=BACKSET(ISLASTBAR,N);
延遲線:IF(NOT(Delaylast),Delay,0),COLORBLUE,LINETHICK0;
PARTLINE(NOT(Delaylast),Delay),COLORBLUE;

向版主報告此篇 |

2004-12-20 21:41

curiousboy
中級會員

註冊日期: Jul 2004
來　　自:
文章數量: 79

Ichimoku Chart

終於完成了.....

curiousboy 附帶上了此圖片:

最後由 curiousboy 在 2004-12-20 23:19 編輯

向版主報告此篇 |

2004-12-20 22:27

jiat
資深會員

註冊日期: Apr 2004
來　　自:
文章數量: 119

n:=7;
m:=22;

夹非絬:(HHV(HIGH,N)+LLV(LOW,N))/2,COLOR88FF88;
锣ч絬:(HHV(HIGH,M)+LLV(LOW,M))/2,COLORMAGENTA;

烩腂禯1:(夹非絬+锣ч絬)/2,colorcccccc{663388},LINETHICK2,shift26;
材熌烩腂禯:(HHV(HIGH,2*N)+LLV(LOW,2*N))/2,colorsilver,LINETHICK2,shift26;
FILLRGN(烩腂禯1<材熌烩腂禯,烩腂禯1,材熌烩腂禯),COLORcc6666,shift26;
FILLRGN(烩腂禯1>材熌烩腂禯,烩腂禯1,材熌烩腂禯),COLORDD9999,shift26;

STICKLINE(open>=close ,close ,open,9,0 ),COLORaaaaaa;
STICKLINE(open>=close ,close ,open,6,0 ),COLORbbbbbb;
STICKLINE(open>=close ,close ,open,2.4,0 ),COLORcccccc;
STICKLINE(open>=close ,close ,open,1.1,0 ),COLORdddddd;

STICKLINE(close>open,close,open,9,0 ),COLOr6666cc;
STICKLINE(close>open,close,open,6 ,0 ),COLOR7777dd;
STICKLINE(close>open,close,open,2.4 ,0 ),COLOR8888ee;
STICKLINE(close>open,close,open,1.1 ,0 ),COLOR9999ff;

STICKLINE(close>open,open,low,0.5,0 ),COLOR1199ff;
STICKLINE(close>open,close,HIGH,0.5 ,0 ),COLOR1199ff;
STICKLINE(open>=close,close,low,0.5 ,0 ),COLORcccccc;
STICKLINE(open>=close,open,HIGH,0.5 ,0 ),COLORcccccc;
A:=IF(CAPITAL,(AMOUNT/VOL)/100,(OPEN+HIGH+LOW+CLOSE*2)/5);
STICKLINE(BETWEEN(A,HIGH,LOW),A,A,3,0),COLORFFAA33,LINETHICK2;

Delay:=C,LINETHICK0;

Delaylast:=BACKSET(ISLASTbar,N);
筐︽絬:c,LINETHICK0,COLORyellow;
IF(NOT(Delaylast),Delay,0),COLOR33AA33,LINETHICK0;
PARTLINE(NOT(Delaylast),Delay),COLORyellow,LINETHICK1;

{1) 祏禸е絬 = 锣传絬 = (9らず程蔼 + 9らず程𥈡) / 2靗𢡠9ら塜𠜎祏絬㏄戳 (㏄戳蕂祏𢵧ヴ種訜э)

2) い禸篊絬 = 膀非絬 = (26らず程蔼 + 26らず程𥈡) / 2靗𢡠26ら塜𠜎い絬㏄戳 (㏄戳蕂祏𢵧ヴ種秸毙)

3) 𢚘簿园夹 = 筐︽盿 = 盢琌らΜカ基𢚘簿𡡀𠜎い絬㏄戳

4) 玡簿园夹A = 腂︽盿A = (祏禸е絬 + い禸篊絬) / 2靗玡簿𡡀𠜎い絬㏄戳

5) 玡簿园夹B = 腂︽盿B = (52らず程蔼 + 52らず程𥈡) / 2靗玡簿𡡀𠜎い絬㏄戳

冻盿 = 玡簿园夹Aの玡簿园夹B倈滛丁 }

𢹸𤫟絬:=EMA(C,148);
𤫟絬:=EMA(C,250);
EXPLAIN(C>=𢹸𤫟絬,'𣎴基㶏𢹸𤫟絬ぇ叐'),COLORYELLOW;
EXPLAIN(C>=𤫟絬,'𣎴基㶏𤫟絬ぇ叐 '),COLORYELLOW;
EXPLAIN(C<𢹸𤫟絬,'𣎴基㶏𢹸𤫟絬ぇ𤪼 '),COLORCYAN ;
EXPLAIN(C<𤫟絬,'𣎴基㶏𤫟絬ぇ𤪼 '),COLORCYAN;
EXPLAIN(𢹸𤫟絬>=REF(𢹸𤫟絬,1),'𢹸𤫟絬镣墩鋲叐'),COLORYELLOW;
EXPLAIN(𤫟絬>=REF(𤫟絬,1),'𤫟絬镣墩鋲叐 '),COLORYELLOW;
EXPLAIN(𢹸𤫟絬<REF(𢹸𤫟絬,1),'𢹸𤫟絬镣墩鋲𤪼 '),COLORCYAN ;
EXPLAIN(𤫟絬<REF(𤫟絬,1),'𤫟絬镣墩鋲𤪼 '),COLORCYAN;
𣎴笵芥𢴇基箇代:=(CLOSE*2.5/100+CLOSE);
𣎴笵禦𤦬基箇代:=C-CLOSE*2.5/100;
EXPLAINEX(COST(50),'カ初キАΘセ:',COST(50),2,0),COLORYELLOW;
EXPLAINEX(COST(4),'蘔㻞キАΘセ:',COST(4),2,0),COLORRED;
EXPLAINEX(COST(30),'北絃キАΘセ:',COST(30),2,0),COLORRED;
EXPLAINEX(COST(75),'┰どキАΘセ:',COST(75),2,0),COLORYELLOW;
EXPLAINEX(COST(95),'郴场キАΘセ:',COST(95),2,0),COLORYELLOW;
EXPLAINEX(COST(0.05),'┏场キАΘセ:',COST(0.05),2,0),COLORYELLOW;
EXPLAINEX(𣎴笵芥𢴇基箇代,'𣎴笵芥𢴇基箇代:',𣎴笵芥𢴇基箇代,2,0),COLOR0099FF;
EXPLAINEX(𣎴笵禦𤦬基箇代,'𣎴笵禦𤦬基箇代:',𣎴笵禦𤦬基箇代,2,0),COLOR0099FF;
EXPLAINEX(1,'莉𤪺絃ゑㄒ=',WINNER(C)*100,2,0),COLORRED;
EXPLAINEX(1,'甅╟絃ゑㄒ=',100-WINNER(C)*100,2,0),COLORCYAN;
洤滛1:=MA((V/(H-L)),4);
洤滛2:=ABS(C-O);
洤滛3:=V/(H-L);
EXPLAIN(洤滛3<洤滛1 AND 洤滛2<MA(洤滛2,4),'戈簕礚𤦬初種腀靗典罽い'),COLORCYAN;
EXPLAIN(洤滛3<洤滛1 AND 洤滛2>MA(洤滛2,4),'初ず戈簕Τ笲𨫣︽塜'),COLORYELLOW;
EXPLAIN(洤滛3>洤滛1 AND 洤滛2<MA(洤滛2,4),'洤滛蛮よ縀疨珯管い'),COLORYELLOW;
EXPLAIN(洤滛3>洤滛1 AND 洤滛2>MA(洤滛2,4),'初𨬢戈簕ざ𤦬㬎┪𢴇Ы𧅵種腀眏疨'),COLOR0099FF;
TR := SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14);
HD := HIGH-REF(HIGH,1);
LD := REF(LOW,1)-LOW;
DMP:= SUM(IF(HD>0 AND HD>LD,HD,0),14);
DMM:= SUM(IF(LD>0 AND LD>HD,LD,0),14);
PDI:= DMP*100/TR;
MDI:= DMM*100/TR;
ADX:= MA(ABS(MDI-PDI)/(MDI+PDI)*100,6);
ADXR:=(ADX+REF(ADX,6))/2;
EXPLAIN(CROSS(PDI,MDI),'PDI絬眖𤪼鋲叐𠖥瘆MDI絬靗陪ボΤ穝洤繷秈初靗塜禦秈獺腹'),COLORGREEN;
EXPLAIN(CROSS(MDI,PDI),'PDI絬眖叐鋲𤪼禴瘆MDI絬靗陪ボΤ穝滛繷秈初靗塜芥𢴇獺腹'),COLORCYAN;
EXPLAIN(ADX>REF(ADX,1),'ADX𠇁叾尿蔼嬑玡𠜎ら靗︽薄盢蝴叾悞镣墩'),COLORYELLOW;
EXPLAIN(ADX<REF(ADX,1) AND ADX<20,'ADX𠇁患搭靗芇鯩20𢡠𤪼靗𡜻绢鋲︽秈𤨣靗カ初槺猑塜絃俱'),COLOR0099FF;
EXPLAIN(ADX<REF(ADX,1) AND REF(ADX,1)<REF(ADX,2) and REF(ADX,2)>REF(ADX,3) AND REF(ADX,3)>REF(ADX,4),'ADX𠇁眖叐ど渡鋲锣塜𤪼芇𤨣靗𣜭餸︽薄碍盢は锣'),COLORYELLOW;
TYP := (HIGH + LOW + CLOSE)/3;
CCI:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));
EXPLAIN(cci<-180,'CCI园夹┏𡣘靗禦𤦬诀穦'),COLORGREEN;
EXPLAIN(cci>180,'CCI园夹蔼𡣘靗芥𢴇诀穦'),COLORCYAN;
EXPLAIN((V/CAPITAl)>0.075,'传も筁𡛺靗婾み蘔㻞𢴇発靗祏戳繷场'),COLORCYAN;
WR:=-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14));
EXPLAIN(WR>-20,'W&R禬禦靗祏絬碍盢ǎ郴靗莱の𤨣芥𢴇'),COLORCYAN;
EXPLAIN(WR<-80,'W&R禬芥靗祏絬碍盢ǎ┏靗莱𧐢诀禦秈'),COLORGREEN;
MTM := CLOSE-REF(CLOSE,6);
MTMMA := MA(MTM,6);
EXPLAIN(CROSS(MTM,MTMMA) and MTMMA<-0.8,'MTM眖𤪼鋲叐𠖥瘆MTMMA靗禦𤦬獺腹'),COLORGREEN;
EXPLAIN(CROSS(MTMMA,MTM) and MTMMA>0.8,'MTM眖叐鋲𤪼禴瘆MTMMA靗芥𢴇獺腹'),COLORCYAN;
LC := REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
EXPLAIN(RSI1>85,'6らRSI禬禦,ňゎ漋咀'),COLORCYAN;
EXPLAIN(RSI1>80,'6らRSI鋲叐𠖥瘆85靗禬禦,σ納芥𢴇'),COLORCYAN;
EXPLAIN(RSI1<15,'6らRSI禬芥,繦𤨣Τ𢵧𤤀は紆'),COLORYELLOW;
EXPLAIN(RSI1<15,'6らRSI鋲𤪼禴瘆15靗禬芥靗σ納禦𤦬'),COLORYELLOW;
EXPLAIN(CROSS(RSI1,15),'6らRSI鋲叐𠖥瘆15靗禦秈獺腹'),COLORGREEN;
EXPLAIN(CROSS(RSI1,85),'6らRSI鋲𤪼禴瘆85靗芥𢴇獺腹'),COLORCYAN;
PSY:=COUNT(CLOSE>REF(CLOSE,1),12)/12*100;
ガ狶1:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
ガ狶2:=ガ狶1+3*STD(ガ狶1,10);
ガ狶3:=ガ狶1-3*STD(ガ狶1,10);
ガ狶4:=(ガ狶2-ガ狶3)/ガ狶2<0.03;
ガ狶5:=(ガ狶2-ガ狶3)/ガ狶2>0.18;
ガ狶6:=(MA(C,60)-MA(C,5))/MA(C,60)>0.15;
ガ狶7:=(MA(C,5)-MA(C,60))/MA(C,5)>0.15;
EXPLAIN(ガ狶4,'洤滛ガ狶Μ滥い靗Τ跑絃倈𢵧𤤀靗叐𤪼䅿𤊕だ猂'),COLORYELLOW;
EXPLAIN(ガ狶6 AND ガ狶5 AND C>o ,'ガ狶叐𤪼潹瞒び𡛺靗Τは紆倈𢵧𤤀'),COLORGREEN;
EXPLAIN(ガ狶7 AND ガ狶5 AND C<o ,'ガ狶叐𤪼潹瞒び𡛺靗Τ漋辅倈𢵧𤤀'),COLORCYAN;

向版主報告此篇 |

2004-12-21 15:43

jkdens1
中級會員

註冊日期: Dec 2003
來　　自: Taiwan
文章數量: 58

上篇的文字怪怪的,原意不知是否是這樣?

N:=7;
M:=22;

標準線:(HHV(HIGH,N)+LLV(LOW,N))/2,COLOR88FF88;
轉折線:(HHV(HIGH,M)+LLV(LOW,M))/2,COLORMAGENTA;

第1領先距:(標準線+轉折線)/2,colorcccccc{663388},LINETHICK2,shift26;
第二領先距:(HHV(HIGH,2*N)+LLV(LOW,2*N))/2,colorRED,LINETHICK2,shift26;
FILLRGN(第1領先距<第二領先距,第1領先距,第二領先距),COLORcc6666,shift26;
FILLRGN(第1領先距>第二領先距,第1領先距,第二領先距),COLORDD9999,shift26;

STICKLINE(open>=close ,close ,open,9,0 ),COLORaaaaaa;
STICKLINE(open>=close ,close ,open,6,0 ),COLORbbbbbb;
STICKLINE(open>=close ,close ,open,2.4,0 ),COLORcccccc;
STICKLINE(open>=close ,close ,open,1.1,0 ),COLORdddddd;

STICKLINE(close>open,close,open,9,0 ),COLOr6666cc;
STICKLINE(close>open,close,open,6 ,0 ),COLOR7777dd;
STICKLINE(close>open,close,open,2.4 ,0 ),COLOR8888ee;
STICKLINE(close>open,close,open,1.1 ,0 ),COLOR9999ff;

STICKLINE(close>open,open,low,0.5,0 ),COLOR1199ff;
STICKLINE(close>open,close,HIGH,0.5 ,0 ),COLOR1199ff;
STICKLINE(open>=close,close,low,0.5 ,0 ),COLORcccccc;
STICKLINE(open>=close,open,HIGH,0.5 ,0 ),COLORcccccc;
A:=IF(CAPITAL,(AMOUNT/VOL)/100,(OPEN+HIGH+LOW+CLOSE*2)/5);
STICKLINE(BETWEEN(A,HIGH,LOW),A,A,3,0),COLORFFAA33,LINETHICK2;

Delay:=C,LINETHICK0;

Delaylast:=BACKSET(ISLASTbar,N);
收價:c,LINETHICK0,COLORyellow;
延遲線:IF(NOT(Delaylast),Delay,0),COLOR33AA33,LINETHICK0;
PARTLINE(NOT(Delaylast),Delay),COLORyellow,LINETHICK1;

半年線:=EMA(C,148);
年線:=EMA(C,250);
EXPLAIN(C>=半年線,'股價在半年線之上'),COLORYELLOW;
EXPLAIN(C>=年線,'股價在年線之上 '),COLORYELLOW;
EXPLAIN(C<半年線,'股價在半年線之下 '),COLORCYAN ;
EXPLAIN(C<年線,'股價在年線之下 '),COLORCYAN;
EXPLAIN(半年線>=REF(半年線,1),'半年線趨勢向上'),COLORYELLOW;
EXPLAIN(年線>=REF(年線,1),'年線趨勢向上 '),COLORYELLOW;
EXPLAIN(半年線<REF(半年線,1),'半年線趨勢向下 '),COLORCYAN ;
EXPLAIN(年線<REF(年線,1),'年線趨勢向下 '),COLORCYAN;
股道賣出價預測:=(CLOSE*2.5/100+CLOSE);
股道買入價預測:=C-CLOSE*2.5/100;
EXPLAINEX(COST(50),'市場平均成本:',COST(50),2,0),COLORYELLOW;
EXPLAINEX(COST(4),'主力平均成本:',COST(4),2,0),COLORRED;
EXPLAINEX(COST(30),'控盤平均成本:',COST(30),2,0),COLORRED;
EXPLAINEX(COST(75),'拉昇平均成本:',COST(75),2,0),COLORYELLOW;
EXPLAINEX(COST(95),'頂部平均成本:',COST(95),2,0),COLORYELLOW;
EXPLAINEX(COST(0.05),'底部平均成本:',COST(0.05),2,0),COLORYELLOW;
EXPLAINEX(股道賣出價預測,'股道賣出價預測:',股道賣出價預測,2,0),COLOR0099FF;
EXPLAINEX(股道買入價預測,'股道買入價預測:',股道買入價預測,2,0),COLOR0099FF;
EXPLAINEX(1,'獲利盤比例=',WINNER(C)*100,2,0),COLORRED;
EXPLAINEX(1,'套牢盤比例=',100-WINNER(C)*100,2,0),COLORCYAN;
多空1:=MA((V/(H-L)),4);
多空2:=ABS(C-O);
多空3:=V/(H-L);
EXPLAIN(多空3<多空1 AND 多空2<MA(多空2,4),'資金無入場意願，萎縮中'),COLORCYAN;
EXPLAIN(多空3<多空1 AND 多空2>MA(多空2,4),'場內資金有運作行為'),COLORYELLOW;
EXPLAIN(多空3>多空1 AND 多空2<MA(多空2,4),'多空雙方激烈爭奪中'),COLORYELLOW;
EXPLAIN(多空3>多空1 AND 多空2>MA(多空2,4),'場外資金介入（或出局）意願強烈'),COLOR0099FF;
TR := SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14);
HD := HIGH-REF(HIGH,1);
LD := REF(LOW,1)-LOW;
DMP:= SUM(IF(HD>0 AND HD>LD,HD,0),14);
DMM:= SUM(IF(LD>0 AND LD>HD,LD,0),14);
PDI:= DMP*100/TR;
MDI:= DMM*100/TR;
ADX:= MA(ABS(MDI-PDI)/(MDI+PDI)*100,6);
ADXR:=(ADX+REF(ADX,6))/2;
EXPLAIN(CROSS(PDI,MDI),'PDI線從下向上突破MDI線，顯示有新多頭進場，為買進信號'),COLORGREEN;
EXPLAIN(CROSS(MDI,PDI),'PDI線從上向下跌破MDI線，顯示有新空頭進場，為賣出信號'),COLORCYAN;
EXPLAIN(ADX>REF(ADX,1),'ADX值持續高於前一日，行情將維持原趨勢'),COLORYELLOW;
EXPLAIN(ADX<REF(ADX,1) AND ADX<20,'ADX值遞減，降到20以下，且橫向行進時，市場氣氛為盤整'),COLOR0099FF;
EXPLAIN(ADX<REF(ADX,1) AND REF(ADX,1)<REF(ADX,2) and REF(ADX,2)>REF(ADX,3) AND REF(ADX,3)>REF(ADX,4),'ADX值從上升傾向轉為下降時，表明行情即將反轉'),COLORYELLOW;
TYP := (HIGH + LOW + CLOSE)/3;
CCI:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));
EXPLAIN(cci<-180,'CCI指標底位，買入機會'),COLORGREEN;
EXPLAIN(cci>180,'CCI指標高位，賣出機會'),COLORCYAN;
EXPLAIN((V/CAPITAl)>0.075,'換手過大，小心主力出逃，短期頭部'),COLORCYAN;
WR:=-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14));
EXPLAIN(WR>-20,'W&R超買，短線即將見頂，應及時賣出'),COLORCYAN;
EXPLAIN(WR<-80,'W&R超賣，短線即將見底，應伺機買進'),COLORGREEN;
MTM := CLOSE-REF(CLOSE,6);
MTMMA := MA(MTM,6);
EXPLAIN(CROSS(MTM,MTMMA) and MTMMA<-0.8,'MTM從下向上突破MTMMA，買入信號'),COLORGREEN;
EXPLAIN(CROSS(MTMMA,MTM) and MTMMA>0.8,'MTM從上向下跌破MTMMA，賣出信號'),COLORCYAN;
LC := REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
EXPLAIN(RSI1>85,'6日RSI超買,防止回擋'),COLORCYAN;
EXPLAIN(RSI1>80,'6日RSI向上突破85，超買,考慮賣出'),COLORCYAN;
EXPLAIN(RSI1<15,'6日RSI超賣,隨時有可能反彈'),COLORYELLOW;
EXPLAIN(RSI1<15,'6日RSI向下跌破15，超賣，考慮買入'),COLORYELLOW;
EXPLAIN(CROSS(RSI1,15),'6日RSI向上突破15，買進信號'),COLORGREEN;
EXPLAIN(CROSS(RSI1,85),'6日RSI向下跌破85，賣出信號'),COLORCYAN;
PSY:=COUNT(CLOSE>REF(CLOSE,1),12)/12*100;
布林1:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
布林2:=布林1+3*STD(布林1,10);
布林3:=布林1-3*STD(布林1,10);
布林4:=(布林2-布林3)/布林2<0.03;
布林5:=(布林2-布林3)/布林2>0.18;
布林6:=(MA(C,60)-MA(C,5))/MA(C,60)>0.15;
布林7:=(MA(C,5)-MA(C,60))/MA(C,5)>0.15;
EXPLAIN(布林4,'多空布林收斂中，有變盤的可能，上下自己分析'),COLORYELLOW;
EXPLAIN(布林6 AND 布林5 AND C>o ,'布林上下乖離太大，有反彈的可能'),COLORGREEN;
EXPLAIN(布林7 AND 布林5 AND C<o ,'布林上下乖離太大，有回落的可能'),COLORCYAN;

最後由 jkdens1 在 2004-12-21 20:01 編輯

向版主報告此篇 |

2004-12-21 19:57

jkdens1
中級會員

註冊日期: Dec 2003
來　　自: Taiwan
文章數量: 58

奇怪有圖形出現,再弄一次
n:=7;
M:=22;

標準線 : (HHV(HIGH,N)+LLV(LOW,N))/2,COLOR88FF88;
轉折線 : (HHV(HIGH,M)+LLV(LOW,M))/2,COLORMAGENTA;

第1領先距 : (標準線+轉折線)/2,colorcccccc{663388},LINETHICK2,shift26;
第二領先距 : (HHV(HIGH,2*N)+LLV(LOW,2*N))/2,colorRED,LINETHICK2,shift26;
FILLRGN(第1領先距<第二領先距,第1領先距,第二領先距),COLORcc6666,shift26;
FILLRGN(第1領先距>第二領先距,第1領先距,第二領先距),COLORDD9999,shift26;

STICKLINE(open>=close ,close ,open,9,0 ),COLORaaaaaa;
STICKLINE(open>=close ,close ,open,6,0 ),COLORbbbbbb;
STICKLINE(open>=close ,close ,open,2.4,0 ),COLORcccccc;
STICKLINE(open>=close ,close ,open,1.1,0 ),COLORdddddd;

STICKLINE(close>open,close,open,9,0 ),COLOr6666cc;
STICKLINE(close>open,close,open,6 ,0 ),COLOR7777dd;
STICKLINE(close>open,close,open,2.4 ,0 ),COLOR8888ee;
STICKLINE(close>open,close,open,1.1 ,0 ),COLOR9999ff;

STICKLINE(close>open,open,low,0.5,0 ),COLOR1199ff;
STICKLINE(close>open,close,HIGH,0.5 ,0 ),COLOR1199ff;
STICKLINE(open>=close,close,low,0.5 ,0 ),COLORcccccc;
STICKLINE(open>=close,open,HIGH,0.5 ,0 ),COLORcccccc;
A:=IF(CAPITAL,(AMOUNT/VOL)/100,(OPEN+HIGH+LOW+CLOSE*2)/5);
STICKLINE(BETWEEN(A,HIGH,LOW),A,A,3,0),COLORFFAA33,LINETHICK2;

Delay:=C,LINETHICK0;

Delaylast:=BACKSET(ISLASTbar,N);
收價:c,LINETHICK0,COLORyellow;
延遲線:IF(NOT(Delaylast),Delay,0),COLOR33AA33,LINETHICK0;
PARTLINE(NOT(Delaylast),Delay),COLORyellow,LINETHICK1;

半年線:=EMA(C,148);
年線:=EMA(C,250);
EXPLAIN(C>=半年線,'股價在半年線之上'),COLORYELLOW;
EXPLAIN(C>=年線,'股價在年線之上 '),COLORYELLOW;
EXPLAIN(C<半年線,'股價在半年線之下 '),COLORCYAN ;
EXPLAIN(C<年線,'股價在年線之下 '),COLORCYAN;
EXPLAIN(半年線>=REF(半年線,1),'半年線趨勢向上'),COLORYELLOW;
EXPLAIN(年線>=REF(年線,1),'年線趨勢向上 '),COLORYELLOW;
EXPLAIN(半年線<REF(半年線,1),'半年線趨勢向下 '),COLORCYAN ;
EXPLAIN(年線<REF(年線,1),'年線趨勢向下 '),COLORCYAN;
股道賣出價預測:=(CLOSE*2.5/100+CLOSE);
股道買入價預測:=C-CLOSE*2.5/100;
EXPLAINEX(COST(50),'市場平均成本:',COST(50),2,0),COLORYELLOW;
EXPLAINEX(COST(4),'主力平均成本:',COST(4),2,0),COLORRED;
EXPLAINEX(COST(30),'控盤平均成本:',COST(30),2,0),COLORRED;
EXPLAINEX(COST(75),'拉昇平均成本:',COST(75),2,0),COLORYELLOW;
EXPLAINEX(COST(95),'頂部平均成本:',COST(95),2,0),COLORYELLOW;
EXPLAINEX(COST(0.05),'底部平均成本:',COST(0.05),2,0),COLORYELLOW;
EXPLAINEX(股道賣出價預測,'股道賣出價預測:',股道賣出價預測,2,0),COLOR0099FF;
EXPLAINEX(股道買入價預測,'股道買入價預測:',股道買入價預測,2,0),COLOR0099FF;
EXPLAINEX(1,'獲利盤比例=',WINNER(C)*100,2,0),COLORRED;
EXPLAINEX(1,'套牢盤比例=',100-WINNER(C)*100,2,0),COLORCYAN;
多空1:=MA((V/(H-L)),4);
多空2:=ABS(C-O);
多空3:=V/(H-L);
EXPLAIN(多空3<多空1 AND 多空2<MA(多空2,4),'資金無入場意願，萎縮中'),COLORCYAN;
EXPLAIN(多空3<多空1 AND 多空2>MA(多空2,4),'場內資金有運作行為'),COLORYELLOW;
EXPLAIN(多空3>多空1 AND 多空2<MA(多空2,4),'多空雙方激烈爭奪中'),COLORYELLOW;
EXPLAIN(多空3>多空1 AND 多空2>MA(多空2,4),'場外資金介入（或出局）意願強烈'),COLOR0099FF;
TR := SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14);
HD := HIGH-REF(HIGH,1);
LD := REF(LOW,1)-LOW;
DMP:= SUM(IF(HD>0 AND HD>LD,HD,0),14);
DMM:= SUM(IF(LD>0 AND LD>HD,LD,0),14);
PDI:= DMP*100/TR;
MDI:= DMM*100/TR;
ADX:= MA(ABS(MDI-PDI)/(MDI+PDI)*100,6);
ADXR:=(ADX+REF(ADX,6))/2;
EXPLAIN(CROSS(PDI,MDI),'PDI線從下向上突破MDI線，顯示有新多頭進場，為買進信號'),COLORGREEN;
EXPLAIN(CROSS(MDI,PDI),'PDI線從上向下跌破MDI線，顯示有新空頭進場，為賣出信號'),COLORCYAN;
EXPLAIN(ADX>REF(ADX,1),'ADX值持續高於前一日，行情將維持原趨勢'),COLORYELLOW;
EXPLAIN(ADX<REF(ADX,1) AND ADX<20,'ADX值遞減，降到20以下，且橫向行進時，市場氣氛為盤整'),COLOR0099FF;
EXPLAIN(ADX<REF(ADX,1) AND REF(ADX,1)<REF(ADX,2) and REF(ADX,2)>REF(ADX,3) AND REF(ADX,3)>REF(ADX,4),'ADX值從上升傾向轉為下降時，表明行情即將反轉'),COLORYELLOW;
TYP := (HIGH + LOW + CLOSE)/3;
CCI:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));
EXPLAIN(cci<-180,'CCI指標底位，買入機會'),COLORGREEN;
EXPLAIN(cci>180,'CCI指標高位，賣出機會'),COLORCYAN;
EXPLAIN((V/CAPITAl)>0.075,'換手過大，小心主力出逃，短期頭部'),COLORCYAN;
WR:=-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14));
EXPLAIN(WR>-20,'W&R超買，短線即將見頂，應及時賣出'),COLORCYAN;
EXPLAIN(WR<-80,'W&R超賣，短線即將見底，應伺機買進'),COLORGREEN;
MTM := CLOSE-REF(CLOSE,6);
MTMMA := MA(MTM,6);
EXPLAIN(CROSS(MTM,MTMMA) and MTMMA<-0.8,'MTM從下向上突破MTMMA，買入信號'),COLORGREEN;
EXPLAIN(CROSS(MTMMA,MTM) and MTMMA>0.8,'MTM從上向下跌破MTMMA，賣出信號'),COLORCYAN;
LC := REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
EXPLAIN(RSI1>85,'6日RSI超買,防止回擋'),COLORCYAN;
EXPLAIN(RSI1>80,'6日RSI向上突破85，超買,考慮賣出'),COLORCYAN;
EXPLAIN(RSI1<15,'6日RSI超賣,隨時有可能反彈'),COLORYELLOW;
EXPLAIN(RSI1<15,'6日RSI向下跌破15，超賣，考慮買入'),COLORYELLOW;
EXPLAIN(CROSS(RSI1,15),'6日RSI向上突破15，買進信號'),COLORGREEN;
EXPLAIN(CROSS(RSI1,85),'6日RSI向下跌破85，賣出信號'),COLORCYAN;
PSY:=COUNT(CLOSE>REF(CLOSE,1),12)/12*100;
布林1:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
布林2:=布林1+3*STD(布林1,10);
布林3:=布林1-3*STD(布林1,10);
布林4:=(布林2-布林3)/布林2<0.03;
布林5:=(布林2-布林3)/布林2>0.18;
布林6:=(MA(C,60)-MA(C,5))/MA(C,60)>0.15;
布林7:=(MA(C,5)-MA(C,60))/MA(C,5)>0.15;
EXPLAIN(布林4,'多空布林收斂中，有變盤的可能，上下自己分析'),COLORYELLOW;
EXPLAIN(布林6 AND 布林5 AND C>o ,'布林上下乖離太大，有反彈的可能'),COLORGREEN;
EXPLAIN(布林7 AND 布林5 AND C<o ,'布林上下乖離太大，有回落的可能'),COLORCYAN;