一目了然 顶底背离主图精华版(源码 说明)介绍
一目了然 顶底背离主图精华版(源码 说明)
年:MA(CLOSE,26),color00ff00;
STICKLINE(C>=年 AND C>=O,C,O,7,0),COLORRED;
STICKLINE(C>=年 AND C>=O,H,L,0,0),COLORRED;
STICKLINE(C>=年 AND C<O,C,O,7,1),COLORRED;
STICKLINE(C>=年 AND C<O,O,H,0,0),COLORRED;
STICKLINE(C>=年 AND C<O,C,L,0,0),COLORRED;
STICKLINE(C<年 AND C>O,C,O,7,1),COLORffff00;
STICKLINE(C<年 AND C<=O,C,O,7,1),COLORffff00;
STICKLINE(C<年 AND C<=O,H,L,0,1),COLORffff00;
STICKLINE(C<年 AND C>O,C,H,0,1),COLORffff00;
STICKLINE(C<年 AND C>O,O,L,0,1),COLORffff00;
cp:="cpzb@cp";
cp,LINETHICK0;
DRAWICON(cp=1,l*0.95,4),ALIGN1;
DRAWICON(cp=9,h*1.05,5),ALIGN1;
DRAWtext(cp=1,l*0.925,'B'),coloryellow,ALIGN1;
DRAWtext(cp=9,h*1.085,'S'),colorgreen,ALIGN1;
dp:=if(c=INDEXC,0,1);
gj:=AMOUNT/v/100;
明日阻力:=l+(gj-l)+(c-l);
明日支撑:=l+(c-gj);
今日阻力:=REF(明日阻力 , 1);
今日支撑:=REF(明日支撑 , 1);
STICKLINE(DISPSTATUS=2 and dp=1 and c>=今日阻力,今日阻力,今日阻力,30,0),Color0000FF;
STICKLINE(DISPSTATUS=2 and dp=1 and c<今日阻力,今日阻力,今日阻力,30,0),Color00FF00;
STICKLINE(DISPSTATUS=2 and dp=1 and c>=今日支撑,今日支撑,今日支撑,30,0),ColorFF00FF;
STICKLINE(DISPSTATUS=2 and dp=1 and c<今日支撑,今日支撑,今日支撑,30,0),ColorFF0000;
if DISPSTATUS=2 then a:=BARPOS;
if DISPSTATUS=1 then b:=BARPOS;
d:=a-b;
e:=hhv(h,d);
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2, e*1.08,'-----------------------------------'),ColorFFFFFF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and c>=今日支撑, e*1.07,'今日支撑=：'+NUMTOSTRN(今日支撑 ,2 )+' '),ColorFF00FF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and c<今日支撑, e*1.07,'今日支撑=：'+NUMTOSTRN(今日支撑 ,2 )+' '),ColorFF0000,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and c>=今日阻力, e*1.07,'今日阻力=：'+NUMTOSTRN(今日阻力 ,2 )),Color0000FF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and c<今日阻力, e*1.07,'今日阻力=：'+NUMTOSTRN(今日阻力 ,2 )),Color00FF00,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2, e*1.04,'-----------------------------------'),ColorFFFFFF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and c>=明日支撑, e*1.05,'明日支撑=：'+NUMTOSTRN(明日支撑 ,2 )+' '),Color00FFFF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and c<明日支撑, e*1.05,'明日支撑=：'+NUMTOSTRN(明日支撑 ,2 )+' '),Color00FFFF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and c>=明日阻力, e*1.05,'明日阻力=：'+NUMTOSTRN(明日阻力 ,2 )),Color00FFFF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and c<明日阻力, e*1.05,'明日阻力=：'+NUMTOSTRN(明日阻力 ,2 )),Color00FFFF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and v>ref(v,1) and ma(v,5)>ref(ma(v,5),1),e*1.03,' 今日成交量大于昨日,且有继续增大趋势'),Color8285FF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and v<ref(v,1) and ma(v,5)>ref(ma(v,5),1),e*1.03,' 今日成交量小于昨日，但有放大迹象'),Color8285FF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and v>ref(v,1)and ma(v,5)<ref(ma(v,5),1),e*1.03,' 今日成交量大于昨日, 但有缩小迹象'),Color8285FF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and v<ref(v,1)and ma(v,5)<ref(ma(v,5),1),e*1.03,' 今日成交量小于昨日，且有缩小迹象'),Color8285FF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and v>ref(v,1)and ma(v,5)<ref(ma(v,5),1),e*1.03,' 今日成交量大于昨日, 但有缩小迹象'),Color8285FF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and v<ref(v,1)and ma(v,5)<ref(ma(v,5),1),e*1.03,' 今日成交量小于昨日，且有缩小迹象'),Color8285FF,ALIGN2;
cp:="cpzb@cp";
cp,LINETHICK0;
DRAWICON(cp=1,l*0.95,4),ALIGN1;
DRAWICON(cp=9,h*1.05,5),ALIGN1;
DRAWtext(cp=1,l*0.925,'B'),coloryellow,ALIGN1;
DRAWtext(cp=9,h*1.085,'S'),colorgreen,ALIGN1;
if DISPSTATUS=2 then begin;
var1:=llv(low,BARSLAST(dispstatus=1));
var2:=hhv(high,BARSLAST(dispstatus=1));
var3:var1-(var2-var1)*0.075;
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;
drawtext(1,var3+(var2-var1)*0.05,var100),align2;
DRAWTEXTABS(0,45,'机构评级:'+selfstring('评级')),coloryellow;
if DISPSTATUS=2 then a:=BARPOS;
if DISPSTATUS=1 then b:=BARPOS;
d:=a-b;
e:=hhv(h,d);
A1:=BARSLAST(ref(cross("macd.diff","macd.dea"),1));
B1:=ref(c,A1+1)>c and ref("macd.diff",A1+1)<"macd.diff"and cross("macd.diff","macd.dea");
DRAWTEXT(FILTER(B1>0,5),l-0.1,'M 底背'),COLORGREEN;
A2:=BARSLAST(ref(cross("kdj.k","kdj.d"),1));
B2:=ref(c,A2+1)>c and ref("kdj.k",A2+1)<"kdj.k"and cross("kdj.k","kdj.d");
DRAWTEXT(FILTER(B2>0,5),l-0.25,'K 底背'),COLORYELLOW;
A3:=BARSLAST(ref(cross("RSI.RSI1","RSI.RSI2"),1));
B3:=ref(c,A3+1)>c and ref("RSI.RSI1",A3+1)<"RSI.RSI1" and cross("RSI.RSI1","RSI.RSI2");
DRAWTEXT(FILTER(B3>0,5),l-0.4,'R 底背'),COLORCYAN;
C1:=BARSLAST(ref(cross("macd.dea","macd.diff"),1));
D1:=ref(c,C1+1)<c and ref("macd.diff",C1+1)>"macd.diff"and cross("macd.dea","macd.diff");
DRAWTEXT(FILTER(D1>0,5),h+0.1,'M 顶背'),COLORRED;
C2:=BARSLAST(ref(cross("kdj.d","kdj.k"),1));
D2:=ref(c,C2+1)<c and ref("kdj.k",C2+1)>"kdj.k"and cross("kdj.d","kdj.k");
DRAWTEXT(FILTER(D2>0,5),h+0.25,'K 顶背'),COLOR0066FF;
C3:=BARSLAST(ref(cross("RSI.RSI2","RSI.RSI1"),1));
D3:=ref(c,C3+1)<c and ref("RSI.RSI1",C3+1)>"RSI.RSI1"and cross("RSI.RSI2","RSI.RSI1");
DRAWTEXT(FILTER(D3>0,5),h+0.4,'R 顶背'),COLORMAGENTA;
MA1:MA(CLOSE,P1);
gd19671
