软件名称：[B]我的自用主图[/B]
软件类型：国产软件
运行环境：Win9X/2000/XP/2003/
软件语言：简体中文
授权方式：解密版
软件大小：5.00 KB
官方主页：Home Page
更新时间：2009-03-23 06:44:05
软件简介:
{我的自用主图
今天俺的中关村涨停，特将我的自用主图拿出来分享。
本公式是我将各个公式组合而成，并非原创，如果喜欢请顶帖，加分，嘿嘿！}
DRAWGBK(v>1,colorRGB(10,160,0),colorRGB(25,15,0),70);
S:=('股票代码：' + STKLABEL);
DRAWTEXT((SYSPARAM(2) = BARPOS),CLOSE,S),ALIGN4,colorYELLOW;
DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH,((((((((((((((((((((((((((((((((((' 所属板块:' + BLKNAME) + '\n') + '发行价') + NUMTOSTR(FINANCE(51),2)) + '元') + ' 发行量') + NUMTOSTR(FINANCE(52),2)) + '万股') + '\n') + '总股本') + NUMTOSTR(FINANCE(1),0)) + '万股') + ' 流通A股') + NUMTOSTR(FINANCE(7),0)) + '万股') + ' 净资产') + NUMTOSTR(FINANCE(35),2)) + '亿元') + ' 每股收益') + NUMTOSTR(FINANCE(33),2)) + '元') + ' 每股未分配') + NUMTOSTR(FINANCE(32),2)) + '元') + '\n') + '市盈率') + NUMTOSTR(DYNAINFO(39),2)) + '%') + ' 投资收益') + NUMTOSTR(FINANCE(24),2)) + '元') + ' 股东总数') + NUMTOSTR(FINANCE(50),0)) + '户')),ALIGN4,colorYELLOW;
{分析家公式网 http://www.70822.com}
VARC:=SMA(((CLOSE-LLV(LOW,10))/(HHV(HIGH,10)-LLV(LOW,10)))*(100),4,1);
VARD:=SMA(((CLOSE-LLV(LOW,11))/(HHV(HIGH,11)-LLV(LOW,11)))*(100),4,1);
VARE:=SMA(((CLOSE-LLV(LOW,12))/(HHV(HIGH,12)-LLV(LOW,12)))*(100),4,1);
VARF:=SMA(((CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13)))*(100),4,1);
VAR10:=SMA(((CLOSE-LLV(LOW,14))/(HHV(HIGH,14)-LLV(LOW,14)))*(100),4,1);
VAR11:=SMA(((CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15)))*(100),4,1);
VAR12:=SMA(((CLOSE-LLV(LOW,16))/(HHV(HIGH,16)-LLV(LOW,16)))*(100),4,1);
VAR13:=SMA(((CLOSE-LLV(LOW,17))/(HHV(HIGH,17)-LLV(LOW,17)))*(100),4,1);
VAR14:=SMA(((CLOSE-LLV(LOW,18))/(HHV(HIGH,18)-LLV(LOW,18)))*(100),4,1);
VAR17:=SMA(((CLOSE-LLV(LOW,20))/(HHV(HIGH,20)-LLV(LOW,20)))*(100),4,1);
VAR18:=(HIGH+LOW+CLOSE)/(3);
VAR19:=(VAR18-MA(VAR18,14))/((0.015)*(AVEDEV(VAR18,14)));
VAR1A:=(VAR18-MA(VAR18,70))/((0.015)*(AVEDEV(VAR18,70)));
VAR1B:=IF((VAR19>=150) AND (VAR19<200) AND (VAR1A>=150) AND (VAR1A<200),(-10),0);
VAR1C:=IF((VAR19<=(-150)) AND (VAR19>(-200)) AND (VAR1A<=(-150)) AND (VAR1A>(-200)),10,0);
VAR1D:=((CLOSE-MA(CLOSE,13))/(MA(CLOSE,13)))*(100);
VAR1E:=100-ABS(VAR1D);
趋势:=(SMA((VAR11-50)*(2),3,1)+SMA((VARD-50)*(2),3,1))/(2),COLORRED,LINETHICK2;
D:=((3)*(VAR17-50))*(2)-(2)*(SMA((VAR17-50)*(2),3,1)),COLOR00FFFF;
DRAWTEXT(CROSS(D,趋势),(LOW * 0.99),'买进');
{}
长下影:=(MIN(CLOSE,OPEN)-LOW)/(HIGH-LOW)>0.38;
最新价:=LOW,LINETHICK0;
新价:=CLOSE,LINETHICK0;
高价:=HIGH,LINETHICK0;
出货:1.36*MA(FORCAST(CLOSE,2),40),COLOR08ffff,POINTDOT,PRECISION2,LINETHICK3;
高抛:1.16*MA(FORCAST(CLOSE,2),40),COLORff82ff,POINTDOT,PRECISION2,LINETHICK3;
低吸:0.82*MA(FORCAST(CLOSE,2),40),COLORf7e300,POINTDOT,PRECISION2,LINETHICK3;
满仓:0.72*MA(FORCAST(CLOSE,2),40),COLOR0000ff,POINTDOT,PRECISION2,LINETHICK3;
平衡:(高抛+低吸)/2,ColorWHITE,PRECISION2,,POINTDOT,LINETHICK0;
关注1:=满仓>最新价 AND 长下影 AND 最新价<REF(最新价,1),linethick0;
关注2:=低吸>最新价 AND 长下影 AND 最新价<REF(最新价,1),linethick0;
{}
M3:=MA(CLOSE,3),linethick0;
M8:=MA(CLOSE,8)linethick0;
M21:=MA(CLOSE,21)linethick0;
BB:=BARPOS=SYSPARAM(1);
variable:wday[7]='星期六';
wday[1]:='星期日';
wday[2]:='星期一';
wday[3]:='星期二';
wday[4]:='星期三';
wday[5]:='星期四';
wday[6]:='星期五';
fy:=year;
fm:=month;
fd:=day;
wd:=weekday;
p:=sysparam(1);
str1:='今天是：'+numtostr(fy[p],0)+'年'+numtostr(fm[p],0)+'月'
+numtostr(fd[p],0)+'日, '+wday[wd[p]+1];
explain(barpos=p,str1),colorRED;
DRAWTEXT(barpos=p,H*1.12,str1),ALIGN2,coloryellow,;
买线:=EMA(C,2);
卖线:=EMA(SLOPE(C,13)*20+C,40);
BU:=cross(买线,卖线);
SEL:=cross(卖线,买线);
drawtext(bu,LOW*0.996,'B'),colorred,linethick3;
买入:bu AND LOW*0.996,LINETHICK0,COLORRED;
drawtext(sel,HIGH*1.028,'S'),colorffff00,linethick3;
stickline(买线>=卖线,low,high,1,0),colorred;
stickline(买线>=卖线,close,open,4.5,0),color0000aa;
stickline(买线>=卖线,close,open,4,0),color0000cc;
stickline(买线>=卖线,close,open,3,0),color0000cc;
stickline(买线>=卖线,close,open,2,0),color0000ee;
stickline(买线<卖线,close,open,4.5,0),coloraaaa00;
stickline(买线<卖线,close,open,4,0),colorbbbb00;
stickline(买线<卖线,close,open,3,0),colorcccc00;
stickline(买线<卖线,close,open,2,0),coloreeee00;
stickline(买线<卖线,low,high,1,0),colorffff00;
stickline(cross(买线,卖线) or cross(卖线,买线),open,close,3,0),color00ffff;
v1:=ema(close,5);
v2:=ema(ema(close,90)*1.01,10),;
DRAWTEXT(cross(v1,v2),v1+0.01,'牛起步'),color00ff00,LINETHICK2;
VAR1:=LLV(LOW,21);
VAR2:=HHV(HIGH,21);
AK1:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 100),5);
AK:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 50),13);
AB:=CROSS(AK1,AK);
DRAWICON(cross(v1,v2),v2,1);
DRAWTEXT(关注1,(LOW * 0.99),'○牛窝'),colorYELLOW;
牛窝:关注1,LINETHICK0;
牛起步:cross(v1,v2),LINETHICK0;
黑马扫荡:=满仓>最新价 AND 满仓<高价,LINETHICK0;
黑马:关注1 OR 关注2 OR 黑马扫荡,LINETHICK0,COLORYELLOW;
input:n(4,1,255);
wN:=N;{原码 N:=3;}
wA1:=REF(H,wN)=HHV(H,2*wN+1); wB1:=FILTER(wA1,wN);
wC1:=BACKSET(wB1,wN+1);
wD1:=FILTER(wC1,wN);{高点}
wA2:=REF(L,wN)=LLV(L,2*wN+1); wB2:=FILTER(wA2,wN);
wC2:=BACKSET(wB2,wN+1);
wD2:=FILTER(wC2,wN);{低点}
wR1:=BACKSET(BARSTATUS=2,BARSLAST(wD1)+1); wS1:=wR1>REF(wR1,1); {前一高}
wT1:=BACKSET(BARSTATUS=2,BARSLAST(wD2)+1); wU1:=wT1>REF(wT1,1); {前一低}
wR2:=BACKSET(wS1,REF(BARSLAST(wD1),1)+2); wS2:=wR2>REF(wR2,1); {前二高}
wT2:=BACKSET(wU1,REF(BARSLAST(wD2),1)+2); wU2:=wT2>REF(wT2,1); {前二低}
wR3:=BACKSET(wS2,REF(BARSLAST(wD1),1)+2); wS3:=wR3>REF(wR3,1); {前三高}
wT3:=BACKSET(wU2,REF(BARSLAST(wD2),1)+2); wU3:=wT3>REF(wT3,1); {前三低}
wR4:=BACKSET(wS3,REF(BARSLAST(wD1),1)+2); wS4:=wR4>REF(wR4,1); {前四高}
wT4:=BACKSET(wU3,REF(BARSLAST(wD2),1)+2); wU4:=wT4>REF(wT4,1); {前四高}
DRAWLINE(wS2,H,wS1,H,1),Color0000Ff,LINETHICK1; {★压力１:}
DRAWLINE(wU2,L,wU1,L,1),ColorWHITE,LINETHICK1;{★支撑１:}
DRAWLINE(wS3,H,wS2,H,1),Color0000Ff,LINETHICK0; {★压力２:}
DRAWLINE(wU3,L, wU2,L,1),ColorWHITE,LINETHICK0;{★支撑２:}
DRAWLINE(wS4,H,wS3,H,1),Color0000Ff,LINETHICK0;{★压力３:}
DRAWLINE(wU4,L, wU3,L,1),ColorWHITE,LINETHICK0;{★支撑３;}
提示：公式有未来函数
[url=http://www.70822.com/soft/sort013/sort02/down-7642.html]我的自用主图[/url]