到奇狐勝券首頁 奇狐社區論壇 購買奇狐勝券 試用奇狐勝券
 
論壇首頁 你可以在這裡編輯你的資料，查看短訊，訂閱主題和論壇參數等等 免費會員註冊 會員列表 論壇幫助 論壇日曆 論壇搜索 加入我的最愛 登出論壇  
奇狐社區論壇 : Powered by vBulletin version 2.3.0 奇狐社區論壇 > 指標公式 > 應用交流 > 順勢而為-分時週期 來自MACD論璮
  上一主題   下一主題
作者
主題 發表新主題    回覆主題
fugoal
資深會員

註冊日期: Jan 2004
來　　自: 台北台灣
文章數量: 133
順勢而為-分時週期 來自MACD論璮

母圖檔名改為; 移動均价

均价:=(HIGH+4*LOW+OPEN+CLOSE)/7;
均价差:= EMA(均价,13) - EMA(均价,34);
移動均价:= EMA(均价差,5);
差:=(均价差-移動均价)*5;
A:=IF(差>=1000 ,1000 ,IF(差<=均价,均价,差) );
分水岭:forcast(forcast(A,31),10), COLOR0088FF LINETHICK2;
分水均价:=X4* EMA(分水岭,13) COLOR1C71E3 POINTDOT LINETHICK1;
上漲:=if(A>分水岭,A,分水岭),colorred;
下跌:=if(A<分水岭,A,分水岭),colorgreen;
以上為-母圖
===========================

XA:=IsLastBar ;
XB:=Backset( XA=1, 36 ) ;
Y:=BarsLast( XB=1 ) ;
X:=Y + 1 ;

AP:=DATAPERIOD;

X1:=IF(AP=2,1,IF(AP=3,1,IF(AP=4,1,IF(AP=5,1,IF(AP=6,1,IF(AP=10, 6,0))))));
X2:=IF(AP=1,1,IF(AP=2,1,IF(AP=3,1,IF(AP=10, 6,0))));
X3:=IF(AP=3,1,IF(AP=4,1,IF(AP=5,1,IF(AP=10, 6,0))));
X4:=IF(AP=6,1,IF(AP=7,1,IF(AP=8,1,IF(AP=10, 6,0))));
X5:=IF(AP=4,1,IF(AP=5,1,IF(AP=10, 6,0)));
X6:=IF(AP=7,1,IF(AP=8,1,IF(AP=10, 6,0)));
X7:=IF(AP=1,1,IF(AP=10, 6,0));
X8:=IF(AP=2,1,IF(AP=10, 6,0));
X9:=IF(AP=3,1,IF(AP=10, 6,0));
X10:=IF(AP=4,1,IF(AP=10, 6,0));
X11:=IF(AP=5,1,IF(AP=10, 6,0));
X12:=IF(AP=6,1,IF(AP=10, 6,0));


StickLine( IsUp , CLOSE , HIGH , 0.1 , 0 ) , ColorRed ;
StickLine( IsUp , OPEN , LOW , 0.1 , 0 ) , ColorRed ;
StickLine( IsUp , CLOSE , OPEN , 8 , 1 ) , ColorRed ;
StickLine( IsDown , HIGH , LOW , 0.1 , 0 ) , Color009933 ;
StickLine( IsDown , CLOSE , OPEN , 8 , 0 ) , Color009933;
StickLine( IsEqual and C>=REF( C , 1 ) , HIGH , LOW , 0.1 , 0 ) , ColorRed ;
StickLine( IsEqual and C>=REF( C , 1 ) , CLOSE , OPEN , 8 , 0 ) , ColorRed ;
StickLine( IsEqual and C<REF( C , 1 ) , HIGH , LOW , 0.1 , 0 ) , Color009933;
StickLine( IsEqual and C<REF( C , 1 ) , CLOSE , OPEN , 8 , 0 ) ,Color009933;
XX:=Barscount( Close ) ; { 以下是描繪第一個交易日的K線 }
StickLine( ( IsUp or IsEqual ) and ( XX = 1 ) , CLOSE , HIGH , 0.1 , 0 ) , ColorRed ;
StickLine( ( IsUp or IsEqual ) and ( XX = 1 ) , CLOSE , LOW , 0.1 , 0 ) , ColorRed ;
StickLine( ( IsUp or IsEqual ) and ( XX = 1 ) , CLOSE , OPEN , 8 , 1 ) , ColorRed ;
StickLine( IsDown and XX = 1 , HIGH, LOW, 0.1, 0 ) , Colorgreen;
StickLine( IsDown and XX = 1 , CLOSE , OPEN , 8 , 0 ) , Colorgreen ;

