奇狐社區論壇 - [問題]修改程式

奇狐社區論壇 : Powered by vBulletin version 2.3.0

奇狐社區論壇 > 指標公式 > 問題交流 > [問題]修改程式

上一主題下一主題

作者

主題

bp252039
資深會員

註冊日期: Aug 2006
來　　自: TAIPEI
文章數量: 156

[問題]修改程式

問題：
1.均線上揚段，線條顏色顯示紅色，而下跌段則顯示綠色
2.均線上揚時drawtext「線走勢:」顯示"上揚"，均線下跌時則顯示「下降」
__以下列程式為基礎，請問要如何修改才能滿足問題需求，麻煩版主指導___

M13:ma(c,13) Colorff00ff,LINETHICK1,PRECISION1;
扣13:=ref(c,12);
DRAWTEXT(ISLASTBAR,M13,'13均線'+numtostr(M13,2)) ALIGN3 Colorff00ff,shift2;
DRAWTEXT(ISLASTBAR,扣13,'13均扣:'+numtostr(扣13,2)) ALIGN3 pxdn40 Colorwhite,shift2;
DRAWTEXT(ISLASTBAR,扣13,'線走勢:'+numtostr(扣13,2)) ALIGN3 pxdn80 Coloryellow,shift2;

__________________
尊重趨勢，見風轉舵
做對加碼，跌破加碼點則全數出清

向版主報告此篇 |

2013-01-22 14:55

cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18251

回覆: [問題]修改程式

引用:
最初由 bp252039 發表
問題：
1.均線上揚段，線條顏色顯示紅色，而下跌段則顯示綠色
2.均線上揚時drawtext「線走勢:」顯示"上揚"，均線下跌時則顯示「下降」
__以下列程式為基礎，請問要如何修改才能滿足問題需求，麻煩版主指導___

M13:ma(c,13) Colorff00ff,LINETHICK1,PRECISION1;
扣13:=ref(c,12);
DRAWTEXT(ISLASTBAR,M13,'13均線'+numtostr(M13,2)) ALIGN3 Colorff00ff,shift2;
DRAWTEXT(ISLASTBAR,扣13,'13均扣:'+numtostr(扣13,2)) ALIGN3 pxdn40 Colorwhite,shift2;
DRAWTEXT(ISLASTBAR,扣13,'線走勢:'+numtostr(扣13,2)) ALIGN3 pxdn80 Coloryellow,shift2;

M13:ma(c,13) LINETHICK0,PRECISION1;
UD:=SGN(M13-ref(M13,1));
PARTLINE(UD=1,M13) colorred; //上揚
PARTLINE(UD<=0,M13) colorgreen; // 下降或相等
扣13:=ref(c,12);
DRAWTEXT(ISLASTBAR,M13,'13均線'+numtostr(M13,2)) ALIGN3 Colorff00ff,shift2;
DRAWTEXT(ISLASTBAR,扣13,'13均扣:'+numtostr(扣13,2)) ALIGN3 pxdn40 Colorwhite,shift2;
DRAWTEXT(UD=1 and ISLASTBAR,扣13,'線走勢:'+numtostr(扣13,2)) ALIGN3 pxdn80 colorred,shift2;
DRAWTEXT(UD<=0 and ISLASTBAR,扣13,'線走勢:'+numtostr(扣13,2)) ALIGN3 pxdn80 colorgreen,shift2;

向版主報告此篇 |

2013-01-22 16:31

bp252039
資深會員

註冊日期: Aug 2006
來　　自: TAIPEI
文章數量: 156

回覆: 回覆: [問題]修改程式

引用:
最初由 cgjj 發表
M13:ma(c,13) LINETHICK0,PRECISION1;
UD:=SGN(M13-ref(M13,1));
PARTLINE(UD=1,M13) colorred; //上揚
PARTLINE(UD<=0,M13) colorgreen; // 下降或相等
扣13:=ref(c,12);
DRAWTEXT(ISLASTBAR,M13,'13均線'+numtostr(M13,2)) ALIGN3 Colorff00ff,shift2;
DRAWTEXT(ISLASTBAR,扣13,'13均扣:'+numtostr(扣13,2)) ALIGN3 pxdn40 Colorwhite,shift2;
DRAWTEXT(UD=1 and ISLASTBAR,扣13,'線走勢:'+numtostr(扣13,2)) ALIGN3 pxdn80 colorred,shift2;
DRAWTEXT(UD<=0 and ISLASTBAR,扣13,'線走勢:'+numtostr(扣13,2)) ALIGN3 pxdn80 colorgreen,shift2;

太棒了，感謝版主！

__________________
尊重趨勢，見風轉舵
做對加碼，跌破加碼點則全數出清

向版主報告此篇 |

2013-01-22 16:59

全部時間均為台灣時間, 現在時間為16:05

上一主題下一主題

顯示可列印版本 |

訂閱此主題

論壇跳轉:

主題評分:

論壇規定:

你不可以發表新主題
你不可以回覆文章
你不可以上傳附件
你不可以編輯自己的文章

HTML語法禁止
vB 語法核准
表情符號核准
貼圖語法[IMG]核准

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