 |
steven401
中級會員

註冊日期: Dec 2004
來 自: 台北
文章數量: 80 |
請問自動時間轉折顯示
我用Zig寫了一個程式自動的計算時間轉折也自動顯示, 最後一根K棒到每一個波峰及波谷的間隔時間, 波峰的間隔時間以黃色顯示 , 波谷的間隔時間以青色顯示 , 請問 :
1. 我想要當時間轉折遇到費波南茲系數的 3, 5, 8, 13, 21, 34, 55, 89等的系數時電腦自動顯示波峰的間隔時間以紅色顯示 , 其餘的波峰還是以黃色顯示 , 波谷的間隔時間以綠色顯示 , 其餘的波谷還是以青色顯示 ,
2.當滑鼠的十字游標打開後顯示的波峰或波谷的間隔時間會自動扣抵十字游標的位置 .
謝謝指導!!
請參考附圖:
__________________
Steven
|
|
向版主報告此篇 |  |
|
2006-06-14 18:29 |
|
|
|  |
 |
steven401
中級會員

註冊日期: Dec 2004
來 自: 台北
文章數量: 80 |
回覆: 請問自動時間轉折顯示
引用: 最初由 steven401 發表
我用Zig寫了一個程式自動的計算時間轉折也自動顯示, 最後一根K棒到每一個波峰及波谷的間隔時間, 波峰的間隔時間以黃色顯示 , 波谷的間隔時間以青色顯示 , 請問 :
1. 我想要當時間轉折遇到費波南茲系數的 3, 5, 8, 13, 21, 34, 55, 89等的系數時電腦自動顯示波峰的間隔時間以紅色顯示 , 其餘的波峰還是以黃色顯示 , 波谷的間隔時間以綠色顯示 , 其餘的波谷還是以青色顯示 ,
2.當滑鼠的十字游標打開後顯示的波峰或波谷的間隔時間會自動扣抵十字游標的位置 .
謝謝指導!!
請參考附圖:
steven401 附帶上了此圖片:
__________________
Steven
|
|
向版主報告此篇 |  |
|
2006-06-14 19:08 |
|
|
|  |
 |
kkkkkk
資深會員
註冊日期: Dec 2003
來 自:
文章數量: 291 |
引用: 最初由 king 發表
把這兩個公式撰寫邏輯整合即可
動態均線扣抵(轉貼)
支撐線
不用這麼複雜吧
z:zig(4,2);
pk:peakbars(4,2,1),linethick0;
pb:ref(barpos,pk),linethick0;
//pp:datacount-pb,linethick0,coloryellow;
pp:sysparam(1)-pb,linethick0,coloryellow;
drawnumber(pk=0 and pp>0,z,pp,0),align0,pxup20,coloryellow;
drawnumber(pk=0 and (pp=3 or pp=5 or pp=8 or pp=13 or pp=21 or pp=34 or pp=55 or pp=89),z,pp,0),colorred,align0,pxup20;
|
最後由 kkkkkk 在 2006-06-16 19:47 編輯 |
向版主報告此篇 |  |
|
2006-06-16 05:25 |
|
|
|  |
 |
steven401
中級會員

註冊日期: Dec 2004
來 自: 台北
文章數量: 80 |
引用: 最初由 kkkkkk 發表
不用這麼複雜吧
z:zig(4,2);
pkeakbars(4,2,1),linethick0;
pb:ref(barpos,pk),linethick0;
//pp:datacount-pb,linethick0,coloryellow;
pp:sysparam(1)-pb,linethick0,coloryellow;
drawnumber(pk=0 and pp>0,z,pp,0),align0,pxup20,coloryellow;
drawnumber(pk=0 and (pp=3 or pp=5 or pp=8 or pp=13 or pp=21 or pp=34 or pp=55 or pp=89),z,pp,0),colorred,align0,pxup20;
謝謝!! 這正是我所須要的.
__________________
Steven
|
|
向版主報告此篇 |  |
|
2006-06-16 17:54 |
|
|
|  |
 |