均价:=(HIGH+4*LOW+OPEN+CLOSE)/7;
均价差:= EMA(均价,13) - EMA(均价,34);
移動均价:= EMA(均价差,5);
差:=(均价差-移動均价)*5;
A:=IF(差>=1000 ,1000 ,IF(差<=均价,均价,差) );
分水岭:forcast(forcast(A,31),10), COLOR0088FF LINETHICK2;
分水均价:=X4* EMA(分水岭,13) COLOR1C71E3 POINTDOT LINETHICK1;
上漲:=if(A>分水岭,A,分水岭),colorred;
下跌:=if(A<分水岭,A,分水岭),colorgreen;



F1分水岭:=X3*"移動均价.分水岭#MIN15";
F1分水均价:=X3*"移動均价.分水均价#MIN15";
F3分水岭:=X3*"移動均价.分水岭#MIN30";
F3分水均价:=X3*"移動均价.分水均价#MIN30";
F6分水岭:=X3*"移動均价.分水岭#MIN60";
F6分水均价:=X3*"移動均价.分水均价#MIN60";
D分水岭:X1*"移動均价.分水岭#DAY" COLOR0088CC;
D分水均价:X1*"移動均价.分水均价#DAY" COLOR1C71E3 POINTDOT LINETHICK1;
W分水岭:=X4*"移動均价.分水岭#WEEK" COLORE3B382;
W分水均价:=X4*"移動均价.分水均价#WEEK" COLORFF8000 LINETHICK2;
M分水岭:=X4*"移動均价.分水岭#MONTH" COLORCCB3BC;
M分水均价:=X4*"移動均价.分水均价#MONTH"COLORC7A2DD LINETHICK2;

PARTLINE(上漲,上漲) COLORYELLOW;
PARTLINE(下跌,下跌) COLORGREEN;
PARTLINE(分水均价,分水均价) POINTDOT LINETHICK1;
PARTLINE(分水岭<分水均价,分水岭) COLOR009933 LINETHICK2;

PARTLINE(F3分水岭,F3分水岭) COLORWHITE;
PARTLINE(F6分水岭,F6分水岭) COLORMAGENTA;
PARTLINE(F6分水均价,F6分水均价) COLORGRAY POINTDOT LINETHICK1;

PARTLINE(W分水岭,W分水岭) COLORE3B382;
PARTLINE(W分水均价,W分水均价) COLORFF8000 POINTDOT LINETHICK1;
PARTLINE(M分水岭,M分水岭) COLORCCB3BC;
PARTLINE(M分水均价,M分水均价) COLORC7A2DD POINTDOT LINETHICK1;

向版主報告此篇 | 查IP位址
Old Post 2004-11-17 08:01
fugoal 現在離線 點選這裡查看 fugoal 的個人資料 查找更多關於 fugoal 的文章 增加 fugoal 至你的好友列表 編輯/刪除訊息 引用回覆
bingoliao
中級會員

註冊日期: May 2004
來　　自: 台中市
文章數量: 56

第7行無法通過電腦調試.標示為未定義的標識符.可惜.

向版主報告此篇 | 查IP位址
Old Post 2004-11-17 18:22
bingoliao 現在離線 點選這裡查看 bingoliao 的個人資料 點選這裡給 bingoliao 傳送一條短訊 查找更多關於 bingoliao 的文章 增加 bingoliao 至你的好友列表 編輯/刪除訊息 引用回覆
jkdens1
中級會員

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

是不是改成如此即可

移動均價

AP:=DATAPERIOD;
X4:=IF(AP=6,1,IF(AP=7,1,IF(AP=8,1,IF(AP=10, 6,0))));

均價:=(HIGH+4*LOW+OPEN+CLOSE)/7;
均價差:= EMA(均價,13) - EMA(均價,34);
移動均價:= EMA(均價差,5);
差:=(均價差-移動均價)*5;
A:=IF(差>=1000 ,1000 ,IF(差<=均價,均價,差) );
分水嶺:forcast(forcast(A,31),10), COLOR0088FF LINETHICK2;
分水均價:=X4*EMA(分水嶺,13) COLOR1C71E3 POINTDOT LINETHICK1;
上漲:=if(A>分水嶺,A,分水嶺),colorred;
下跌:=if(A<分水嶺,A,分水嶺),colorgreen;

向版主報告此篇 | 查IP位址
Old Post 2004-11-17 19:16
jkdens1 現在離線 點選這裡查看 jkdens1 的個人資料 點選這裡給 jkdens1 傳送一條短訊 查找更多關於 jkdens1 的文章 增加 jkdens1 至你的好友列表 編輯/刪除訊息 引用回覆
bingoliao
中級會員

註冊日期: May 2004
來　　自: 台中市
文章數量: 56

謝謝FUGOAL大大分享.謝謝JKDENS1大大幫忙.參考參考.3q.

