软件名称：[B]我的主图[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/Win7/
软件语言：简体中文
授权方式：免费版
软件大小：9.00 KB
官方主页：Home Page
更新时间：2015-03-01 02:14:45
软件简介:
{我的主图}
都是从网上抄来的。请高手别笑话。
R1:=(REF((C>REF(C,1)AND C>REF(C,2)),1)AND C<=REF(C,1)AND C>=REF(C,2));
R2:=(REF((REF(R1,1)AND C>=REF(C,1)AND C<=REF(C,2)),1)AND C<=REF(C,1)AND C>=REF(C,2));
R3:=(REF((REF(R2,1)AND C>=REF(C,1)AND C<=REF(C,2)),1)AND C<=REF(C,1)AND C>=REF(C,2));
R4:=(REF((REF(R3,1)AND C>=REF(C,1)AND C<=REF(C,2)),1)AND C<=REF(C,1)AND C>=REF(C,2));
A1:=((REF((C>REF(C,1)AND C>REF(C,2))OR R1 OR(REF(R1,1)AND C>=REF(C,1)AND C<=REF(C,2))OR R2 OR
(REF(R2,1)AND C>=REF(C,1)AND C<=REF(C,2))OR R3 OR(REF(R3,1)AND C>=REF(C,1)AND C<=REF(C,2))OR R4 OR
(REF(R4,1)AND C>=REF(C,1)AND C<=REF(C,2))OR(REF((REF(R4,1)AND C>=REF(C,1)AND C<=REF(C,2)),1)AND
C<=REF(C,1)AND C>=REF(C,2))OR(REF((REF((REF(R4,1)AND C>=REF(C,1)AND C<=REF(C,2)),1)AND C<=REF(C,1)
AND C>=REF(C,2)),1)AND C>=REF(C,1)AND C<=REF(C,2))OR(REF((REF((REF((REF(R4,1)AND C>=REF(C,1)AND
C<=REF(C,2)),1)AND C<=REF(C,1)AND C>=REF(C,2)),1)AND C>=REF(C,1)AND C<=REF(C,2)),1)AND C<=REF(C,1)
AND C>=REF(C,2)),1))AND(C<REF(C,1)AND C<REF(C,2)));
DRAWGBK(C>0,RGB(0,150,150),RGB(0,00,100),0,' ',0);
DRAWKLINE(H,O,L,C);
MA3:=MA(C,3);
IF(MA3>=REF(MA3,1),MA3,DRAWNULL),COLOR0066FF,LINETHICK1;
IF(MA3< REF(MA3,1),MA3,DRAWNULL),COLORGREEN,LINETHICK1;
R:=(3*C+L+O+H)/6;
多空线:(20*R+19*REF(R,1)+18*REF(R,2)+17*REF(R,3)+16*REF(R,4)+15*REF(R,5)+14*REF(R,6)+13*REF(R,7)+12*REF(R,8)+11*REF(R,9)+10*REF(R,10)+9*REF(R,11)+8*REF(R,12)+7*REF(R,13)+6*REF(R,14)+5*REF(R,15)+4*REF(R,16)+3*REF(R,17)+2*REF(R,18)+REF(R,20))/210,COLORGREEN,LINETHICK2;
IF(多空线>=REF(多空线,1),多空线,DRAWNULL),COLORRED,LINETHICK2;
IF(多空线< REF(多空线,1),多空线,DRAWNULL),COLORGREEN,LINETHICK2;
牛皮熊:DRAWICON(CROSS(MA3,多空线)AND C/REF(C,1)>1.03,L*0.96,25);
DRAWICON(CROSS(SLOPE(EMA(C,3),3),SLOPE(EMA(C,7),7))AND C/REF(C,1)>1.03,L*0.96,23);
DRAWTEXT(CROSS(SLOPE(EMA(C,3),3),SLOPE(EMA(C,7),7))AND C/REF(C,1)>1.03,L*0.98,'↖买'),COLORWHITE;
{波峰}
波峰:REF(H,BARSLAST(FILTER(BACKSET(FILTER(REF(H,10)=HHV(H,2*10+1),10),10+1),10))),COLORYELLOW,POINTDOT,LINETHICK2;
STICKLINE(H,波峰,波峰,2,-1),COLORYELLOW,LINETHICK2;
高点:REF(C,BARSLAST(FILTER(CROSS(0.8,C=HHV(C,13)),2))+1),COLORFF00FF,LINETHICK4,POINTDOT;
STICKLINE(BARSLAST(FILTER(CROSS(0.8,C=HHV(C,13)),2))+1<=6,高点,高点,2,-1),COLORGREEN,LINETHICK2;
DS:=BARSLAST(FILTER(CROSS(0.8,C=LLV(C,13)),2))+1;
低点:REF(C,DS),COLOR0055FF,POINTDOT,LINETHICK4;
STICKLINE(DS<=6,低点,低点,2,-1),COLORWHITE,LINETHICK4;
MA10:MA(C,10)COLORWHITE,DOTLINE,LINETHICK1;
MA54:MA(C,54)COLORFF00FF,DOTLINE,LINETHICK1;
偏离率:=((((((C-MA54)/MA54)<0.1)=1)AND((((C-MA10)/MA10)<0.3)=1))*0.2);
突破:=((((偏离率=0)AND(REF(偏离率,1)=0.2))AND(REF((COUNT((偏离率=0.2),10)=10),1)=1))*1);
DRAWTEXT(突破,L,'＝＝＝＝＝＝＝'),COLORWHITE;
DRAWTEXT(突破,L-0.05,'突破评台'),COLORGREEN;
{跳空}
STICKLINE(REF(L,1)>H,H,REF(L,1),2,-1),COLORWHITE;
STICKLINE(REF(H,1)<L,L,REF(H,1),2,-1),COLORWHITE;
{彩色K线}
X:=MA(REF(HHV((C+L+O+H)/4,30),1),3);
Y:=MA((C+L+O+H)/4,13);
Z:=EMA((C+L+O+H)/4,21);
{红色立柱}
STICKLINE(C<Z AND C>O,C,O,3.2,0),COLOR0000AA;
STICKLINE(C<Z AND C>O,C,O,2.2,0),COLOR0000CC;
STICKLINE(C<Z AND C>O,C,O,1.0,0),COLOR0000EE;
STICKLINE(C<Z AND C>O,C,O,0.1,0),COLORAA55FF;
{绿色立柱}
STICKLINE(C<Z AND C<O,C,O,3.2,0),COLOR009900;
STICKLINE(C<Z AND C<O,C,O,2.1,0),COLOR00BB00;
STICKLINE(C<Z AND C<O,C,O,0.5,0),COLOR00DD00;
STICKLINE(C<Z AND C<O,C,O,0.1,0),COLOR00FF00;
{白立柱}
STICKLINE(C>Z AND C<O,C,O,3.1,0),COLOR999999;
STICKLINE(C>Z AND C<O,C,O,2,0),COLORBBBBBB;
STICKLINE(C>Z AND C<O,C,O,1,0),COLORDDDDDD;
STICKLINE(C>Z AND C<O,C,O,0.1,0),COLORFFFFFF;
{黄立柱}
STICKLINE(C>Z AND C>O,C,O,3.0,0),COLOR335555;
STICKLINE(C>Z AND C>O,C,O,2.1,0),COLOR338888;
STICKLINE(C>Z AND C>O,C,O,1.6,0),COLOR33AAAA;
STICKLINE(C>Z AND C>O,C,O,0.8,0),COLOR33CCCC;
STICKLINE(C>Z AND C>O,C,O,0.1,0),COLOR33EEEE;
{粉红立柱}
STICKLINE(C>Y AND C>O,C,O,3.1,0),COLOR880088;
STICKLINE(C>Y AND C>O,C,O,2.0,0),COLORBB00BB;
STICKLINE(C>Y AND C>O,C,O,1.0,0),COLORDD00DD;
STICKLINE(C>Y AND C>O,C,O,0.1,0),COLORFF00FF;
{青立柱}
STICKLINE(C>Y AND C<O,C,O,3.1,0),COLOR999900;
STICKLINE(C>Y AND C<O,C,O,2,0),COLORBBBB00;
STICKLINE(C>Y AND C<O,C,O,1,0),COLORDDDD00;
STICKLINE(C>Y AND C<O,C,O,0.1,0),COLORFFFF00;
{深红立柱}
STICKLINE(C>X AND C>O,H,L,0,0),COLORFF00FF;
STICKLINE(C>X AND C>O,C,O,3.5,0),COLOR0000AA;
STICKLINE(C>X AND C>O,C,O,2.5,0),COLOR0000CC;
STICKLINE(C>X AND C>O,C,O,1.1,0),COLOR0000EE;
STICKLINE(C>X AND C>O,C,O,0.1,0),COLORFF00FF;
{蓝抛}
STICKLINE(A1,REF(C,1),REF(C,2),3.0,0),COLORAA0000;
STICKLINE(A1,REF(C,1),REF(C,2),2.0,0),COLORCC0000;
STICKLINE(A1,REF(C,1),REF(C,2),1.1,0),COLORFF4400;
STICKLINE(A1,REF(C,1),REF(C,2),0.2,0),COLORFF8800;
STICKLINE(A1,REF(C,1),REF(C,2),0.0,0),COLORFFCC00;
STICKLINE(C=C,O+((C-O)/2),(O+(C-O)/2),3,0),COLOR00FFFF;{当日实体幅度的1/2}
{红绿三角【副图】}
TD1:=BACKSET(FILTER(REF(H,3)=HHV(H,2*3+1),3),3+1);
TD2:=BACKSET(FILTER(REF(L,3)=LLV(L,2*3+1),3),3+1);
TD3:=(REF(LLV(L,2*3),1)+REF(HHV(H,2*3),1))/2;
TD4:=(H+L)/2;{高低点出现在同一K线上时可作取舍}
DT0:=(FILTER(TD1,3{高点})AND NOT(FILTER(TD2,3{低点})AND TD3>=TD4))OR BARSTATUS=2 OR BARSCOUNT(C)=1;
DT1:=(FILTER(TD2,3{低点})AND NOT(FILTER(TD1,3{高点})AND TD3=TD4));
DT2:=BACKSET(DT0 AND COUNT(DT1,REF(BARSLAST(DT0),1)+1)>0,LLVBARS(IF(DT1,L,10000),REF(BARSLAST(DT0),1)+1));
DT3:=BACKSET(DT2>REF(DT2,1),2)>REF(BACKSET(DT2>REF(DT2,1),2),1);{过滤后低点}
DT4:=DT3 OR BARSTATUS=2 OR BARSCOUNT(C)=1;
DT5:=BACKSET(DT4 AND COUNT(DT0,REF(BARSLAST(DT4),1)+1)>0,HHVBARS(IF(DT0,H,0),REF(BARSLAST(DT4),1)+1));
XD1:=BACKSET(DT5>REF(DT5,1),2);
XD3:=BACKSET(BARSTATUS=2,BARSLAST(DT3)+1);
XD5:=BACKSET(BARSTATUS=2,BARSLAST(XD1>REF(XD1,1{过滤后高点}))+1);
XD6:=XD5>REF(XD5,1);
{以下语句为三角形部分}
底:REF(L,BARSLAST(XD3>REF(XD3,1))),COLORWHITE,LINETHICK1;
顶:REF(H,BARSLAST(XD6)),COLORYELLOW,LINETHICK1;
{下跌三角形：绿色三角形画完介入}
STICKLINE(XD3>REF(XD3,1),顶,底,0,0),COLORFF00FF,LINETHICK2;
DRAWLINE(XD6,H,XD3>REF(XD3,1),L,0),COLORFF00FF,LINETHICK2;{斜}
DRAWLINE(XD6,H,XD3>REF(XD3,1),顶,0),COLORFF00FF,LINETHICK2;
{上涨三角形：红色三角形画完出局}
STICKLINE(XD6,顶,底,0,0),COLORYELLOW,LINETHICK1;
DRAWLINE(XD3>REF(XD3,1),L,XD6,H,0),COLORYELLOW,LINETHICK1;{斜}<
[url=http://www.70822.com/soft/sort013/sort05/down-81828.html]我的主图[/url]
[url=http://www.70822.com/soft/sort013/sort05/down-81828.html]我的主图[/url]