踏进2010虎年,首先祝大家虎步凌云,虎虎生威!我们承前启后共创未来!
<<龙虎板>>是学术上的一大突破,希望转载或借用的朋友注明版权原创者!
先说历史:
<<龙虎板>>来自<<封神榜>>的架构,<<封神榜>>开辟了通达信不能在图中随
意定点输出柱模型的先河,增强了通达信可编辑的学术强度.引身出唐仁政
老师的<<射箭封神>>,一品老师的<<板块聚焦>>,猎狼老头的<<板块雷达>>.
股龙在此感谢各位老师在学术上精益求精的追求!值得敬佩!
现在入正题:
<<龙虎板>>新构筑的思路:自由的寻找与监控当天到到历史周期的三强板块.
学术套用于足球世界杯赛由32强到决赛的原则:
自由寻找与监控三强板块的周期,在通达信是学术上的一大突破:
调节参数N值是涨跌幅累和,1是当天周期的涨跌幅,可累加到后1000周期.
调节参数M值是三强板块的周期显示,对应N值作直观实用的分析.最小周期2.
<<龙虎板>>的优点有很多,实用性很强,让大家自己去感受吧.
源码:
N值1
M值2
VIP:=("999999$C");
VIX:=("399333$C");
VAR1:=("399139$C");
VAR2:=("399220$C");
VAR3:=("399190$C");
VAR4:=("399200$C");
VAR5:=("399132$C");
VAR6:=("399136$C");
VAR7:=("399150$C");
VAR8:=("399138$C");
VAR9:=("399120$C");
VAR10:=("399110$C");
VAR11:=("399135$C");
VAR12:=("399137$C");
VAR13:=("399130$C");
VAR14:=("399160$C");
VAR15:=("399210$C");
VAR16:=("399170$C");
上证:=SUM((VIP/REF(VIP,1)-1)*100,N);
中小:=SUM((VIX/REF(VIX,1)-1)*100,N);
医药:=SUM((VAR1/REF(VAR1,1)-1)*100,N);
传播:=SUM((VAR2/REF(VAR2,1)-1)*100,N);
金融:=SUM((VAR3/REF(VAR3,1)-1)*100,N);
地产:=SUM((VAR4/REF(VAR4,1)-1)*100,N);
纺织:=SUM((VAR5/REF(VAR5,1)-1)*100,N);
电子:=SUM((VAR6/REF(VAR6,1)-1)*100,N);
建筑:=SUM((VAR7/REF(VAR7,1)-1)*100,N);
机械:=SUM((VAR8/REF(VAR8,1)-1)*100,N);
采掘:=SUM((VAR9/REF(VAR9,1)-1)*100,N);
农林:=SUM((VAR10/REF(VAR10,1)-1)*100,N);
石化:=SUM((VAR11/REF(VAR11,1)-1)*100,N);
金属:=SUM((VAR12/REF(VAR12,1)-1)*100,N);
制造:=SUM((VAR13/REF(VAR13,1)-1)*100,N);
运输:=SUM((VAR14/REF(VAR14,1)-1)*100,N);
服务:=SUM((VAR15/REF(VAR15,1)-1)*100,N);
IT业:=SUM((VAR16/REF(VAR16,1)-1)*100,N);
MAQ1:=MAX(医药,传播);
MAQ2:=MAX(金融,地产);
MAQ3:=MAX(纺织,电子);
MAQ4:=MAX(建筑,机械);
MAQ5:=MAX(采掘,农林);
MAQ6:=MAX(石化,金属);
MAQ7:=MAX(制造,运输);
MAQ8:=MAX(服务,IT业);
MBQ1:=MAX(MAQ1,MAQ2);
MBQ2:=MAX(MAQ3,MAQ4);
MBQ3:=MAX(MAQ5,MAQ6);
MBQ4:=MAX(MAQ7,MAQ8);
MBQ5:=MAX(MBQ1,MAQ3);
MBQ6:=MAX(MAQ4,MAQ5);
MBQ7:=MAX(MAQ6,MAQ7);
MBQ8:=MAX(MBQ7,MAQ8);
上证OR中小板:MAX(上证,中小),NODRAW,COLORWHITE;
DRAWBAND(上证OR中小板,RGB(100,50,50),0,RGB(50,50,70));
医传金地纺电:MAX(MBQ1,MBQ2),COLORYELLOW;
建机采农:MAX(MBQ2,MBQ3),COLORRED;
石铁制运服IE:MAX(MBQ3,MBQ4),COLORGREEN;
VAR20:=医药>传播 AND 医药>=MBQ5;
VAR21:=传播>医药 AND 传播>=MBQ5;
VAR22:=金融>地产 AND 金融>=MBQ5;
VAR23:=地产>金融 AND 地产>=MBQ5;
VAR24:=纺织>电子 AND 纺织>=MBQ5;
VAR25:=电子>纺织 AND 电子>=MBQ5;
VAR26:=建筑>机械 AND 建筑>=MBQ6;
VAR27:=机械>建筑 AND 机械>=MBQ6;
VAR28:=采掘>农林 AND 采掘>=MBQ6;
VAR29:=农林>采掘 AND 农林>=MBQ6;
VAR30:=石化>金属 AND 石化>=MBQ8;
VAR31:=金属>石化 AND 金属>=MBQ8;
VAR32:=制造>运输 AND 制造>=MBQ8;
VAR33:=运输>制造 AND 运输>=MBQ8;
VAR34:=服务>IT业 AND 服务>=MBQ8;
VAR35:=IT业>服务 AND IT业>=MBQ8;
QZXX:=BARSLAST(CURRBARSCOUNT=M);
QZXS:=BARSLAST(CURRBARSCOUNT=M+1);
DRAWTEXT(IF(上证>中小,QZXX OR QZXS,DRAWNULL),1,'上证'),COLORWHITE;
DRAWTEXT(IF(中小>上证,QZXX OR QZXS,DRAWNULL),1,'中小'),COLORWHITE;
DRAWTEXT(IF(VAR20,QZXX OR QZXS,DRAWNULL),-1,'医药'),COLORYELLOW;
DRAWTEXT(IF(VAR21,QZXX OR QZXS,DRAWNULL),-1,'传播'),COLORYELLOW;
DRAWTEXT(IF(VAR22,QZXX OR QZXS,DRAWNULL),-1,'金融'),COLORYELLOW;
DRAWTEXT(IF(VAR23,QZXX OR QZXS,DRAWNULL),-1,'地产'),COLORYELLOW;
DRAWTEXT(IF(VAR24,QZXX OR QZXS,DRAWNULL),-1,'纺织'),COLORYELLOW;
DRAWTEXT(IF(VAR25,QZXX OR QZXS,DRAWNULL),-1,'电子'),COLORYELLOW;
DRAWTEXT(IF(VAR26,QZXX OR QZXS,DRAWNULL),-3,'建筑'),COLORRED;
DRAWTEXT(IF(VAR27,QZXX OR QZXS,DRAWNULL),-3,'机械'),COLORRED;
DRAWTEXT(IF(VAR28,QZXX OR QZXS,DRAWNULL),-3,'采掘'),COLORRED;
DRAWTEXT(IF(VAR29,QZXX OR QZXS,DRAWNULL),-3,'农林'),COLORRED;
DRAWTEXT(IF(VAR30,QZXX OR QZXS,DRAWNULL),-5,'石化'),COLORGREEN;
DRAWTEXT(IF(VAR31,QZXX OR QZXS,DRAWNULL),-5,'金属'),COLORGREEN;
DRAWTEXT(IF(VAR32,QZXX OR QZXS,DRAWNULL),-5,'制造'),COLORGREEN;
DRAWTEXT(IF(VAR33,QZXX OR QZXS,DRAWNULL),-5,'运输'),COLORGREEN;
DRAWTEXT(IF(VAR34,QZXX OR QZXS,DRAWNULL),-5,'服务'),COLORGREEN;
DRAWTEXT(IF(VAR35,QZXX OR QZXS,DRAWNULL),-5,'IT业'),COLORGREEN; |