向版主報告此篇 | 查IP位址
Old Post 2004-11-17 20:54
bingoliao 現在離線 點選這裡查看 bingoliao 的個人資料 點選這裡給 bingoliao 傳送一條短訊 查找更多關於 bingoliao 的文章 增加 bingoliao 至你的好友列表 編輯/刪除訊息 引用回覆
fugoal
資深會員

註冊日期: Jan 2004
來　　自: 台北台灣
文章數量: 133

引用:
最初由 jkdens1 發表
是不是改成如此即可

移動均價

AP:=DATAPERIOD;
X4:=IF(AP=6,1,IF(AP=7,1,IF(AP=8,1,IF(AP=10, 6,0))));

均價:=(HIGH+4*LOW+OPEN+CLOSE)/7;
均價差:= EMA(均價,13) - EMA(均價,34);
移動均價:= EMA(均價差,5);
差:=(均價差-移動均價)*5;
A:=IF(差>=1000 ,1000 ,IF(差<=均價,均價,差) );
分水嶺:forcast(forcast(A,31),10), COLOR0088FF LINETHICK2;
分水均價:=X4*EMA(分水嶺,13) COLOR1C71E3 POINTDOT LINETHICK1;
上漲:=if(A>分水嶺,A,分水嶺),colorred;
下跌:=if(A<分水嶺,A,分水嶺),colorgreen;



母圖檔名改為; 移動均价

均价:=(HIGH+4*LOW+OPEN+CLOSE)/7;
均价差:= EMA(均价,13) - EMA(均价,34);
移動均价:= EMA(均价差,5);
差:=(均价差-移動均价)*5;
A:=IF(差>=1000 ,1000 ,IF(差<=均价,均价,差) );
分水岭:forcast(forcast(A,31),10), COLOR0088FF LINETHICK2;
分水均价:EMA(分水岭,13) COLOR1C71E3 POINTDOT LINETHICK1;
上漲:=if(A>分水岭,A,分水岭),colorred;
下跌:=if(A<分水岭,A,分水岭),colorgreen;


以上為-母圖===========================


SORRY 請把 母圖中 分水均价:=X4* EMA(分水岭,13) COLOR1C71E3 POINTDOT 去掉 =X4* ,

或是如 jkdens1兄之文
加上
AP:=DATAPERIOD;
X4:=IF(AP=6,1,IF(AP=7,1,IF(AP=8,1,IF(AP=10, 6,0)))); {只限定 日線 周線 月線 出現}.

======================================

AP:=DATAPERIOD;{週期}

X1:=IF(AP=2,1,IF(AP=3,1,IF(AP=4,1,IF(AP=5,1,IF(AP=6,1,IF(AP=10, 6,0)))))); {只限定 5分線 15分線 30分線 60分線 出現}
X2:=IF(AP=1,1,IF(AP=2,1,IF(AP=3,1,IF(AP=10, 6,0))));{只限定 1分線 5分線 15分線 出現}
X3:=IF(AP=3,1,IF(AP=4,1,IF(AP=5,1,IF(AP=10, 6,0))));{只限定 15分線 30分線 60分線 出現}
X4:=IF(AP=6,1,IF(AP=7,1,IF(AP=8,1,IF(AP=10, 6,0))));{只限定 日線 周線 月線 出現}
X5:=IF(AP=4,1,IF(AP=5,1,IF(AP=10, 6,0)));{只限定 30分線 60分線 出現}
X6:=IF(AP=7,1,IF(AP=8,1,IF(AP=10, 6,0))); {只限定 周線 月線 出現}
X7:=IF(AP=1,1,IF(AP=10, 6,0)); {只限定 1分線 出現}
X8:=IF(AP=2,1,IF(AP=10, 6,0));{只限定 5分線 出現}
X9:=IF(AP=3,1,IF(AP=10, 6,0));{只限定 15分線 出現}
X10:=IF(AP=4,1,IF(AP=10, 6,0));{只限定 30分線 出現}
X11:=IF(AP=5,1,IF(AP=10, 6,0));{只限定 60分線 出現}
X12:=IF(AP=6,1,IF(AP=10, 6,0));{只限定 日線 出現}

最後由 fugoal 在 2004-11-18 08:52 編輯 向版主報告此篇 | 查IP位址
Old Post 2004-11-18 06:44
fugoal 現在離線 點選這裡查看 fugoal 的個人資料 查找更多關於 fugoal 的文章 增加 fugoal 至你的好友列表 編輯/刪除訊息 引用回覆
全部時間均為台灣時間, 現在時間為03:31 發表新主題    回覆主題
  上一主題   下一主題
顯示可列印版本 | 訂閱此主題

論壇跳轉:
主題評分:

論壇規定:
你不可以發表新主題
你不可以回覆文章
你不可以上傳附件
你不可以編輯自己的文章 		HTML語法禁止
vB 語法核准
表情符號核准
貼圖語法[IMG]核准
 

本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。

Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved.  聯絡我們