奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- 如何寫預先告知 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=10037)

如何寫預先告知

小弟想寫一個預先告知的公式,但不得其門而入,請前輩幫忙

RSI : 明日收盤價在多少時,R6會向上穿越80 或 向下穿越80

MACD : 明日收盤價收在多少時, MACD.DIFF會穿越0軸 或 MACD.DIFF會向下穿越 MACD.DEA

KD : 明日收盤價在多少時,KD.K會向上穿越80 或 向下穿越80

懇請幫忙,感謝..

//////////// RSI

Kline(O,H,L,C,0);

P:= SYSPARAM(1);

Vertline(P=barpos) ,colorcyan ,linedot;

N:=6;
M:=1;

Rate:=80/100;

A1:= MAX(C- REF(CLOSE,1),0);
A2:= ABS(C- REF(CLOSE,1));
Cu:= SMA(A1,N,M);
Cd:= SMA(A2,N,M);
C1:= Close;

A1_s_A2_m_Rate := (N-M)*(Cd[P]*Rate -Cu[P])/M;

狀況_明收_大_今收: A1_s_A2_m_Rate / (1-Rate) + C1[P]; // if 明收 > 今收

狀況_明收_小_今收: A1_s_A2_m_Rate / Rate + C1[P]; // if 明收 < 今收

__________________
偶而是不是也感覺有些老
像個大人般的戀愛
有時心情糟
請你相信我在你身邊別忘了

////// MACD

Kline(O,H,L,C,0);
P:= SYSPARAM(1);

Vertline(P=barpos) ,colorcyan ,linedot;

SHORT:=12;
LONG:=26;

cS:= EMA(C,SHORT);
cL:= EMA(C,LONG);

C1: (Long-1)*(Short+1)*cL[P] - (Long+1)*(Short-1)*cS[P] ;
C1:= C1/(Long-Short)/2;

__________________
偶而是不是也感覺有些老
像個大人般的戀愛
有時心情糟
請你相信我在你身邊別忘了

///// KD


KD 有 "無限多組解" , 所以等於是無解

http://www.chiefox.com.tw/bbs/showt...=&threadid=9913

__________________
偶而是不是也感覺有些老
像個大人般的戀愛
有時心情糟
請你相信我在你身邊別忘了

哇,太利害了...
alpha..有你真好...謝謝你....

alpha前輩:
抱歉,我發現我問錯了,
原問題是 MACD.DIFF會穿越0軸
正確應該是 MACD.DEA 會穿越0軸
還有漏了
MACD.DIFF會向下(向上) 穿越 MACD.DEA ,麻煩你了..

///// MACD
// 數值驗證, 正確無誤

input:
SHORT(12,5,1000),
LONG(26,5,1000),
M(9,1,100);

Kline(O,H,L,C,0);

P:= SYSPARAM(1);
Vertline(P=barpos) ,colorcyan ,linedot;

cS:= EMA(C,SHORT);
cL:= EMA(C,LONG);
DIFF:=cS - cL;
DEA:=EMA(DIFF,M);

value:= (Long-1)*(Short+1)*cL[P] - (Long+1)*(Short-1)*cS[P];
value:= value/(Long-Short)/2;
polyline(barpos>=P OR barpos=datacount-1,value), colorwhite;
明_DIFF_穿0軸: value, colorwhite ,linethick0;

value:= (Long-1)*(Short+1)*cL[P] - (Long+1)*(Short-1)*cS[P] - (M-1)*DEA[P]/2*(Long+1)*(Short+1);
value:= value/(Long-Short)/2;
polyline(barpos>=P OR barpos=datacount-1,value), coloryellow;
明_DEA_穿0軸: value, coloryellow ,linethick0;

value:= (Long-1)*(Short+1)*cL[P] - (Long+1)*(Short-1)*cS[P] + DEA[P]*(Long+1)*(Short+1);
value:= value/(Long-Short)/2;
polyline(barpos>=P OR barpos=datacount-1,value), colormagenta;
明_DIFF_DEA_交會: value,colormagenta ,linethick0;

__________________
偶而是不是也感覺有些老
像個大人般的戀愛
有時心情糟
請你相信我在你身邊別忘了