软件名称:[B]自用主图源码[/B]
软件类型:国产软件
运行环境:Win9X/2000/XP/2003/
软件语言:简体中文
授权方式:解密版
软件大小:6.00 KB
官方主页:Home Page
更新时间:2009-04-19 11:52:50
软件简介:
流通股本:=FINANCE(7)/100000000,POINTDOT,COLORYELLOW;
A0:=AMOUNT/VOL/100;
AA1:=(EMA(A0,3)>EMA(A0,7) AND EMA(A0,7)>EMA(A0,13) AND EMA(A0,13)>EMA(A0,35));
GJ:=(C+H+L+O)/4;
明阻:=L+(GJ-L)+(C-L);
明支:=L+(C-GJ);
今阻:REF(明阻, 1)NODRAW;
今支:REF(明支, 1)NODRAW;
EMA5:EMA(C,5),COLORYELLOW;
EMA14:EMA(C,12),COLORFFFFFF;
止盈线:EMA(C,7),NODRAW;
EMA4:EMA(C,3),NODRAW;
EMA20:EMA(C,20),COLORGREEN;
MA30:EMA(C,35),COLORBLUE;
EMA90:EMA(C,90),COLORRED;
DRAWTEXT(CROSS(ZIG(3,8),REF(ZIG(3,8),1)),LOW*0.978,'J') ,LINETHICK8,COLORYELLOW;
DRAWTEXT(CROSS(REF(ZIG(3,10),1),ZIG(3,10)),HIGH*1.02,'S');
A1:=EMA(C,14)COLORWHITE,LINETHICK1;
A1X:=(A1-REF(A1,1))/REF(A1,1)*100,NODRAW;
STICKLINE(CROSS(A1X,0),C,O,0.5,0)COLORYELLOW;
STICKLINE(CROSS(0,A1X),C,O,0.5,0)COLORBLUE;
买进价:=((C-REF(MA(C,6),1))/6+MA(C,6))*1.004;
买进条件:=CROSS(C,买进价) AND 买进价>REF(买进价,1);
STICKLINE(买进条件,H,L,0.0.25.0.5,0),COLORWHITE,LINETHICK1;
STICKLINE(买进条件,O,C,1.1,0),COLORWHITE,LINETHICK1;
加码价:=((C-REF(MA(C,18),1))/18+MA(C,18))*1.004;
加码条件:=CROSS(C,加码价) AND 加码价>REF(加码价,1);
STICKLINE(加码条件,H,L,0.1.0.25,0),COLORYELLOW,LINETHICK1;
STICKLINE(加码条件,O,C,1.1,0),COLORYELLOW,LINETHICK1;
VAR1:=EMA((C-(LLV(L,25)))/((HHV(H,25))-(LLV(L,25)))*100,5);
VAR2:=VAR1,COLORRED,LINETHICK2;
VAR3:=MA((V-REF(V,1))/REF(V,1),5);
VAR4:=(C-MA(C,24))/MA(C,24)*100;
VAR5:=VAR4*(1+VAR3);
VAR6:=REF(VOL,1);
VAR7:=SMA(MAX(VOL-VAR6,0),6,1)/SMA(ABS(VOL-VAR6),6,1)*100;
VAR8:=VAR5>REF(VAR5,1) AND VAR2<REF(VAR2,1) AND VAR7>REF(VAR7,1);
VAR9:=VAR5<REF(VAR5,1) AND VAR2>REF(VAR2,1) AND VAR7>REF(VAR7,1);
VAR10:=VAR5>REF(VAR5,1) AND VAR2<REF(VAR2,1) AND VAR7<REF(VAR7,1);
VAR11:=VAR5<REF(VAR5,1) AND VAR2>REF(VAR2,1) AND VAR7<REF(VAR7,1);
VAR12:=VAR5>REF(VAR5,1);
VAR13:=VAR5<REF(VAR5,1);
VAR14:=L<HHV(H,60)*0.6 OR L<HHV(H,50)*0.65 OR L<HHV(H,40)*0.7 OR L<HHV(H,30)*0.75 OR L<HHV(H,20)*0.8 OR L<HHV(H,10)*0.85
AND (H-L)/REF(C,1)>0.08
AND V>MA(V,135)
AND VAR2<40
AND VAR5>REF(VAR5,1);
VAR15:=H<MA(C,20) OR CROSS(MA(C,5),MA(C,10));
VAR16:=SUM(MAX(0,HIGH-(REF(HIGH+LOW,1)/2)),26)/SUM(MAX(0,(REF(HIGH+LOW,1)/2)-LOW),26)*100<40
OR 100*((SUM(IF(CLOSE>REF(CLOSE,1),VOL,0),26))*2+(SUM(IF(CLOSE=REF(CLOSE,1),VOL,0),26)))/((SUM(IF(CLOSE<REF(CLOSE,1),VOL,0),26))*2+(SUM(IF(CLOSE=REF(CLOSE,1),VOL,0),26)))<40
OR SUM(MAX(0,HIGH-REF(CLOSE,1)),26)/SUM(MAX(0,REF(CLOSE,1)-LOW),26)*100<40
OR SUM(HIGH-OPEN,26)/SUM(OPEN-LOW,26)*100<40;
VAR17:=CROSS(82,SMA(MAX(C-(REF(C,1)),0),6,1)/SMA(ABS(C-(REF(C,1))),6,1)*100);
VAR18:=CROSS((SMA(MAX(CLOSE-(REF(CLOSE,1)),0),6,1)/SMA(ABS(CLOSE-(REF(CLOSE,1))),6,1)*100),20);
DRAWICON(VAR14 AND VAR15 OR VAR18,LOW*0.95,9);
DRAWTEXT(VAR16,LOW*0.95,'★'),COLORRED;
DRAWTEXT(VAR17,HIGH*1.05,'▼'),COLOR00FFFF;
QSXS:=止盈线>=MA30 AND MA30>REF(MA30,1);
GD:=ZX>=REF(ZX,1) AND REF(ZX,1)<REF(ZX,2);
YB:=C>REF((O-C)/2+C,2);
买:=CROSS(C,ZX) AND (GD OR YB) AND QSXS,COLOR00FF00,POINTDOT,LINETHICK0;
优:=买 AND 止盈线>REF(止盈线,1),COLORYELLOW,POINTDOT,LINETHICK0;
{以下设置主图显示方式}
STICKLINE(买,H,L,0,1),COLOR00FF00,LINETHICK3;
STICKLINE(买,O,C,4,1),COLOR00FF00,LINETHICK3;
STICKLINE(优,H,L,0,1),COLORYELLOW,LINETHICK3;
STICKLINE(优,O,C,4,1),COLORYELLOW,LINETHICK3;
DRAWICON(优,L*1,'优');
均线死叉:=CROSS(EMA14,EMA5*0.99);
DRAWICON(均线死叉,H*1.05,4);
DRAWTEXT(CROSS(EMA5,EMA14),EMA5,'○'),LINETHICK1,COLORFFFFFF;
DRAWTEXT(CROSS(EMA5,EMA20),EMA20,'◎'),LINETHICK1,COLORFFFFFF;
DRAWTEXT(CROSS(EMA14,EMA20),EMA20,'●'),LINETHICK1,COLORFFFFFF;
DRAWTEXT(CROSS(EMA20,EMA90),EMA20,'◆'),LINETHICK1,COLORFFFFFF;
解禁股:=IF((流通股本-REF(流通股本,1))>0,(流通股本-REF(流通股本,1)),0),COLORYELLOW;{流通股增加}
DRAWTEXT(解禁股>0, HIGH*1.1,'解禁'),COLORGREEN;
冻结:=IF((流通股本-REF(流通股本,1))<0,(REF(流通股本,1)-流通股本),0),COLORGREEN;{流通股减少};
DRAWTEXT(冻结>0, HIGH*1.1,'冻结'),COLORGREEN;
AA:=(INDEXC-REF(INDEXC,1))/REF(INDEXC,1)*100<0;
BB:=(C-REF(C,1))/REF(C,1)*100>0;
DRAWTEXT(AA AND BB,L*0.96,'★'),COLORYELLOW; {大盘跌个股涨}
EMA10:EMA(V,10)NODRAW;
EMA40:EMA(V,40)NODRAW;
EMA20W:EMA(V,20)NODRAW;
EMA60:EMA(V,60)NODRAW;
EMA120:EMA(V,120)NODRAW;
月价托:=EMA5>EMA20W AND EMA5>EMA10 AND CROSS(EMA10,EMA20W);
季价托:=EMA20W>EMA40 AND EMA20W>EMA60 AND CROSS(EMA40,EMA60);
DRAWTEXT(月价托,L-0.10,'月'),COLORWHITE;
DRAWTEXT(季价托,L-0.10,'季'),COLORYELLOW;
A0:=AMOUNT/VOL/100;
AA1:=(EMA(A0,3)>EMA(A0,7) AND EMA(A0,7)>EMA(A0,13) AND EMA(A0,13)>EMA(A0,35));
GJ:=(C+H+L+O)/4;
明阻:=L+(GJ-L)+(C-L);
明支:=L+(C-GJ);
今阻:REF(明阻, 1)NODRAW;
今支:REF(明支, 1)NODRAW;
EMA5:EMA(C,5),COLORYELLOW;
EMA14:EMA(C,12),COLORFFFFFF;
止盈线:EMA(C,7),NODRAW;
EMA4:EMA(C,3),NODRAW;
EMA20:EMA(C,20),COLORGREEN;
MA30:EMA(C,35),COLORBLUE;
EMA90:EMA(C,90),COLORRED;
DRAWTEXT(CROSS(ZIG(3,8),REF(ZIG(3,8),1)),LOW*0.978,'J') ,LINETHICK8,COLORYELLOW;
DRAWTEXT(CROSS(REF(ZIG(3,10),1),ZIG(3,10)),HIGH*1.02,'S');
A1:=EMA(C,14)COLORWHITE,LINETHICK1;
A1X:=(A1-REF(A1,1))/REF(A1,1)*100,NODRAW;
STICKLINE(CROSS(A1X,0),C,O,0.5,0)COLORYELLOW;
STICKLINE(CROSS(0,A1X),C,O,0.5,0)COLORBLUE;
买进价:=((C-REF(MA(C,6),1))/6+MA(C,6))*1.004;
买进条件:=CROSS(C,买进价) AND 买进价>REF(买进价,1);
STICKLINE(买进条件,H,L,0.0.25.0.5,0),COLORWHITE,LINETHICK1;
STICKLINE(买进条件,O,C,1.1,0),COLORWHITE,LINETHICK1;
加码价:=((C-REF(MA(C,18),1))/18+MA(C,18))*1.004;
加码条件:=CROSS(C,加码价) AND 加码价>REF(加码价,1);
STICKLINE(加码条件,H,L,0.1.0.25,0),COLORYELLOW,LINETHICK1;
STICKLINE(加码条件,O,C,1.1,0),COLORYELLOW,LINETHICK1;
VAR1:=EMA((C-(LLV(L,25)))/((HHV(H,25))-(LLV(L,25)))*100,5);
VAR2:=VAR1,COLORRED,LINETHICK2;
VAR3:=MA((V-REF(V,1))/REF(V,1),5);
VAR4:=(C-MA(C,24))/MA(C,24)*100;
VAR5:=VAR4*(1+VAR3);
VAR6:=REF(VOL,1);
VAR7:=SMA(MAX(VOL-VAR6,0),6,1)/SMA(ABS(VOL-VAR6),6,1)*100;
VAR8:=VAR5>REF(VAR5,1) AND VAR2<REF(VAR2,1) AND VAR7>REF(VAR7,1);
VAR9:=VAR5<REF(VAR5,1) AND VAR2>REF(VAR2,1) AND VAR7>REF(VAR7,1);
VAR10:=VAR5>REF(VAR5,1) AND VAR2<REF(VAR2,1) AND VAR7<REF(VAR7,1);
VAR11:=VAR5<REF(VAR5,1) AND VAR2>REF(VAR2,1) AND VAR7<REF(VAR7,1);
VAR12:=VAR5>REF(VAR5,1);
VAR13:=VAR5<REF(VAR5,1);
VAR14:=L<HHV(H,60)*0.6 OR L<HHV(H,50)*0.65 OR L<HHV(H,40)*0.7 OR L<HHV(H,30)*0.75 OR L<HHV(H,20)*0.8 OR L<HHV(H,10)*0.85
AND (H-L)/REF(C,1)>0.08
AND V>MA(V,135)
AND VAR2<40
AND VAR5>REF(VAR5,1);
VAR15:=H<MA(C,20) OR CROSS(MA(C,5),MA(C,10));
VAR16:=SUM(MAX(0,HIGH-(REF(HIGH+LOW,1)/2)),26)/SUM(MAX(0,(REF(HIGH+LOW,1)/2)-LOW),26)*100<40
OR 100*((SUM(IF(CLOSE>REF(CLOSE,1),VOL,0),26))*2+(SUM(IF(CLOSE=REF(CLOSE,1),VOL,0),26)))/((SUM(IF(CLOSE<REF(CLOSE,1),VOL,0),26))*2+(SUM(IF(CLOSE=REF(CLOSE,1),VOL,0),26)))<40
OR SUM(MAX(0,HIGH-REF(CLOSE,1)),26)/SUM(MAX(0,REF(CLOSE,1)-LOW),26)*100<40
OR SUM(HIGH-OPEN,26)/SUM(OPEN-LOW,26)*100<40;
VAR17:=CROSS(82,SMA(MAX(C-(REF(C,1)),0),6,1)/SMA(ABS(C-(REF(C,1))),6,1)*100);
VAR18:=CROSS((SMA(MAX(CLOSE-(REF(CLOSE,1)),0),6,1)/SMA(ABS(CLOSE-(REF(CLOSE,1))),6,1)*100),20);
DRAWICON(VAR14 AND VAR15 OR VAR18,LOW*0.95,9);
DRAWTEXT(VAR16,LOW*0.95,'★'),COLORRED;
DRAWTEXT(VAR17,HIGH*1.05,'▼'),COLOR00FFFF;
QSXS:=止盈线>=MA30 AND MA30>REF(MA30,1);
GD:=ZX>=REF(ZX,1) AND REF(ZX,1)<REF(ZX,2);
YB:=C>REF((O-C)/2+C,2);
买:=CROSS(C,ZX) AND (GD OR YB) AND QSXS,COLOR00FF00,POINTDOT,LINETHICK0;
优:=买 AND 止盈线>REF(止盈线,1),COLORYELLOW,POINTDOT,LINETHICK0;
{以下设置主图显示方式}
STICKLINE(买,H,L,0,1),COLOR00FF00,LINETHICK3;
STICKLINE(买,O,C,4,1),COLOR00FF00,LINETHICK3;
STICKLINE(优,H,L,0,1),COLORYELLOW,LINETHICK3;
STICKLINE(优,O,C,4,1),COLORYELLOW,LINETHICK3;
DRAWICON(优,L*1,'优');
均线死叉:=CROSS(EMA14,EMA5*0.99);
DRAWICON(均线死叉,H*1.05,4);
DRAWTEXT(CROSS(EMA5,EMA14),EMA5,'○'),LINETHICK1,COLORFFFFFF;
DRAWTEXT(CROSS(EMA5,EMA20),EMA20,'◎'),LINETHICK1,COLORFFFFFF;
DRAWTEXT(CROSS(EMA14,EMA20),EMA20,'●'),LINETHICK1,COLORFFFFFF;
DRAWTEXT(CROSS(EMA20,EMA90),EMA20,'◆'),LINETHICK1,COLORFFFFFF;
解禁股:=IF((流通股本-REF(流通股本,1))>0,(流通股本-REF(流通股本,1)),0),COLORYELLOW;{流通股增加}
DRAWTEXT(解禁股>0, HIGH*1.1,'解禁'),COLORGREEN;
冻结:=IF((流通股本-REF(流通股本,1))<0,(REF(流通股本,1)-流通股本),0),COLORGREEN;{流通股减少};
DRAWTEXT(冻结>0, HIGH*1.1,'冻结'),COLORGREEN;
AA:=(INDEXC-REF(INDEXC,1))/REF(INDEXC,1)*100<0;
BB:=(C-REF(C,1))/REF(C,1)*100>0;
DRAWTEXT(AA AND BB,L*0.96,'★'),COLORYELLOW; {大盘跌个股涨}
EMA10:EMA(V,10)NODRAW;
EMA40:EMA(V,40)NODRAW;
EMA20W:EMA(V,20)NODRAW;
EMA60:EMA(V,60)NODRAW;
EMA120:EMA(V,120)NODRAW;
月价托:=EMA5>EMA20W AND EMA5>EMA10 AND CROSS(EMA10,EMA20W);
季价托:=EMA20W>EMA40 AND EMA20W>EMA60 AND CROSS(EMA40,EMA60);
DRAWTEXT(月价托,L-0.10,'月'),COLORWHITE;
DRAWTEXT(季价托,L-0.10,'季'),COLORYELLOW;
[url=http://www.70822.com/soft/sort013/sort05/down-8436.html]自用主图源码[/url]