以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://222.73.7.161/bbs/index.asp)
--  公式模型编写问题提交  (http://222.73.7.161/bbs/list.asp?boardid=4)
----  求助,求助老师帮我写一个公式码!  (http://222.73.7.161/bbs/dispbbs.asp?boardid=4&id=172868)

--  作者:liyuan0050
--  发布时间:2019/11/5 13:50:59
--  求助,求助老师帮我写一个公式码!
要求是:RSI的任意两条线数值分别设为13和35,KD数值是5.3.3。
           当RSI13线大于35线时,KD金叉主图上对应K线提示“多”,死叉不提示。
           当RSI13线小于35线时,KD死叉主图上对应K线提示"空",金叉不提示。
           当价格在55日均线上方,MACD金叉,主图上对应K线提示”多“,死叉不提示。
           当价格在55日均线下方,MACD死叉,主图上对应K线提示”空“,金叉不提示。


--  作者:liyuan0050
--  发布时间:2019/11/5 14:00:43
--  
要求是:RSI的任意两条线数值分别设为13和35,KD数值是5.3.3。
           当RSI13线大于35线时,KD金叉主图上对应K线提示“多”,死叉不提示。
           当RSI13线小于35线时,KD死叉主图上对应K线提示"空",金叉不提示。
           当价格在55日均线上方,MACD金叉,主图上对应K线提示”多“,死叉不提示。
           当价格在55日均线下方,MACD死叉,主图上对应K线提示”空“,金叉不提示。

老师,我补充一下,KD的提示多空字的颜色和MACD的提示多空字的颜色区别开,谢谢老师!!

--  作者:FireScript
--  发布时间:2019/11/5 14:14:54
--  
 input:p(26,20,100,8),p1(13,2,100,1),P2(35,2,100,1),s(12,5,40,4),m(9,2,60,6),n(5,1,100,10),pP1(3,2,40,4),Pp2(3,2,40,4);//参数设置
 
//KDJ部分
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:=SMA(RSV,PP1,1);
D:=SMA(K,PP2,1);
J:=3*K-2*D;

//macd部分
DIFF : =EMA(CLOSE,S) - EMA(CLOSE,P);
DEA  := EMA(DIFF,M);
MACD1 := 2*(DIFF-DEA), COLORSTICK;

//rsi部分
LC:=REF(CLOSE,1);
RSI1:SMA(MAX(CLOSE-LC,0),P1,1)/SMA(ABS(CLOSE-LC),P1,1)*100;
RSI2:SMA(MAX(CLOSE-LC,0),P2,1)/SMA(ABS(CLOSE-LC),P2,1)*100;


macdjc:=cross(diff,dea);//macd金叉
macdsc:=cross(dea,diff);
kdjjc:=cross(k,d);//kdj金叉
kdjsc:=cross(d,k);

ma55:ma(c,55);//均线


DRAWTEXT((RSI1>RSI2 AND kdjjc) or (c>ma55 and macdjc) and not(macdsc) and not(kdjsc),l-1*MINDIFF ,\'多\' ,colorred,0 );
DRAWTEXT((RSI1<RSI2 AND kdjsc) or (c<ma55 and macdsc) and not(macdjc) and not(kdjjc), l-1*MINDIFF, \'空\', colorblue,0);

供参考。

--  作者:liyuan0050
--  发布时间:2019/11/5 16:17:52
--  
先感谢老师,我如果在这个指标系统里设定:MACD的金叉“多”字为红色,死叉“空”字为绿色
                                                         KD的金叉“多”字为黄色,死叉“空”字为蓝色。
                                                 该怎么编写公式码?

--  作者:FireScript
--  发布时间:2019/11/5 16:23:35
--  
DRAWTEXT( (c>ma55 and macdjc) and   not(kdjsc),l-1*MINDIFF ,\'多\' ,colorred,0 );
DRAWTEXT((c<ma55 and macdsc) and   not(kdjjc), l-1*MINDIFF, \'空\', COLORGREEN,0);

DRAWTEXT((RSI1>RSI2 AND kdjjc)  and not(kdjsc),l-1*MINDIFF ,\'多\' ,COLORYELLOW,0 );
DRAWTEXT((RSI1<RSI2 AND kdjsc)  and not(kdjjc), l-1*MINDIFF, \'空\', colorblue,0);

后面的绘图语句替换下。

--  作者:liyuan0050
--  发布时间:2019/11/6 16:25:31
--  
谢谢老师