欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 公式模型编写问题提交 → 求助，求助老师帮我写一个公式码！

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有3493人关注过本帖树形打印复制链接

主题：求助，求助老师帮我写一个公式码！
帅哥哟，离线，有人找我吗？
FireScript
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：14496 积分：0 威望：0 精华：0 注册：2017/7/4 13:40:18 		  发帖心情 Post By：2019/11/5 14:14:54    Post IP：180.169.30.6[显示全部帖子]

 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);

供参考。

命数如织，当如磐石。
 回到顶部
帅哥哟，离线，有人找我吗？
FireScript
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：14496 积分：0 威望：0 精华：0 注册：2017/7/4 13:40:18 		  发帖心情 Post By：2019/11/5 16:23:35    Post IP：180.169.30.6[显示全部帖子]

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);

后面的绘图语句替换下。

命数如织，当如磐石。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.57031 秒, 7 次数据查询