0
鱼兄能否将以下飞狐用的螺旋历法公式改成通达信的?
VOLUME:VOL,VOLSTICK;
DRAWTEXT(HHV(VOL,20)=VOL AND HHV(VOL,60)>VOL,VOL*1.3,'20');
DRAWTEXT(HHV(VOL,60)=VOL AND HHV(VOL,120)>VOL,VOL*1.2,'60');
DRAWTEXT(HHV(VOL,120)=VOL AND HHV(VOL,180)>VOL,VOL*1.2,'120');
DRAWTEXT(HHV(VOL,180)=VOL,VOL*1.1,'180');
流通: FINANCE(7), COLORGRAY, LINETHICK0;
市盈: DYNAINFO(39), COLORGRAY, LINETHICK0;
INPUT: K1LF(100, 0, 9999, 1);
VARIABLE: K1LX=IF(DATACOUNT>K1LF, DATACOUNT-K1LF, 1), 临时[4]=0, I=0;
HH:=HIGH;LXLF:=LOW;临时[4]:=99999;
FOR I=K1LX TO DATACOUNT DO BEGIN
临时[1]:=IF(HH[I]>临时[2], I, 临时[1]);临时[2]:=IF(HH[I]>临时[2], HH[I], 临时[2]);
临时[3]:=IF(LXLF[I]<临时[4], I, 临时[3]);临时[4]:=IF(LXLF[I]<临时[4], LXLF[I], 临时[4]);
END;
K1LX:=MIN(临时[1], 临时[3]);LXLF[K1LX]:=-1.618;
临时[1]:=1;临时[2]:=1;临时[3]:=ROUND(SQRT(临时[2])*29.5306+K1LX);HH[K1LX]:=临时[3];
WHILE 临时[3]<=DATACOUNT DO BEGIN
临时[2]:=临时[2]+临时[1];临时[1]:=临时[2]-临时[1];LXLF[临时[3]]:=-0.618;
HH[临时[3]]:=ROUND(SQRT(临时[2])*29.5306+K1LX);临时[3]:=HH[临时[3]];
END;
DRAWTEXT(LXLF<0 && MOD(COUNT(LXLF<0, 0), 2)=0 && MOD(LDAY, 28)<=3, 0, 'S'), COLORYELLOW, ALIGN0, PXUP20;
DRAWTEXT(LXLF<0 && MOD(COUNT(LXLF<0, 0), 2)=0 && ABS(LDAY-15)<=3, 0, 'B'), COLORYELLOW, ALIGN0, PXUP20;
DRAWTEXT(LXLF<0 && MOD(COUNT(LXLF<0, 0), 2)=2 && MOD(LDAY, 28)<=3, 0, 'B'), COLORYELLOW, ALIGN0, PXUP20;
DRAWTEXT(LXLF<0 && MOD(COUNT(LXLF<0, 0), 2)=2 && ABS(LDAY-15)<=3, 0, 'S'), COLORYELLOW, ALIGN0, PXUP20;
DRAWICON(LXLF<0 && MOD(COUNT(LXLF<0, 0), 2)=0, 0, 10);{↑↓}
DRAWICON(LXLF<0 && MOD(COUNT(LXLF<0, 0), 2)=1, 0, 12);
DRAWICON(LXLF<-1, 0, 11);
距离下一变盘点天数:REF(HH, BARSLAST(LXLF<0))-BARPOS, COLORGRAY, LINETHICK0;
阴历:LDAY, COLORGRAY, LINETHICK0;
止损:HHV(CLOSE, 18)*0.9,COLORGRAY,LINETHICK0;
涨停: REF(CLOSE,1)*1.1, COLORGRAY, LINETHICK0;
跌停: REF(CLOSE,1)*0.9, COLORGRAY, LINETHICK0;