p0068
資深會員
註冊日期: Jan 2004
來 自: 台中市
文章數量: 564 |
引用: 最初由 kkkkkk 發表
不用這麼複雜吧
z:zig(4,2);
pkeakbars(4,2,1),linethick0;
pb:ref(barpos,pk),linethick0;
//pp:datacount-pb,linethick0,coloryellow;
pp:sysparam(1)-pb,linethick0,coloryellow;
drawnumber(pk=0 and pp>0,z,pp,0),align0,pxup20,coloryellow;
drawnumber(pk=0 and (pp=3 or pp=5 or pp=8 or pp=13 or pp=21 or pp=34 or pp=55 or pp=89),z,pp,0),colorred,align0,pxup20;
???
pkeakbars(4,2,1),linethick0;
是否為
pk : peakbars(4,2,1),linethick0;
3q!
__________________
shujenwen
|
|
向版主報告此篇 |  |
|
2006-06-16 18:57 |
|
|
|  |
 |
kkkkkk
資深會員
註冊日期: Dec 2003
來 自:
文章數量: 291 |
引用: 最初由 p0068 發表
???
pkeakbars(4,2,1),linethick0;
是否為
pk : peakbars(4,2,1),linethick0;
3q!
是的,原碼被smile搞亂了
|
|
向版主報告此篇 |  |
|
2006-06-16 19:46 |
|
|
|  |
 |
steven401
中級會員

註冊日期: Dec 2004
來 自: 台北
文章數量: 80 |
完成的畫面及程式源碼給有緣人分享 .
{MZIG16:參數設定: P1
週(16)
月(16)
}
MZ16:=ZIG(CLOSE,p1);
StickLine(IsUP AND MZ16>=REF(MZ16,1) , HIGH , LOW , 0 , 0 ) , COLORRED,{Color5050FF} ;
StickLine(IsUp AND MZ16>=REF(MZ16,1), CLOSE , OPEN ,7 , 0 ) , Colorred ;
StickLine(IsDown AND MZ16>=REF(MZ16,1), HIGH , LOW ,0, 1 ) , Colorred;
StickLine(IsDown AND MZ16>=REF(MZ16,1), CLOSE , OPEN ,7 , 1 ) , Colorred ;
StickLine(IsUP AND MZ16<REF(MZ16,1) , HIGH , LOW , 0 , 1 ) , COLORgreen ;
StickLine(IsUp AND MZ16<REF(MZ16,1), CLOSE , OPEN ,7 , 1 ) , Colorgreen ;
StickLine(IsDown AND MZ16<REF(MZ16,1), HIGH , LOW ,0, 0 ) , Colorgreen ;
StickLine(IsDown AND MZ16<REF(MZ16,1), CLOSE , OPEN ,7 , 0 ) , Colorgreen ;
StickLine( IsEqual and MZ16>=REF(MZ16,1) , HIGH , LOW , 0,1) , Colorred ;
StickLine( IsEqual and MZ16>=REF(MZ16,1) , CLOSE , OPEN , 7, 1 ) , Colorred ;
StickLine( IsEqual and MZ16<REF(MZ16,1) , HIGH , LOW , 0 ,1 ) , Colorgreen ;
StickLine( IsEqual and MZ16<REF(MZ16,1) , CLOSE , OPEN , 7 ,1 ) , Colorgreen ;
X:=Barscount( Close ) ;
{ 以下是描繪第一個交易日的K線,以補前面含蓋的不足 }
StickLine( IsEqual and X = 1 , HIGH, LOW,7, 0 ) , Color5050FF ;
StickLine( IsEqual and X = 1 , CLOSE , OPEN ,7, 0 ) , Color5050FF ;
MZ16:ZIG(CLOSE,p1),COLORYELLOW;
MZ16升%:((MZ16-TROUGH(MZ16,p1,1))/TROUGH(MZ16,p1,1))*100,colorred,LINETHICK0;
MZ16跌%:((MZ16-PEAK(MZ16,p1,1))/PEAK(MZ16,p1,1))*100,colorgreen,LINETHICK0;
SX:=BarsCount(close) ;
KFNo:Sum( 1 , 0 ),linethick0;
KNo:c*0,linethick0,coloryellow;
<%
KNo=FFL.VarData("KNo")
EndNo = ubound(KNo)
for i=0 to EndNo
KNo(i)=EndNo-i+1
next
FFL.VarData("KNo")=KNo
%>
PU:=PEAKBARS(CLOSE,P1,1);
PB:=REF(barpos,PU);
PH:=sysparam(1)-PB+1,coloryellow;
drawnumber(PU=0 and PH>0,MZ16,PH,0),ALIGN0,pxup55,coloryellow;
drawnumber(PU=0 and (PH=3 or PH=5 or PH=8 or PH=13 or PH=21 or PH=34 or PH=55 or PH=89),mz16,PH,0),COLORRED,align0,pxup55;
PD:=TROUGHBARS(CLOSE,p1,1);
PC:=REF(barpos,PD);
PL:=sysparam(1)-PC+1,COLORCYAN;
drawnumber(PD=0 and PL>0,MZ16,PL,0),align0,PXDN20,COLORCYAN;
drawnumber(PD=0 and (PL=3 or PL=5 or PL=8 or PL=13 or PL=21 or PL=34 or PL=55 or PL=89),mz16,PL,0),COLORRED,align0,PXDN20;
steven401 附帶上了此圖片:
__________________
Steven
|
|
向版主報告此篇 |  |
|
2006-06-16 22:10 |
|
|
|  |
 |
