以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  请教金字塔怎么写  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=145413)

--  作者:黑暗孔雀
--  发布时间:2016/12/28 13:44:45
--  请教金字塔怎么写

VAR1:=((CLOSE - LLV(LOW,15))/(HHV(HIGH,15) - LLV(LOW,15)))*(100);
VAR2:=REVERSE(VAR1);
VAR3:=SMA(VAR1,5,1);
K:=SMA(VAR3,3,1);
D:=SMA(K,3,1);
85,STICK,LINETHICK7,COLORFF0000;
DRAWTEXT(CROSS(K,D) AND (D < 18),15,\'买\'),COLOR00FF00;
DRAWTEXT(CROSS(D,K) AND (D > 75),85,\'卖\'),COLORFFFFFF;
STICKLINE((K >= D),K,D,6,0),COLOR0000A8;
STICKLINE((K >= D),K,D,5,0),COLOR0000C0;
STICKLINE((K >= D),K,D,4,0),COLOR0000E0;
STICKLINE((K >= D),K,D,3,0),COLOR0000F0;
STICKLINE((K >= D),K,D,2,0),COLOR0000D0;
STICKLINE((K >= D),K,D,1,0),COLOR8080FF;
STICKLINE((K <= D),K,D,6,0),COLOR008800;
STICKLINE((K <= D),K,D,5,0),COLOR009900;
STICKLINE((K <= D),K,D,4,0),COLOR00AA00;
STICKLINE((K <= D),K,D,3,0),COLOR00BB00;
STICKLINE((K <= D),K,D,2,0),COLOR00CC00;
STICKLINE((K <= D),K,D,1,0),COLOR00DD00;

 

麻烦老师把上面这个写成个交易程序,手数可选,1-99的范围,多谢


--  作者:jinzhe
--  发布时间:2016/12/28 13:48:44
--  

VAR1:=((CLOSE - LLV(LOW,15))/(HHV(HIGH,15) - LLV(LOW,15)))*(100);
VAR2:=REVERSE(VAR1);
VAR3:=SMA(VAR1,5,1);

input:n(1,1,99,1);
K:=SMA(VAR3,3,1);
D:=SMA(K,3,1);
85,STICK,LINETHICK7,COLORFF0000;
DRAWTEXT(CROSS(K,D) AND (D < 18),15,\'买\'),COLOR00FF00;
DRAWTEXT(CROSS(D,K) AND (D > 75),85,\'卖\'),COLORFFFFFF;

if cross(k,d) and d<18 then begin

    sellshort(1,0,marketr);

    buy(holding=0,1,marketr);

end

 

if cross(d,k) and d>75 then begin

    sell(1,0,marketr);

    buyshort(holding=0,1,marketr);

end


STICKLINE((K >= D),K,D,6,0),COLOR0000A8;
STICKLINE((K >= D),K,D,5,0),COLOR0000C0;
STICKLINE((K >= D),K,D,4,0),COLOR0000E0;
STICKLINE((K >= D),K,D,3,0),COLOR0000F0;
STICKLINE((K >= D),K,D,2,0),COLOR0000D0;
STICKLINE((K >= D),K,D,1,0),COLOR8080FF;
STICKLINE((K <= D),K,D,6,0),COLOR008800;
STICKLINE((K <= D),K,D,5,0),COLOR009900;
STICKLINE((K <= D),K,D,4,0),COLOR00AA00;
STICKLINE((K <= D),K,D,3,0),COLOR00BB00;
STICKLINE((K <= D),K,D,2,0),COLOR00CC00;
STICKLINE((K <= D),K,D,1,0),COLOR00DD00;


--  作者:黑暗孔雀
--  发布时间:2016/12/28 18:14:30
--  
多谢多谢