以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://222.73.7.161/bbs/index.asp)
--  公式模型编写问题提交  (http://222.73.7.161/bbs/list.asp?boardid=4)
----  请老师把文华的转换一下,谢谢了  (http://222.73.7.161/bbs/dispbbs.asp?boardid=4&id=162329)
--  作者：sunjach1980
--  发布时间：2018/3/27 22:17:40
--  请老师把文华的转换一下,谢谢了


A1:=(REF(O,1) + REF(C,1)) / 2;
A2:=(H + L + C) / 3;
A3:=MAX(MAX(A1,A2),H);
A4:=MIN(MIN(A1,A2),L);
A5:=IF(A1 < A2,A3 - A4 + A2 - A1,A3 - A4);
A6:=IF(A1 > A2,A3 - A4 + A1 - A2,A3 - A4);
A7:=A5 / (A5 + A6) * VOL * MAX(ABS(A1 - A2) / (A3 - A4),0.15) / 10000;
A8:=A6 / (A5 + A6) * VOL * MAX(ABS(A1 - A2) / (A3 - A4),0.15) / 10000;
主力:(A7 - A8) * 25000,NODRAW;
LOWV:=LLV(LOW,9);
HIGHV:=HHV(HIGH,9);
RSV:=EMA((CLOSE-LOWV)/(HIGHV-LOWV)*100,3);
K:EMA(RSV,3);
D:MA(K,3);
XA:ISUP;
XB:主力<0;
XC:K<D;
XA&&XB&&XC,SPK;
C>=SKPRICE+8*MINPRICE,BP;
C<=SKPRICE-10*MINPRICE,BP;
YA:ISDOWN;
YB:主力>0;
YC:K>D;
YA&&YB&&YC,BPK;
C<=BKPRICE-8*MINPRICE,SP;
C>=BKPRICE+10*MINPRICE,SP;
AUTOFILTER;

[此贴子已经被作者于2018/3/27 22:18:31编辑过]
--  作者：wenarm
--  发布时间：2018/3/28 0:00:48
--  
A1:=(REF(O,1) + REF(C,1)) / 2;
A2:=(H + L + C) / 3;
A3:=MAX(MAX(A1,A2),H);
A4:=MIN(MIN(A1,A2),L);
A5:=IF(A1 < A2,A3 - A4 + A2 - A1,A3 - A4);
A6:=IF(A1 > A2,A3 - A4 + A1 - A2,A3 - A4);
A7:=A5 / (A5 + A6) * VOL * MAX(ABS(A1 - A2) / (A3 - A4),0.15) / 10000;
A8:=A6 / (A5 + A6) * VOL * MAX(ABS(A1 - A2) / (A3 - A4),0.15) / 10000;
主力:(A7 - A8) * 25000,NODRAW;
LOWV:=LLV(LOW,9);
HIGHV:=HHV(HIGH,9);
RSV:=EMA((CLOSE-LOWV)/(HIGHV-LOWV)*100,3);
K:EMA(RSV,3);
D:MA(K,3);
XA:ISUP;
XB:主力<0;
XC:K<D;
if XA&&XB&&XC=1 then begin
 //SPK;
 sell(holding>0,1,MARKET);
 buyshort(holding=0,1,MARKET);
end
if (C>=ENTERPRICE+8*MINDIFF or C<=ENTERPRICE-10*MINDIFF) and holding<0  then begin
 sellshort(1,1,MARKET);
end
YA:ISDOWN;
YB:主力>0;
YC:K>D;
if YA&&YB&&YC=1 then begin
 sellshort(holding<0,1,MARKET);
 buy(holding=0,1,MARKET);
end
if (C<=ENTERPRICE-8*MINDIFF or  C>=ENTERPRICE+10*MINDIFF) and holding>0 then begin
 sell(1,1,MARKET);
end