p0068
資深會員
註冊日期: Jan 2004
來 自: 台中市
文章數量: 564 |
引用: 最初由 steven401 發表
[B]完成的畫面及程式源碼給有緣人分享 .
{MZIG16:參數設定: P1
週(16)
月(16)
}
MZ16:=ZIG(CLOSE,p1);
B]
此二行錯誤
???
MZ16升%: (MZ16-TROUGH(MZ16,p1,1))/TROUGH(MZ16,p1,1))*100,colorred,LINETHICK0;
MZ16跌%: (MZ16-PEAK(MZ16,p1,1))/PEAK(MZ16,p1,1))*100,colorgreen,LINETHICK0;
__________________
shujenwen
|
|
向版主報告此篇 |  |
|
2006-06-16 23:11 |
|
|
|  |
 |
kkkkkk
資深會員
註冊日期: Dec 2003
來 自:
文章數量: 291 |
論壇上像你這樣大方無私的人愈來愈少了,給你鼓掌!!
|
|
向版主報告此篇 |  |
|
2006-06-17 09:14 |
|
|
|  |
 |
steven401
中級會員

註冊日期: Dec 2004
來 自: 台北
文章數量: 80 |
引用: 最初由 p0068 發表
此二行錯誤
???
MZ16升%: (MZ16-TROUGH(MZ16,p1,1))/TROUGH(MZ16,p1,1))*100,colorred,LINETHICK0;
MZ16跌%: (MZ16-PEAK(MZ16,p1,1))/PEAK(MZ16,p1,1))*100,colorgreen,LINETHICK0;
此兩行應以 : 取代表情符號才正確 , 不知是何原因我由奇狐的公式編輯中複製然後貼上來就被改變了 .
應用此指標可以節省分析波浪及時間轉折的時間 , 應用在月k及週k有較高的參考性 .
__________________
Steven
|
|
向版主報告此篇 |  |
|
2006-06-17 10:01 |
|
|
|  |
 |
goodddog
中級會員
註冊日期: Oct 2004
來 自:
文章數量: 42 |
語句缺少分號?
drawnumber(PU=0 and PH>0,MZ16,PH,0),ALIGN0,pxup55,coloryellow;
這句明明有分號,竟然解譯不過, 不知問題在哪?!
|
|
向版主報告此篇 |  |
|
2006-06-20 18:51 |
|
|
|  |
 |
p0068
資深會員
註冊日期: Jan 2004
來 自: 台中市
文章數量: 564 |
引用: 最初由 kkkkkk 發表
是的,原碼被smile搞亂了
p0068 附帶上了此圖片:
__________________
shujenwen
|
|
向版主報告此篇 |  |
|
2006-06-20 19:46 |
|
|
|  |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|