主图切换A
主图切换A
受版主鼓励再做一组
光标处于 '左起' 第二根、第三根、第四根K线位置
主图切换A
//以下为主指标组
趋势线:SMA(FORCAST(CLOSE,13),5,1),COLORffff00,LINETHICK1,PRECISION2;
//以下定位光标位置
aa:=sysparam(1);
cc:=sysparam(2);
dd:=aa-cc;
//光标处于左起第二根K线位置)时画出指标组一
if dd=1 then begin
{真正的【操盘线】}
持股线:EMA(CLOSE,26),Color7B7B78,LINETHICK3;
dif:=EMA(CLOSE,12)-EMA(CLOSE,26);
dea:=EMA(dif,9);
aa:=EMA(CLOSE,10);
多头:STICKLINE(dif>dea,CLOSE,OPEN,8,0),colorred;
STICKLINE(dif>dea,HIGH,LOW,0,0),colorred;
空头:STICKLINE(dif<=dea,CLOSE,OPEN,8,0),colorgreen;
STICKLINE(dif<=dea,HIGH,LOW,0,0),colorgreen;
STICKLINE(dif<=dea and aa>MA(CLOSE,50),CLOSE,OPEN,8,0),coloryellow;
STICKLINE(dif<=dea and aa>MA(CLOSE,50),HIGH,LOW,0,0),coloryellow;
STICKLINE(dif>dea and aa<MA(CLOSE,50),CLOSE,OPEN,8,0),COLOR77AAFF;
STICKLINE(dif>dea and aa<MA(CLOSE,50),HIGH,LOW,0,0),COLOR77AAFF;
DRAWTEXT(CROSS(dif,dea),LOW*0.995, '▲'),colorred,linethick3,align0;
DRAWTEXT(CROSS(dea,dif),HIGH*1.01, '▼'),colorgreen,linethick3,align0;
n:=50;
LC:=REF(CLOSE,1);
RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);
FF:=EMA(CLOSE,3);
MA15:=EMA(CLOSE,21);
AA:=(CLOSE - MA15);
DRAWTEXT(CROSS(FF,MA15),(LOW * 0.99),'▲'),coloryellow,align0;
DRAWTEXT(CROSS(MA15,FF),(HIGH * 1.02),'▼'),colorCOLORBLUE,align0;
DRAWTEXT(FILTER(CROSS(n,RSI),9),(HIGH * 1.02),'◆'),colorFFFFFF,align0;
end;
//光标处于左起第三根K线位置)时画出指标组二
if dd=2 then begin
{【千钧均线】主图}
variable:pv[50]=0,pc[50]=0;
hh:=hhv(high,0);
ll:=llv(low,0);
fv:=vol;
fh:=high;
fl:=low;
p:=sysparam(1);
dd:=(hh[p]-ll[p])/49;
for i=p downto 1 do begin
sh:=(fh-ll[p])/dd+1;
sl:=(fl-ll[p])/dd+1;
dj:=fv/(sh-sl+1);
for j=sl to sh do pv[j]:=pv[j]+dj;
end;
s:=0;
for i=1 to 50 do if s <pv then s:=pv;
bl:=s/(sysparam(3)-sysparam(2))*2;
drawsl(barpos=sysparam(3),sysparam(5),0,pv[1]/bl+1,1),Color0000FF;
drawsl(barpos=sysparam(3),sysparam(5)+dd,0,pv[2]/bl+1,1),Color0000FF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*02,0,pv[03]/bl+1,1),Color0000FF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*03,0,pv[04]/bl+1,1),Color0000FF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*04,0,pv[05]/bl+1,1),Color0000FF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*05,0,pv[06]/bl+1,1),Color0000FF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*06,0,pv[07]/bl+1,1),Color0000FF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*07,0,pv[08]/bl+1,1),Color0000FF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*08,0,pv[09]/bl+1,1),Color0000FF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*09,0,pv[10]/bl+1,1),Color0000FF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*10,0,pv[11]/bl+1,1),Color0000FF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*11,0,pv[12]/bl+1,1),Color0000FF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*12,0,pv[13]/bl+1,1),Color0000FF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*13,0,pv[14]/bl+1,1),Color0000FF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*14,0,pv[15]/bl+1,1),Color0000FF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*15,0,pv[16]/bl+1,1),Color0000FF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*16,0,pv[17]/bl+1,1),Color0000FF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*17,0,pv[18]/bl+1,1),Color0000FF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*18,0,pv[19]/bl+1,1),Color00FFFF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*19,0,pv[20]/bl+1,1),Color00FFFF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*20,0,pv[21]/bl+1,1),Color00FFFF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*21,0,pv[22]/bl+1,1),Color00FFFF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*22,0,pv[23]/bl+1,1),Color00FFFF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*23,0,pv[24]/bl+1,1),Color00FFFF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*24,0,pv[25]/bl+1,1),Color00FFFF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*25,0,pv[26]/bl+1,1),Color00FFFF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*26,0,pv[27]/bl+1,1),Color00FFFF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*27,0,pv[28]/bl+1,1),Color00FFFF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*28,0,pv[29]/bl+1,1),Color00FFFF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*29,0,pv[30]/bl+1,1),Color00FFFF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*30,0,pv[31]/bl+1,1),Color00FFFF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*31,0,pv[32]/bl+1,1),Color00FFff;
drawsl(barpos=sysparam(3),sysparam(5)+dd*32,0,pv[33]/bl+1,1),Color00ffff;
drawsl(barpos=sysparam(3),sysparam(5)+dd*33,0,pv[34]/bl+1,1),Color00ffff;
drawsl(barpos=sysparam(3),sysparam(5)+dd*34,0,pv[35]/bl+1,1),Color00ffff;
drawsl(barpos=sysparam(3),sysparam(5)+dd*35,0,pv[36]/bl+1,1),Color00ffff;
drawsl(barpos=sysparam(3),sysparam(5)+dd*36,0,pv[37]/bl+1,1),Color00ff00;
drawsl(barpos=sysparam(3),sysparam(5)+dd*37,0,pv[38]/bl+1,1),Color00ff00;
drawsl(barpos=sysparam(3),sysparam(5)+dd*38,0,pv[39]/bl+1,1),Color00ff00;
drawsl(barpos=sysparam(3),sysparam(5)+dd*39,0,pv[40]/bl+1,1),Color00ff00;
drawsl(barpos=sysparam(3),sysparam(5)+dd*40,0,pv[41]/bl+1,1),Color00ff00;
drawsl(barpos=sysparam(3),sysparam(5)+dd*41,0,pv[42]/bl+1,1),Color00ff00;
drawsl(barpos=sysparam(3),sysparam(5)+dd*42,0,pv[43]/bl+1,1),Color00ff00;
drawsl(barpos=sysparam(3),sysparam(5)+dd*43,0,pv[44]/bl+1,1),Color00ff00;
drawsl(barpos=sysparam(3),sysparam(5)+dd*44,0,pv[45]/bl+1,1),Color00ff00;
drawsl(barpos=sysparam(3),sysparam(5)+dd*45,0,pv[46]/bl+1,1),Color00ff00;
drawsl(barpos=sysparam(3),sysparam(5)+dd*46,0,pv[47]/bl+1,1),Color00ff00;
drawsl(barpos=sysparam(3),sysparam(5)+dd*47,0,pv[48]/bl+1,1),Color00ff00;
drawsl(barpos=sysparam(3),sysparam(5)+dd*48,0,pv[49]/bl+1,1),Color00ff00;
drawsl(barpos=sysparam(3),sysparam(5)+dd*49,0,pv[50]/bl+1,1),Color00ff00;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,'一发千钧告诫朋友:\n指标是参考,决策在人脑.\n把握好工具,切莫当稻草!')align4,ColorFFBFFF;
jjx:=ABS(OPEN+HIGH+LOW+CLOSE)/4;
{jjx:AMOUNT/V/100,LINETHICK0,PRECISION2;}
生命:MA(jjx,5),ColorFF00FF;
生命线:MA(jjx,26),Color00FFFF,LINETHICK2,PRECISION2;
KS:=(C-MA(C,17))/MA(C,17)*(-100);
RKS:=REF(KS,1);
MLS:=RKS/KS>=1.23 AND RKS>=8 AND C/REF(C,1)>=1.02;
超跌:STICKLINE(KS>=17,o,L,6,0),colorwhite,linethick6;
反弹:STICKLINE(MLS=1,o,L,6,0),colormagenta,linethick6;
超超跌:STICKLINE(KS>=34,o,L,8,1),colorwhite,linethick6;
反反弹:STICKLINE(MLS=1,o,L,8,1),colormagenta,linethick6;
超极跌:STICKLINE(KS>=34,o,L,8,1),COLORCYAN,linethick6;
DRAWTEXT(SUM(VOL/CAPITAL*100,3)>5 and (CLOSE-REF(CLOSE,3))/REF(CLOSE,3)*100>5 and
SUM(VOL/CAPITAL*100,3)<7 and (CLOSE-REF(CLOSE,3))/REF(CLOSE,3)*100<7 and
VOL>REF(VOL,1) and (CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100<3,LOW*0.99,
'▲\n追\n涨\n必\n胜'),COLORYELLOW;
//
end;
//光标处于左起第四根K线位置)时画出指标组三
if dd=3 then begin
{千钧【财务主图】}
千钧剑:eMA(CLOSE,14),Color00FFFF;
生命一号:eMA(CLOSE,26);
生命二号:eMA(CLOSE,55),COLORgreen;
生命三号:eMA(CLOSE,144);
三:=eMA(CLOSE,318);
五:=eMA(CLOSE,550);
六:=eMA(CLOSE,610);
七:=eMA(CLOSE,730);
八:=eMA(CLOSE,888);
九:=eMA(CLOSE,453), COLORred,linethick2;
DIFF:=( EMA(CLOSE,7) - EMA(CLOSE,19));
DEA:=EMA(DIFF,9);
MACD:=0.90*(DIFF-DEA);
tj:=(diff>=dea);
tj1:=(diff>=0);
stickline(tj,h,l,0.5,0),COLORyellow;
stickline(tj,o,c,4,0),COLORyellow;
stickline(tj1 and tj,h,l,0.5,0),colorf00ff0;
stickline(tj1 and tj,o,c,4,1),colorf00ff0;
stickline(diff<dea,h,l,0.5,0),colorf0f000;
stickline(diff<dea,o,c,4,0),colorf0f000;
Var1:=(CLOSE*2+HIGH+LOW)/4;
SK:= EMA(Var1,13)-EMA(Var1,73);
SD:= EMA(SK,2);
drawtext((cross(sk,sd) and sk<-0.04 and (c-ref(c,1))/ref(c,1)>=0.03) or (cross(sk,sd) and sk<=-0.14 ) or (cross(sk,sd) and sk<=0.05 and (v/ma(v,5)>2 or c/ref(c,1)>0.035)) ,l*0.99,'短\n买'),Color00A4FF;
stickline((cross(sk,sd) and sk<-0.04 and (c-ref(c,1))/ref(c,1)>=0.03) or (cross(sk,sd) and sk<=-0.14 ) or (cross(sk,sd) and sk<=0.05 and (v/ma(v,5)>2 or c/ref(c,1)>0.035)),h,l,0.5,0), COLORred;
stickline((cross(sk,sd) and sk<-0.04 and (c-ref(c,1))/ref(c,1)>=0.03) or (cross(sk,sd) and sk<=-0.14 ) or (cross(sk,sd) and sk<=0.05 and (v/ma(v,5)>2 or c/ref(c,1)>0.035)),o,c,10,1),linethick3, COLORred;
市值:=C*CAPITAL*VOLUNIT/100000000;
股本:=FINANCE(1)/10000;
流通:=FINANCE(7)/10000;
股东总数:=FINANCE(50);
主营业务增长率:=FINANCE(53);
税后利润增长率:=FINANCE(54);
净利润增长率:=FINANCE(55);
人均持股:=(FINANCE( 7)/FINANCE(50))*10000;
市盈率:=DYNAINFO(39);
市净率:=c/FINANCE(34);
F:=COST(5 );J:=COST(95 );
M:=COST(15 );N:=COST(85 );
F1:=(J-F)/(F+J)*100;M1:=(N-M)/(N+M)*100;
成本集中度:=F1;
莸利比例:=WINNER(c )*100;
日换手率:=vol/CAPITAL*100;
净资产:=FINANCE(34);
净资收益率:=FINANCE(37);
最新收益:=FINANCE(33);
每股未分配:=FINANCE(32);
毛利润率:=FINANCE(21)/FINANCE(20)*100;
净利润率:=FINANCE(30)/FINANCE(20)*100;
股东权益比:=FINANCE(19)/FINANCE(50);
总资产增长率:=FINANCE(56);
每股公积金:=FINANCE(18);
DRAWTEXTEX(c,1,10,13,'市值:'),linethick1,ColorFFFFFF;
DRAWTEXTEX(c,1,60,13,NUMTOSTR(市值,2)+'亿元'),ColorFFFFFF;
DRAWTEXTEX(c,1,220,13,'股本:'),LINETHICK1,ColorFFFFFF;
DRAWTEXTEX(c,1,290,13,NUMTOSTR(股本,2)+'亿股'),ColorFFFFFF;
DRAWTEXTEX(c,1,430,13,'流通:'),LINETHICK1,ColorFFFFFF;
DRAWTEXTEX(c,1,500,13,NUMTOSTR(流通,2)+'亿股'),ColorFFFFFF;
DRAWTEXTEX(c,1,620,13,'市盈率:'),LINETHICK1,ColorFFFFFF;
DRAWTEXTEX(c,1,720,13,NUMTOSTR(市盈率,2)+''),ColorFFFFFF;
DRAWTEXTEX(c,1,830,13,'市净率:'),LINETHICK1,ColorFFFFFF;
DRAWTEXTEX(c,1,920,13,NUMTOSTR(市净率,2)+''),ColorFFFFFF;
DRAWTEXTEX(c,1,10,85,'成本集中度:'),LINETHICK2,ColorAFFF00;
DRAWTEXTEX(c,1,160,85,NUMTOSTR(成本集中度,2)+'%'),ColorAFFF00;
DRAWTEXTEX(c,1,300,85,'莸利比例:'),LINETHICK2,ColorAFFF00;
DRAWTEXTEX(c,1,410,85,NUMTOSTR(莸利比例,2)+'%'),ColorAFFF00;
DRAWTEXTEX(c,1,620,85,'日换手率:'),LINETHICK2,ColorAFFF00;
DRAWTEXTEX(c,1,730,85,NUMTOSTR(日换手率,2)+'%'),ColorAFFF00;
DRAWTEXTEX(c,1,830,85,'净资产:'),LINETHICK2,ColorAFFF00;
DRAWTEXTEX(c,1,920,85,NUMTOSTR(净资产,2)+''),ColorAFFF00;
DRAWTEXTEX(c,1,10,585,'净资收益率:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(c,1,160,585,NUMTOSTR(净资收益率,2)+'%'),Color00FFFF;
DRAWTEXTEX(c,1,10,157,'最新收益:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(c,1,160,157,NUMTOSTR(最新收益,2)+''),Color00FFFF;
DRAWTEXTEX(c,1,10,375,'每股未分配:'),LINETHICK2,Color007DFF;
DRAWTEXTEX(c,1,160,375,NUMTOSTR(每股未分配,2)+''),Color007DFF;
DRAWTEXTEX(c,1,10,445,'毛利润率:'),LINETHICK2,ColorFFFF00;
DRAWTEXTEX(c,1,160,445,NUMTOSTR(毛利润率,2)+'%'),ColorFFFF00;
DRAWTEXTEX(c,1,10,515,'净利润率:'),LINETHICK2,Color007DFF;
DRAWTEXTEX(c,1,160,515,NUMTOSTR(净利润率,2)+''),Color007DFF;
DRAWTEXTEX(c,1,10,229,'股东权益比:'),LINETHICK2,ColorFFFF00;
DRAWTEXTEX(c,1,160,229,NUMTOSTR(股东权益比,2)+'%'),ColorFFFF00;
DRAWTEXTEX(c,1,10,301,'每股公积金:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(c,1,160,301,NUMTOSTR(每股公积金,2)+''),Color00FFFF;
DRAWTEXTEX(c,1,10,655,'股东总数:'),LINETHICK2,ColorAFFF00;
DRAWTEXTEX(c,1,160,655,NUMTOSTR(股东总数,0)+''),ColorAFFF00;
DRAWTEXTEX(c,1,10,725,'人均持股:'),LINETHICK2,Color007DFF;
DRAWTEXTEX(c,1,160,725,NUMTOSTR(人均持股,0)+''),Color007DFF;
DRAWTEXTEX(c,1,300,157,'主营业务增长率:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(c,1,490,157,NUMTOSTR(主营业务增长率,2)+'%'),Color00FFFF;
DRAWTEXTEX(c,1,620,157,'净利润增长率:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(c,1,780,157,NUMTOSTR(净利润增长率,2)+'%'),Color00FFFF;
DRAWTEXTEX(c,1,300,227,'税后利润增长率:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(c,1,490,227,NUMTOSTR(税后利润增长率,2)+'%'),Color00FFFF;
DRAWTEXTEX(c,1,620,227,'总资产增长率:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(c,1,780,227,NUMTOSTR(总资产增长率,2)+'%'),Color00FFFF;
DRAWTEXTEX(c,1,540,227,NUMTOSTR(总资产增长率,2)+'%'),Color00FFFF;
CYF:=100-100/(1+EMA(V/CAPITAL,13)*13);
HUO:=HHV(WINNER(C),40)>0.85;
ASR:=(WINNER(C)-WINNER(C*0.4))<0.13;
CBW:=(COST(96)/COST(4)-1)<0.35;
TT:=HHV(CYF,40)<27 AND HUO AND ASR AND CBW;
TYB:((HHV(CYF,40)-CYF)/HHV(CYF,40))*TT*100,COLORRED,STICK;
STICKLINE(TYB,(HHV(CYF,40)-CYF)/HHV(CYF,40)*100,0,6,0),COLORRED;
//
end;