公式模型编写问题提交-同花顺指标改成金字塔金字塔客服中心 - 专业程序化交易软件提供商

以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://www.weistock.com/bbs/list.asp?boardid=4)
----  同花顺指标改成金字塔  (http://www.weistock.com/bbs/dispbbs.asp?boardid=4&id=176269)

--  作者：lyc3651
--  发布时间：2020/5/26 16:06:59
--  同花顺指标改成金字塔

A1:=CLOSE>REF(CLOSE,4);
A2:=BARSLASTCOUNT(A1);
T9:=IF(A2=9,9,0);
T1:=IF(A2>0 AND A2<=8,1,0)*A2;
DRAWTEXT(T9=9,H*1.04,\'9\'),colorgreen;
DRAWTEXT(T1>5,H*1.04,TOSTRING(T1,0)),COLORff00ff;
B1:=CLOSE<REF(CLOSE,4);//www.70822.com
B2:=BARSLASTCOUNT(B1);
N9:=IF(B2=9,9,0);
N1:=IF(B2>0 AND B2<=8,1,0)*B2;
DRAWTEXT(N9=9,L*0.98,\'9\'),colorred;
DRAWTEXT(N1>5,L*0.98,TOSTRING(N1,0)),colorligreen;

--  作者：FireScript
--  发布时间：2020/5/26 16:36:51
--
A1:=CLOSE>REF(CLOSE,4);
A2:=0;
i:=1;
WHILE i DO
BEGIN
IF REF(A1,i-1) THEN
BEGIN
A2:=A2+1;
I:=I+1;
END
IF NOT(REF(A1,i-1)) THEN BREAK;
END

T9:=IF(A2=9,9,0);
T1:=IF(A2>0 AND A2<=8,1,0)*A2;
DRAWTEXT(T9=9,H*1.04,\'9\'),colorgreen;
DRAWTEXT(T1>5,H*1.04,NUMTOSTR(T1,0)),COLORff00ff;
B1:=CLOSE<REF(CLOSE,4);//www.70822.com

B2:=0;
j:=1;
WHILE j DO
BEGIN
IF REF(B1,j-1) THEN
BEGIN
B2:=B2+1;
j:=j+1;
END
IF NOT(REF(B1,j-1)) THEN BREAK;
END

N9:=IF(B2=9,9,0);
N1:=IF(B2>0 AND B2<=8,1,0)*B2;
DRAWTEXT(N9=9,L*0.98,\'9\'),colorred;
DRAWTEXT(N1>5,L*0.98,NUMTOSTR(N1,0)),colorligreen;

[此贴子已经被作者于2020/5/26 16:40:46编辑过]