奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 應用交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=33)
-- 順勢而為-分時週期 來自MACD論璮 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=2000)

順勢而為-分時週期 來自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;

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

是不是改成如此即可

移動均價

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;

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

引用:

---

最初由 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;

---