IF MSTATUS and (MA5 > MA10 and MA10 > MA30 and MA5 > MA30) THEN BEGIN DRAWTEXTABS(0,i*16,'短期均线多头排列。股价高位谨防筑顶。中低位当股价向上突破5、10、30日均线,均线呈多头排列是最佳买入时机。'+ma5+' > '+ma10+' > '+ma30+';'),COLORRED,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (MA5 < MA10 and MA10 < MA30 and MA5 < MA30) THEN BEGIN DRAWTEXTABS(0,i*16,'短期均线空头排列。股价高位谨防弃庄,卖盘涌出破位下跌。中低位当股价向下突破5、10、30日均线,均线呈空头排列时,注意观察股价所处箱体位置。'+ma5+' < '+ma10+' < '+ma30+';'),COLORGREEN,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (MA30 > MA60 and MA30 > MA125 and MA60 > MA125) THEN BEGIN DRAWTEXTABS(0,i*16,'中期均线多头排列。注意股价突然下跌,当股价回档至当前盘面30、60、125日任一均线获得支撑,关注均线助涨,次日股价放量向上突破,是中长期最佳买入时机。'+ma30+' > '+ma60+' > '+ma125+';'),COLORRED,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (MA30 < MA60 and MA30 < MA125 and MA60 < MA125) THEN BEGIN DRAWTEXTABS(0,i*16,'中期均线空头列排。30、60、125日中长期均线下行呈空头排列,注意箱体上下撑压或无量空跌。'+ma30+' < '+ma60+' < '+ma125+';'),COLORGREEN,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (MA60 > MA125 and MA125 > MA250 and MA60 > MA250) THEN BEGIN DRAWTEXTABS(0,i*16,'长期均线多头排列。即60,125,250日均线向上多头排列。注意:当股价处于箱体顶部,所有均线多头排列,股价反复震荡不能突破,可能顶部即将形成。'+ma60+' > '+ma125+' > '+ma250+';'),COLORRED,ALIGN0,LINETHICK1;
i:=i+1; END;
IF MSTATUS and (MA60 < MA125 and MA125 < MA250 and MA60 < MA250) THEN BEGIN DRAWTEXTABS(0,i*16,'长期均线空头排列。即60,125,250日均线向下空头排列。注意:当所有均线空头排列的时候,股价处于箱体的一个次高位,中位,或箱体下沿,可能是阶段底部的形成。 '+ma60+' < '+ma125+' < '+ma250+';'),COLORGREEN,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (CROSS(MA5,MA10)) THEN BEGIN DRAWTEXTABS(0,i*16,'短期5日10日均线金叉。注意观察股价在箱体的位置,30日和其他均线是否成为股价上涨的阻力,或股价在高位的运行方向,判断是反转上涨还是下跌中途的小反弹。'),COLORRED,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (CROSS(MA10,MA5)) THEN BEGIN DRAWTEXTABS(0,i*16,'短期5日10日均线死叉。当股价反弹遭遇30日和其他均线的阻力形成死叉,可能是股价下跌中途的小反弹。高位区死叉,必须逃顶或止损。'),COLORGREEN,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (CROSS(C,MA125)) THEN BEGIN DRAWTEXTABS(0,i*16,'今日股价上穿半年线。在半年线上方运行的个股被称为强势股。适合中小资金根据短线技术指标套利操作。'),COLORFF00FF,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (CROSS(MA125,C)) THEN BEGIN DRAWTEXTABS(0,i*16,'今日股价跌破半年线。在半年线下方运行的个股被称为弱势股。适合大资金进场吸筹操作。'),COLORGREEN,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (CROSS(C,MA250)) THEN BEGIN DRAWTEXTABS(0,i*16,'今日股价上穿年线。股票筑底后,股价经过反复震荡洗盘上穿年线,予以锁定跟踪。'),COLORFF00FF,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (CROSS(MA250,C)) THEN BEGIN DRAWTEXTABS(0,i*16,'今日股价跌破年线。跌破年线,证明深度调整格局可能形成。如果后市股价继续深跌,调整时间和空间难以预测。'),COLORGREEN,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (CROSS(C,MA60) and CROSS(C,MA125) and CROSS(C,MA250)) THEN BEGIN DRAWTEXTABS(0,i*16,'股价一阳穿三线。5、10、30日均线三线合一,股价一阳穿三线,向上反转,可能变盘反转在即。'),COLORRED,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (MA30 > REF(MA30,1)) THEN BEGIN DRAWTEXTABS(0,i*16,'30日均线趋势向上。注意:如果股价在低位中位30日均线之上,围绕另一条重要均线缩量横盘,随后5-10日均线金叉,所有均线向上呈多头排列,是中长期绩优牛股的摇篮。'),COLORRED,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (MA30 > REF(MA30,1) AND MA30 < REF(MA30,1)*1.001) THEN BEGIN DRAWTEXTABS(0,i*16,'30日均线趋势走平。需观察5日和10日均线方向,如30日均线发出趋势向下信号,5日10日均线形成死叉,注意减仓或出货。'),COLORFFCC66,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (MA30 < REF(MA30,1)) THEN BEGIN DRAWTEXTABS(0,i*16,'30日均线趋势向下。关注股价所处箱体位置,如股价当前上涨或下跌时,则需观察箱体阻力支撑位置。如果股价处于远离30日均线位置,一般情况下股价反弹空间有限。'),COLORGREEN,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (MA5 > REF(MA5,1)*1.015) THEN BEGIN DRAWTEXTABS(0,i*16,'5日均线强劲向上。需观察股价所处其他均线和箱体位置,如果收盘时股价突然跌破5日均线,则需观察箱体下方支撑,提防空头陷阱,股价转向。'),COLORRED,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (MA5 > REF(MA5,1) AND MA5 < REF(MA5,1)*1.005) THEN BEGIN DRAWTEXTABS(0,i*16,'5日均线方向不明。当股价连续跌破5日均线和箱体下沿,导致股价方向开始向下,绩优股应适当做空;股价在箱体内则需观察股价下方的重要均线位置,可否获得支撑。'),COLORYELLOW,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (MA5 < REF(MA5,1)*0.985) THEN BEGIN DRAWTEXTABS(0,i*16,'5日均线快速向下,短线风险可能降临。需结合其他均线运行方向分析,如果股价在一个大箱体中,则需观察下方均线支撑,偌收盘前股价获得支撑,5-10均线金叉并数日向上,则可顺势而为做多。'),COLORGREEN,ALIGN0,LINETHICK1;
i:=i+1;
END;
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('云南')=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('CDM项目')=1 then var100:=var100+' CDM项目概念→';
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('S板')=1 then var100:=var100+'S板概念→';
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('沪深300')=1 then var100:=var100+'沪深300概念→';
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('深成40')=1 then var100:=var100+'深成40概念→';
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+'中小板指概念→';