奇狐社區論壇
在這個頁面顯示本主題全部的 3 個文章

奇狐社區論壇 (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=17452)


由 bp252039 在 2013-01-22 14:55 發表:

[問題]修改程式

問題:
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;

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


由 cgjj 在 2013-01-22 16:31 發表:

回覆: [問題]修改程式

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


由 bp252039 在 2013-01-22 16:59 發表:

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

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



太棒了,感謝版主!

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


全部時間均為台灣時間, 現在時間為14:06
在這個頁面顯示本主題全部的 3 個文章


Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.

簡愛洋行 製作 Copyright 2003-. All Rights Reserved.