分时主图公式被压缩得很严重,恳求老师帮忙解决，谢谢！

yoyotsai123 发表于 2011-8-13 11:41

分时主图公式被压缩得很严重,恳求老师帮忙解决，谢谢！
QR:=240;
{引用昨买今卖}
预测低一:="昨买今卖.预测低一#day";
预测低一1:="昨买今卖.预测低一1#day";
预测低二:="昨买今卖.预测低二#day";
预测低二1:="昨买今卖.预测低二1#day";
平均价一:="昨买今卖.平均价一#day";{强势高价}
平均价二:="昨买今卖.平均价二#day";{弱势高价}
开盘价:=DYNAINFO(4);
最高价:=DYNAINFO(5);
最高价1:="预测股价.最高价1#day";
最低价:=DYNAINFO(6);
最低价1:="预测股价.最低价1#day";
收盘价:=DYNAINFO(7);
昨收:=DYNAINFO(3);
{前30分钟的股价}
VERTLINE(TIME=95000,2),layer0;
VERTLINE(TIME=101000,2),layer0;
VERTLINE(TIME=102000,2),Colorgreen,layer0;
DRAWTEXT(TIME=95000,C,NUMTOSTR(C)),Colorffffff,LINETHICK2,align0;
DRAWTEXT(TIME=101000,C,NUMTOSTR(C)),Colorffffff,LINETHICK2,align0;
{引用预测股价设定预测范围}
STICKLINE((预测低二<预测低一),预测低二,预测低一,10,0),COLOR008B00,linethick2,layer7;
STICKLINE((预测低一<预测低二),预测低一,预测低二,10,0),COLOR008B00,linethick2,layer7;
DRAWTEXT(BARSTATUS=2,预测低一,'预测低一：'+NUMTOSTRN(预测低一,2)+'元' ),COLORffffff,LINETHICK2;
DRAWTEXT(BARSTATUS=2,预测低二,'预测低二：'+NUMTOSTRN(预测低二,2)+'元' ),COLORffffff,LINETHICK2;
DRAWTEXT(TIME=93000,预测低二*0.995,'                                  低吸区 '),Colorffffff,LINETHICK3,layer0;
STICKLINE((平均价二<平均价一),平均价二,平均价一,10,0),COLORblue,linethick2,layer7;
STICKLINE((平均价一<平均价二),平均价一,平均价二,10,0),COLORblue,linethick2,layer7;
DRAWTEXT(BARSTATUS=2,平均价一,'强势高价：'+NUMTOSTRN(平均价一,2)+'元' ),COLORred,LINETHICK2;
DRAWTEXT(BARSTATUS=2,平均价二,'弱势高价：'+NUMTOSTRN(平均价二,2)+'元' ),COLORred,LINETHICK2;
DRAWTEXT(TIME=93000,平均价一,'                                  高抛区 '),Colorffffff,LINETHICK3,layer0;
{忘了作者动态阻力及支撑}
MA30:EMA(CLOSE,30),linethick1,colorred,layer0;
强弱:=EMA(CLOSE,QR);
PARTLINE(强弱,强弱>=REF(强弱,1),RGB(255,0,0),强弱<=REF(强弱,1),RGB(0,255,0)),linethick2,layer1;
STICKLINE((MA30>强弱),MA30,强弱,1,0),COLOR0000FF,layer1;{红色}
STICKLINE((MA30<强弱),MA30,强弱,1,0),COLOR00FF00,layer1;{绿色}
H1:=MAX(DYNAINFO(3),DYNAINFO(5));
L1:=MIN(DYNAINFO(3),DYNAINFO(6));
P1:=H1-L1;
阻力:L1+P1*7/8,COLORgreen,linethick1,layer0;
支撑:L1+P1*0.5/8,COLORyellow,linethick1,layer0;
DRAWTEXT(BARSTATUS=2,阻力,'阻力：'+NUMTOSTRN(阻力,2)+'元' ),COLORgreen,LINETHICK2,layer1;
DRAWTEXT(BARSTATUS=2,支撑,'支撑：'+NUMTOSTRN(支撑,2)+'元' ),COLORgreen,LINETHICK2,layer1;
现价:=CLOSE;
STICKLINE(CROSS(支撑,现价),支撑,阻力,1,0),COLORffffff,linethick1,layer1,POINTDOT;
DRAWTEXT(LONGCROSS(支撑,现价,2),支撑*0.998,'●买'+NUMTOSTRN(C,2)),COLORffffff,linethick2,layer0,align1;
DRAWTEXT(LONGCROSS(现价,阻力,2),现价*1.002,'●卖'+NUMTOSTRN(C,2)),COLORffffff,linethick2,layer0,align1;
P:=60;
{引用分时副图显示涨跌}
MACD:="分时副图.MACD";
DRAWRECTREL(510,820+P,610,900+P,rgb(47,79,79)),colorffffff,layer1;
DRAWTEXTREL(510,840+P,' ▼目前下跌中'),colorgreen,linethick2;
上升:((MACD>REF(MACD,1)) AND (MACD<0)) or ((MACD>REF(MACD,1)) AND (MACD>0)),LINETHICK0;
ssxd0:=上升;
IF BARSTATUS=2 AND ssxd0 THEN BEGIN
DRAWRECTREL(510,820+P,610,900+P,rgb(255,0,0)),layer0,colorffffff;
DRAWTEXTREL(510,840+P,' ▲目前上升中'),colorffffff,linethick2,layer0;
END
{引用强弱显示涨跌}
DRAWRECTREL(510,730+P,610,810+P,rgb(47,79,79)),layer0,colorffffff;
DRAWTEXTREL(510,750+P,' ▼ 下跌波段'),colorgreen,linethick2,layer0;
QR1:=强弱>=REF(强弱,1);
IF BARSTATUS=2 AND QR1 THEN BEGIN
DRAWRECTREL(510,730+P,610,810+P,rgb(255,0,0)),colorffffff,layer0;
DRAWTEXTREL(510,750+P,' ▲ 上升波段'),colorffffff,linethick2,layer0;
END
{预测今日最高价最低价}
预测高低二:=预测低二-预测低二1;
预测高低一:=预测低一-预测低一1;
ycgd0:=预测高低二>0 or 预测高低一>0;
ycgd1:=预测高低二<0 or 预测高低一<0;
IF BARSTATUS=2 AND ycgd0 THEN BEGIN
DRAWRECTREL(620,820+P,890,900+P,rgb(255,0,0)),colorffffff,layer1;
DRAWTEXTREL(620,840+P,' ▲ 最高价最低价可能高于昨日'),colorffffff,linethick2,layer0;
END
ELSE
IF BARSTATUS=2 AND ycgd1 THEN BEGIN
DRAWRECTREL(620,820+P,890,900+P,rgb(47,79,79)),colorffffff,layer1;
DRAWTEXTREL(620,840+P,' ▼ 最高价最低价可能低于昨日'),colorgreen,linethick2,layer0;
END
{设定时间值}
IF TIME=95000 THEN BEGIN
CC950:C,linethick0,precis2;
MA950:MA30,linethick0,precis2;
强弱950:强弱,linethick0,precis2;
END;
IF TIME=101000 THEN BEGIN
CC101:C,linethick0,precis2;
MA101:MA30,linethick0,precis2;
强弱101:强弱,linethick0,precis2;
END;
{10:10后预测今日走势}
DRAWRECTREL(620,730+P,890,810+P,rgb(0,0,255)),colorffffff,layer0;
DRAWTEXTREL(620,750+P,' 10:10 预测今日走势'),colorffffff,linethick2,layer0;
ff:=1.0045;{价差调整值}
分时价差:CC101*ff-CC950,precis3,linethick0;
fsqs1:=分时价差>0 and MA950>强弱950 and MA101>强弱101 ;{上升红柱1}
fsqs2:=分时价差>0 and MA950<强弱950 and MA101>强弱101 ;{上升红柱2}
fsqs3:=分时价差>0 and MA950>强弱950 and MA101<强弱101 ;{上升绿柱1}
fsqs4:=分时价差>0 and MA950<强弱950 and MA101<强弱101 ;{上升绿柱2}
fsqss1:=分时价差<0 and MA950>强弱950 and MA101>强弱101;{下跌红柱1}
fsqss2:=分时价差<0 and (MA950>强弱950 or MA101>强弱101);{下跌红柱2}
fsqss3:=分时价差<0 and MA950<强弱950 and MA101<强弱101 ;{下跌绿柱1}
fsqss4:=分时价差<0 and (MA950<强弱950 or MA101<强弱101) ;{下跌绿柱2}
IF BARSTATUS=2 AND fsqs1 THEN BEGIN
DRAWRECTREL(620,730+P,890,810+P,rgb(255,0,0)),colorffffff,layer0;
DRAWTEXTREL(620,750+P,' 1 ▲ 红柱上升趋势一定看涨'),colorffffff,linethick2,layer0;
END
ELSE
IF BARSTATUS=2 AND fsqs2 THEN BEGIN
DRAWRECTREL(620,730+P,890,810+P,rgb(255,0,0)),colorffffff,layer0;
DRAWTEXTREL(620,750+P,' 2 ▲ 红柱上升趋势看涨趋势'),colorffffff,linethick2,layer0;
END
ELSE
IF BARSTATUS=2 AND fsqs3 THEN BEGIN
DRAWRECTREL(620,730+P,890,810+P,rgb(255,0,0)),colorffffff,layer0;
DRAWTEXTREL(620,750+P,' 3 ▲ 红柱上升趋势看涨趋势'),colorffffff,linethick2,layer0;
END
ELSE
IF BARSTATUS=2 AND fsqs4 THEN BEGIN
DRAWRECTREL(620,730+P,890,810+P,rgb(0,0,255)),colorffffff,layer0;
DRAWTEXTREL(620,750+P,' 4 ▲ 绿柱上升趋势涨跌幅度小'),colorffffff,linethick2,layer0;
END
IF BARSTATUS=2 AND fsqss1 THEN BEGIN
DRAWRECTREL(620,730+P,890,810+P,rgb(0,0,255)),colorffffff,layer0;
DRAWTEXTREL(620,750+P,' 11 ▼ 红柱下跌趋势尾盘可能上涨'),colorffffff,linethick2,layer0;
END
ELSE
IF BARSTATUS=2 AND fsqss2 THEN BEGIN
DRAWRECTREL(620,730+P,890,810+P,rgb(47,79,79)),colorffffff,layer0;
DRAWTEXTREL(620,750+P,' 12 ▼ 红柱下跌趋势看跌涨快抛'),colorffffff,linethick2,layer0;
END
ELSE
IF BARSTATUS=2 AND fsqss3 THEN BEGIN
DRAWRECTREL(620,730+P,890,810+P,rgb(47,79,79)),colorffffff,layer0;
DRAWTEXTREL(620,750+P,' 13 ▼ 绿柱下跌趋势弱势看跌 '),colorffffff,linethick2,layer0;
END
ELSE
IF BARSTATUS=2 AND fsqss4 THEN BEGIN
DRAWRECTREL(620,730+P,890,810+P,rgb(47,79,79)),colorffffff,layer0;
DRAWTEXTREL(620,750+P,' 14 ▼ 绿柱下跌趋势最弱势看跌 '),colorffffff,linethick2,layer0;
END
{引用陈文明短线是金}
心理价1:="蔡氏预测.心理价1#day";
AA0:=昨收>心理价1 AND 昨收>DYNAINFO(4) and MA30>强弱;
AA1:=昨收>心理价1 AND 昨收>DYNAINFO(4) and MA30<强弱;
AA2:=昨收<心理价1 AND 昨收<DYNAINFO(4) ;
IF BARSTATUS=2 AND AA0 THEN BEGIN
DRAWRECTREL(270,730+P,500,810+P,rgb(255,0,0)),colorffffff,layer1;
DRAWTEXTREL(280,750+P,'▼ 今日红柱低开'),colorffffff,linethick2,layer0;
END
ELSE
IF BARSTATUS=2 AND AA1 THEN BEGIN
DRAWRECTREL(270,730+P,500,810+P,rgb(47,79,79)),colorffffff,layer1;
DRAWTEXTREL(280,750+P,'▼ 今日绿柱低开'),colorffffff,linethick2,layer0;
END
ELSE
IF BARSTATUS=2 AND AA2 THEN BEGIN
DRAWRECTREL(270,730+P,500,810+P,rgb(255,0,0)),colorffffff,layer1;
DRAWTEXTREL(280,750+P,'▲ 今日高开'),colorffffff,linethick2,layer0;
END
AA3:=昨收>心理价1 AND 昨收<DYNAINFO(4);
AA4:=昨收<心理价1 AND 昨收>DYNAINFO(4) and MA30>强弱;
AA5:=昨收<心理价1 AND 昨收>DYNAINFO(4) and MA30<强弱;
IF BARSTATUS=2 AND AA3 THEN BEGIN
DRAWRECTREL(270,730+P,500,810+P,rgb(47,79,79)),colorffffff,layer1;
DRAWTEXTREL(280,750+P,'▼ 应低开 90%会有回探的过程'),colorgreen,linethick2,layer0;
END
ELSE
IF BARSTATUS=2 AND AA4 THEN BEGIN
DRAWRECTREL(270,730+P,500,810+P,rgb(255,0,0)),colorffffff,layer1;
DRAWTEXTREL(280,750+P,'▲ 应高开红柱快买上涨趋势'),colorffffff,linethick2,layer0;
END
ELSE
IF BARSTATUS=2 AND AA5 THEN BEGIN
DRAWRECTREL(270,730+P,500,810+P,rgb(255,0,0)),colorffffff,layer1;
DRAWTEXTREL(280,750+P,'▲ 应高开绿柱再等上涨趋势'),colorffffff,linethick2,layer0;
END
ELSE
AA6:=昨收=DYNAINFO(4);
IF BARSTATUS=2 AND AA6 THEN BEGIN
DRAWRECTREL(270,730+P,500,810+P,rgb(0,0,255)),colorffffff,layer1;
DRAWTEXTREL(280,750+P,'● 今开=昨收最低价<昨收 '),colorffffff,linethick2,layer0;
END
{徐文明开盘后预测}
AAA1:=昨收>心理价1 AND 昨收<DYNAINFO(4) and (fsqs1 or fsqs2 or fsqs3 or fsqs4);{上涨趋势}
AAA2:=昨收>心理价1 AND 昨收<DYNAINFO(4) and (fsqss1 or fsqss2 or fsqss3 or fsqss4);{下跌趋势}
AAA3:=昨收<心理价1 AND 昨收>DYNAINFO(4) and (fsqs1 or fsqs2 or fsqs3 or fsqs4);{上涨趋势}
AAA4:=昨收<心理价1 AND 昨收>DYNAINFO(4) and (fsqss1 or fsqss2 or fsqss3 or fsqss4);{下跌趋势}
IF BARSTATUS=2 AND AAA1 THEN BEGIN
DRAWRECTREL(270,820+P,500,900+P,rgb(255,0,0)),colorffffff,layer0;
DRAWTEXTREL(280,840+P,'▲ 出现高开见低要买高卖可等'),colorffffff,linethick2,layer0;
END
ELSE
IF BARSTATUS=2 AND AAA2 THEN BEGIN
DRAWRECTREL(270,820+P,500,900+P,rgb(47,79,79)),colorffffff,layer1;
DRAWTEXTREL(280,840+P,'▼ 出现高开低买不急高卖要快'),colorffffff,linethick2,layer0;
END
IF BARSTATUS=2 AND AAA3 THEN BEGIN
DRAWRECTREL(270,820+P,500,900+P,rgb(255,0,0)),colorffffff,layer1;
DRAWTEXTREL(280,840+P,'▲ 应高开出现低开逢低吸纳'),colorffffff,linethick2,layer0;
END
ELSE
IF BARSTATUS=2 AND AAA4 THEN BEGIN
DRAWRECTREL(270,820+P,500,900+P,rgb(0,0,255)),colorffffff,layer1;
DRAWTEXTREL(280,840+P,'▲ 出现低开不要离场等待机会'),colorffffff,linethick2,layer0;
END;

