[大智慧新一代] 主图+2副图,趋势一目了然!

主图+2副图,趋势一目了然!

主图
lhnh:=BARSLAST(DISPSTATUS=1)+1;
nnl:=DISPSTATUS=2;
qqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));
hh:=HHV(h ,lhnh);
ll:=llV(l ,lhnh);
q809:=ll+(hh-ll)*0.809;
q618:=ll+(hh-ll)*0.618;
q500:=ll+(hh-ll)*0.5;
q382:=ll+(hh-ll)*0.382;
q191:=ll+(hh-ll)*0.191;
PARTLINE(hh,qqqq,RGB(255,18,28)),DOTLINE;
PARTLINE(q191,qqqq,RGB(198,248,248)),DOTLINE;
PARTLINE(q382,qqqq,RGB(255,182,193));
PARTLINE(q500,qqqq,RGB(255,0,255)),DOTLINE;
PARTLINE(q618,qqqq,RGB(98,98,228)),DOTLINE;
PARTLINE(q809,qqqq,RGB(158,228,158)),DOTLINE;
PARTLINE(ll,qqqq,RGB(238,238,28)),DOTLINE;
DRAWTEXT(nnl,hh*0.998,'最高价：'+hh),ALIGN2,Color00FFFF;
DRAWTEXT(nnl,q809,'19.1%：'+q809),ALIGN2,Color00FFFF;
DRAWTEXT(nnl,q618,'38.2%：'+q618),ALIGN2,Color00FFFF;
DRAWTEXT(nnl,q500,'50%：'+q500),ALIGN2,Color00FFFF;
DRAWTEXT(nnl,q382,'61.8%：'+q382),ALIGN2,Color00FFFF;
DRAWTEXT(nnl,q191,'80.9%：'+q191),ALIGN2,Color00FFFF;
DRAWTEXT(nnl,ll*1.01,'最低价：'+ll),ALIGN2,VALIGN2,Color00FFFF;
Var1:=(2*CLOSE+HIGH+LOW+OPEN)/5;
A1: (EMA(Var1,3)+EMA(Var1,6)+EMA(Var1,12)+EMA(Var1,24))/4;
PARTLINE(A1,A1>=REF(A1,1),RGB(255,0,0),A1<=REF(A1,1),RGB(50,210,20)),LINETHICK2;
A2: EMA(A1,2);
PARTLINE(A2,A2>=REF(A2,1),RGB(255,70,20),A2<=REF(A2,1),RGB(50,230,20)),LINETHICK1;
A3: EMA(A2,2);
PARTLINE(A3,A3>=REF(A3,1),RGB(255,90,40),A3<=REF(A3,1),RGB(0,255,0)),LINETHICK1;
A4: EMA(A3,2);
PARTLINE(A4,A4>=REF(A4,1),RGB(255,110,60),A4<=REF(A4,1),RGB(0,255,0)),LINETHICK1;
A5: EMA(A4,2);
PARTLINE(A5,A5>=REF(A5,1),RGB(255,130,80),A5<=REF(A5,1),RGB(127,255,0)),LINETHICK1;
A6: EMA(A5,2);
PARTLINE(A6,A6>=REF(A6,1),RGB(255,150,100),A6<=REF(A6,1),RGB(124,252,0)),LINETHICK1;
A7: EMA(A6,2);
PARTLINE(A7,A7>=REF(A7,1),RGB(255,170,120),A7<=REF(A7,1),RGB(173,255,47)),LINETHICK1;
A8: EMA(Var1,2.78)*1.028,colorWHITE,LINETHICK1;
A9: MA(OPEN,3.2)*1.028,COLORFFFF00,LINETHICK1;
安全线: EMA(CLOSE,55), CIRCLEDOT;
PARTLINE(安全线,安全线>=REF(安全线,1),RGB(255,0,255),安全线<=REF(安全线,1),RGB(0,0,255)),LINETHICK4, POINTDOT;
界: MA(CLOSE,21),linethick0,Color00FFFF;
上限: 界+3*STD(C,20),linethick0,Color00FFFF;
卖: 界+2*STD(C,20),linethick0,Colorgreen;
买: 界-2*STD(C,20),linethick0,ColorF0FF00;
下限: 界-2.9*STD(close,20),linethick0,Color00FF00;
DRAWTEXT(cross(买,L),l,'△'),ALIGN1,VALIGN0,ColorFFFFFF;
DRAWTEXT(cross(买,C),L,'▲'),ALIGN1,VALIGN0,Colorff00ff;
IF BARSTATUS=2 and v>ref(v,1) and ma(v,5)>ref(ma(v,5),1) THEN
DRAWTEXTREL(5,115,'今日成交量大于昨日,且有继续增大趋势'),Color8285FF;
IF BARSTATUS=2 and v<ref(v,1) and ma(v,5)>ref(ma(v,5),1) THEN
DRAWTEXTREL(5,115,'今日成交量小于昨日，但有放大迹象'),Color8285FF;
IF BARSTATUS=2 and v>ref(v,1)and ma(v,5)<ref(ma(v,5),1) THEN
DRAWTEXTREL(5,115,'今日成交量大于昨日, 但有缩小迹象'),Color8285FF;
IF BARSTATUS=2 and v<ref(v,1)and ma(v,5)<ref(ma(v,5),1) THEN
DRAWTEXTREL(5,115,'今日成交量小于昨日，且有缩小迹象'),Color8285FF;
if DISPSTATUS=2 then begin;
var100:='所属板块:';
if inblock('电力')=1 then var100:=var100+' 电力';
if inblock('电脑')=1 then var100:=var100+' 电脑';
if inblock('电器')=1 then var100:=var100+' 电器';
if inblock('电子信息')=1 then var100:=var100+' 电子信息';
if inblock('房地产')=1 then var100:=var100+' 房地产';
if inblock('纺织服装')=1 then var100:=var100+' 纺织服装';
if inblock('钢铁')=1 then var100:=var100+' 钢铁';
if inblock('工程建筑')=1 then var100:=var100+' 工程建筑';
if inblock('供水供气')=1 then var100:=var100+' 供水供气';
if inblock('化工')=1 then var100:=var100+' 化工';
if inblock('化纤')=1 then var100:=var100+' 化纤';
if inblock('机械')=1 then var100:=var100+' 机械';
if inblock('建材')=1 then var100:=var100+' 建材';
if inblock('交通工具')=1 then var100:=var100+' 交通工具';
if inblock('交通设施')=1 then var100:=var100+' 交通设施';
if inblock('教育传媒')=1 then var100:=var100+' 教育传媒';
if inblock('金融')=1 then var100:=var100+' 金融';
if inblock('旅游酒店')=1 then var100:=var100+' 旅游酒店';
if inblock('煤炭石油')=1 then var100:=var100+' 煤炭石油';
if inblock('酿酒食品')=1 then var100:=var100+' 酿酒食品';
if inblock('农林牧渔')=1 then var100:=var100+' 农林牧渔';
if inblock('其他行业')=1 then var100:=var100+' 其他行业';
if inblock('汽车')=1 then var100:=var100+' 汽车';
if inblock('汽配')=1 then var100:=var100+' 汽配';
if inblock('商业连锁')=1 then var100:=var100+' 商业连锁';
if inblock('石化')=1 then var100:=var100+' 石化';
if inblock('通信')=1 then var100:=var100+' 通信';
if inblock('外贸')=1 then var100:=var100+' 外贸';
if inblock('医药')=1 then var100:=var100+' 医药';
if inblock('仪电仪表')=1 then var100:=var100+' 仪电仪表';
if inblock('有色金属')=1 then var100:=var100+' 有色金属';
if inblock('运输物流')=1 then var100:=var100+' 运输物流';
if inblock('造纸印刷')=1 then var100:=var100+' 造纸印刷';
if inblock('安徽')=1 then var100:=var100+' 安徽';
if inblock('北京')=1 then var100:=var100+' 北京';
if inblock('福建')=1 then var100:=var100+' 福建';
if inblock('甘肃')=1 then var100:=var100+' 甘肃';
if inblock('广东')=1 then var100:=var100+' 广东';
if inblock('广西')=1 then var100:=var100+' 广西';
if inblock('贵州')=1 then var100:=var100+' 贵州';
if inblock('海南')=1 then var100:=var100+' 海南';
if inblock('河北')=1 then var100:=var100+' 河北';
if inblock('河南')=1 then var100:=var100+' 河南';
if inblock('黑龙江')=1 then var100:=var100+' 黑龙江';
if inblock('湖北')=1 then var100:=var100+' 湖北';
if inblock('湖南')=1 then var100:=var100+' 湖南';
if inblock('吉林')=1 then var100:=var100+' 吉林';
if inblock('江苏')=1 then var100:=var100+' 江苏';
if inblock('江西')=1 then var100:=var100+' 江西';
if inblock('辽宁')=1 then var100:=var100+' 辽宁';
if inblock('内蒙古')=1 then var100:=var100+' 内蒙古';
if inblock('宁夏')=1 then var100:=var100+' 宁夏';
if inblock('青海')=1 then var100:=var100+' 青海';
if inblock('山东')=1 then var100:=var100+' 山东';
if inblock('山西')=1 then var100:=var100+' 山西';
if inblock('陕西')=1 then var100:=var100+' 陕西';
if inblock('上海')=1 then var100:=var100+' 上海';
if inblock('深圳')=1 then var100:=var100+' 深圳';
if inblock('四川')=1 then var100:=var100+' 四川';
if inblock('天津')=1 then var100:=var100+' 天津';
if inblock('***')=1 then var100:=var100+' ***';
if inblock('新疆')=1 then var100:=var100+' 新疆';
if inblock('云南')=1 then var100:=var100+' 云南';
if inblock('浙江')=1 then var100:=var100+' 浙江';
if inblock('重庆')=1 then var100:=var100+' 重庆';
if inblock('3G')=1 then var100:=var100+' 3G';
if inblock('H股')=1 then var100:=var100+' H股';
if inblock('QFII持股')=1 then var100:=var100+' QFII持股';
if inblock('ST')=1 then var100:=var100+' ST';
if inblock('奥运')=1 then var100:=var100+' 奥运';
if inblock('创投')=1 then var100:=var100+' 创投';
if inblock('次新股')=1 then var100:=var100+' 次新股';
if inblock('大盘')=1 then var100:=var100+' 大盘';
if inblock('股权改革')=1 then var100:=var100+' 股权改革';
if inblock('股权投资')=1 then var100:=var100+' 股权投资';
end;
DRAWTEXTABS(390,355,var100),Colorwhite;
DRAWTEXTABS(200,355,extrastring('评级')),LINETHICK1,Colorwhite,ALIGN1;
市值:=C*CAPITAL*VOLUNIT/100000000;
流通:=FINANCE2(37)/10000;
人均持股:=CEILING(CAPITAL*100/selfdata('shx'));
市盈率:=DYNAINFO(39);
市净率:=c/FINANCE2(4);
F:=COST(5 );J:=COST(95 );
M:=COST(15 );N:=COST(85 );
F1:=(J-F)/(F+J)*100;M1:=(N-M)/(N+M)*100;
成本集中度90:=F1;
成本集中度70:=M1;
获利盘:=WINNER(CLOSE)*100;
套牢盘:=100*(1-WINNER(C));
日换手率:=vol/CAPITAL*100;
净资产:=FINANCE2(4);
最新收益:=FINANCE2(3);
浮筹比例:=(winner(c*1.1)-winner(c*0.9))/winner(hhv(h,0))*100;
DRAWTEXTABS(190,25,'浮筹比例:'+浮筹比例+'% '),LINETHICK1,ColorFFFF00;
DRAWTEXTABS(5,75,'流通:'+流通+' '),LINETHICK1,ColorffFF07;
DRAWTEXTABS(240,10,'市盈率:'+市盈率+' '),LINETHICK1,Colorff00ff;
DRAWTEXTABS(325,10,'市净率:'+市净率+' '),LINETHICK1,Coloryellow;
DRAWTEXTABS(5,10,'成本集中度90:'+成本集中度90+' '),LINETHICK1,Color00FF00;
DRAWTEXTABS(125,10,'成本集中度70:'+成本集中度70+' '),LINETHICK1,ColorYELLOW;
DRAWTEXTABS(5,25,'获利盘:'+获利盘+'% '),LINETHICK1,Coloryellow;
DRAWTEXTABS(100,25,'套牢盘:'+套牢盘+'% '),LINETHICK1,Colorgreen;
DRAWTEXTABS(295,25,'人均持股:'+日换手率+' '),LINETHICK1,Colorff00ff;
DRAWTEXTABS(5,60,'净资产:'+净资产+'元 '),LINETHICK1,Coloryellow;
DRAWTEXTABS(100,60,'最新收益:'+最新收益+'元 '),LINETHICK1,COLORff00ff;  

相关内容