出问题的是下面这几段：
{引用预测股价设定预测范围}
STICKLINE((预测低二<预测低一),预测低二,预测低一,10,0),COLOR008B00,linethick2,layer7;
STICKLINE((预测低一<预测低二),预测低一,预测低二,10,0),COLOR008B00,linethick2,layer7;
DRAWTEXT(BARSTATUS=2,预测低一,'预测低一：'+NUMTOSTRN(预测低一,2)+'元' ),COLORffffff,LINETHICK2;
DRAWTEXT(BARSTATUS=2,预测低二,'预测低二：'+NUMTOSTRN(预测低二,2)+'元' ),COLORffffff,LINETHICK2;
DRAWTEXT(TIME=93000,预测低二*0.995,'                                  低吸区 '),Colorffffff,LINETHICK3,layer0;
STICKLINE((平均价二<平均价一),平均价二,平均价一,10,0),COLORblue,linethick2,layer7;
STICKLINE((平均价一<平均价二),平均价一,平均价二,10,0),COLORblue,linethick2,layer7;
DRAWTEXT(BARSTATUS=2,平均价一,'强势高价：'+NUMTOSTRN(平均价一,2)+'元' ),COLORred,LINETHICK2;
DRAWTEXT(BARSTATUS=2,平均价二,'弱势高价：'+NUMTOSTRN(平均价二,2)+'元' ),COLORred,LINETHICK2;
DRAWTEXT(TIME=93000,平均价一,'                                  高抛区 '),Colorffffff,LINETHICK3,layer0;

yoyotsai123 发表于 2011-8-15 20:58

请高手们帮帮忙，谢谢！

页: [1]

MACD俱乐部's Archiver

分时主图公式被压缩得很严重,恳求老师帮忙解决，谢谢！