【前三强】——助你找到真正的强势板块（副图、源码、FNC)

2011-03-05 10:31:00来源:本站整理浏览:211

年前几位老师在论坛发表的关于板块方面的指标公式，经过细细研读源码，受益匪浅，现在也把自己写的一点东西拿出来，和大家交流。
　　本帖源码的写法受一品老师【板块聚焦】一文启发，只是算法略有不同，在此感谢一品老师。
　　如果将两种不同属性的东西放在一起进行比较是没有意义的，故我的写法是将大智慧行业和大智慧概念分开进行比较，
　　先建立如下引用指标：（就是另外的一个单独的指标）
指标名称：涨幅1
Var1:=(HHV(HIGH,34)-CLOSE)/(HHV(HIGH,34)-LLV(LOW,34))*100;
A:sma(Var1,3,1)*(-1)+100;

　　大智慧行业有三十一个分类，可放在一起进行比较，源码如下：
指标名称：行业三强
上证1:=(HHV(INDEXH,34)-INDEXC)/(HHV(INDEXH,34)-LLV(INDEXL,34))*100;
大盘1:=sma(上证1,3,1)*(-1)+100;

机械1:=STKINDI('991027','涨幅1.A');
工程建筑1:=STKINDI('991002','涨幅1.A');
电力1:=STKINDI('991003','涨幅1.A');
计算机1:=STKINDI('991004','涨幅1.A');
电子信息1:=STKINDI('991006','涨幅1.A');
房地产1:=STKINDI('991007','涨幅1.A');
纺织服装1:=STKINDI('991008','涨幅1.A');
钢铁1:=STKINDI('991009','涨幅1.A');
供水供气1:=STKINDI('991010','涨幅1.A');
化工化纤1:=STKINDI('991011','涨幅1.A');
电器1:=STKINDI('991014','涨幅1.A');
交通设施1:=STKINDI('991016','涨幅1.A');
银行类1:=STKINDI('991017','涨幅1.A');
旅游酒店1:=STKINDI('991018','涨幅1.A');
煤炭石油1:=STKINDI('991019','涨幅1.A');
酿酒食品1:=STKINDI('991020','涨幅1.A');
农林牧渔1:=STKINDI('991021','涨幅1.A');
商业连锁1:=STKINDI('991023','涨幅1.A');
建材1:=STKINDI('991024','涨幅1.A');
其它行业1:=STKINDI('991025','涨幅1.A');
交通工具1:=STKINDI('991026','涨幅1.A');
医药1:=STKINDI('991028','涨幅1.A');
外贸1:=STKINDI('991031','涨幅1.A');
教育传媒1:=STKINDI('991032','涨幅1.A');
仪电仪表1:=STKINDI('991033','涨幅1.A');
有色金属1:=STKINDI('991034','涨幅1.A');
造纸印刷1:=STKINDI('991035','涨幅1.A');
券商1:=STKINDI('991036','涨幅1.A');
通信1:=STKINDI('991135','涨幅1.A');
运输物流1:=STKINDI('991136','涨幅1.A');
保险1:=STKINDI('991255','涨幅1.A');

MAX1:=MAX(机械1,工程建筑1);
MAX2:=MAX(电力1,MAX1);
MAX3:=MAX(计算机1,MAX2);
MAX4:=MAX(电子信息1,MAX3);
MAX5:=MAX(房地产1,MAX4);
MAX6:=MAX(纺织服装1,MAX5);
MAX7:=MAX(钢铁1,MAX6);
MAX8:=MAX(供水供气1,MAX7);
MAX9:=MAX(化工化纤1,MAX8);
MAX10:=MAX(电器1,MAX9);
MAX11:=MAX(交通设施1,MAX10);
MAX12:=MAX(银行类1,MAX11);
MAX13:=MAX(旅游酒店1,MAX12);
MAX14:=MAX(煤炭石油1,MAX13);
MAX15:=MAX(酿酒食品1,MAX14);
MAX16:=MAX(农林牧渔1,MAX15);
MAX17:=MAX(商业连锁1,MAX16);
MAX18:=MAX(建材1,MAX17);
MAX19:=MAX(其它行业1,MAX18);
MAX20:=MAX(交通工具1,MAX19);
MAX21:=MAX(医药1,MAX20);
MAX22:=MAX(外贸1,MAX21);
MAX23:=MAX(教育传媒1,MAX22);
MAX24:=MAX(仪电仪表1,MAX23);
MAX25:=MAX(有色金属1,MAX24);
MAX26:=MAX(造纸印刷1,MAX25);
MAX27:=MAX(券商1,MAX26);
MAX28:=MAX(通信1,MAX27);
MAX29:=MAX(运输物流1,MAX28);
MAX30:=MAX(保险1,MAX29);

A1:=IF(机械1=MAX30,0,机械1);
A2:=IF(工程建筑1=MAX30,0,工程建筑1);
A3:=IF(电力1=MAX30,0,电力1);
A4:=IF(计算机1=MAX30,0,计算机1);
A5:=IF(电子信息1=MAX30,0,电子信息1);
A6:=IF(房地产1=MAX30,0,房地产1);
A7:=IF(纺织服装1=MAX30,0,纺织服装1);
A8:=IF(钢铁1=MAX30,0,钢铁1);
A9:=IF(供水供气1=MAX30,0,供水供气1);
A10:=IF(化工化纤1=MAX30,0,化工化纤1);
A11:=IF(电器1=MAX30,0,电器1);
A12:=IF(交通设施1=MAX30,0,交通设施1);
A13:=IF(银行类1=MAX30,0,银行类1);
A14:=IF(旅游酒店1=MAX30,0,旅游酒店1);
A15:=IF(煤炭石油1=MAX30,0,煤炭石油1);
A16:=IF(酿酒食品1=MAX30,0,酿酒食品1);
A17:=IF(农林牧渔1=MAX30,0,农林牧渔1);
A18:=IF(商业连锁1=MAX30,0,商业连锁1);
A19:=IF(建材1=MAX30,0,建材1);
A20:=IF(其它行业1=MAX30,0,其它行业1);
A21:=IF(交通工具1=MAX30,0,交通工具1);
A22:=IF(医药1=MAX30,0,医药1);
A23:=IF(外贸1=MAX30,0,外贸1);
A24:=IF(教育传媒1=MAX30,0,教育传媒1);
A25:=IF(仪电仪表1=MAX30,0,仪电仪表1);
A26:=IF(有色金属1=MAX30,0,有色金属1);
A27:=IF(造纸印刷1=MAX30,0,造纸印刷1);
A28:=IF(券商1=MAX30,0,券商1);
A29:=IF(通信1=MAX30,0,通信1);
A30:=IF(运输物流1=MAX30,0,运输物流1);
A31:=IF(保险1=MAX30,0,保险1);

MAXA1:=MAX(A1,A2);
MAXA2:=MAX(A3,MAXA1);
MAXA3:=MAX(A4,MAXA2);
MAXA4:=MAX(A5,MAXA3);
MAXA5:=MAX(A6,MAXA4);
MAXA6:=MAX(A7,MAXA5);
MAXA7:=MAX(A8,MAXA6);
MAXA8:=MAX(A9,MAXA7);
MAXA9:=MAX(A10,MAXA8);
MAXA10:=MAX(A11,MAXA9);
MAXA11:=MAX(A12,MAXA10);
MAXA12:=MAX(A13,MAXA11);
MAXA13:=MAX(A14,MAXA12);
MAXA14:=MAX(A15,MAXA13);
MAXA15:=MAX(A16,MAXA14);
MAXA16:=MAX(A17,MAXA15);
MAXA17:=MAX(A18,MAXA16);
MAXA18:=MAX(A19,MAXA17);
MAXA19:=MAX(A20,MAXA18);
MAXA20:=MAX(A21,MAXA19);
MAXA21:=MAX(A22,MAXA20);
MAXA22:=MAX(A23,MAXA21);
MAXA23:=MAX(A24,MAXA22);
MAXA24:=MAX(A25,MAXA23);
MAXA25:=MAX(A26,MAXA24);
MAXA26:=MAX(A27,MAXA25);
MAXA27:=MAX(A28,MAXA26);
MAXA28:=MAX(A29,MAXA27);
MAXA29:=MAX(A30,MAXA28);
MAXA30:=MAX(A31,MAXA29);

AA1:=IF(机械1>=MAXA30,0,机械1);
AA2:=IF(工程建筑1>=MAXA30,0,工程建筑1);
AA3:=IF(电力1>=MAXA30,0,电力1);
AA4:=IF(计算机1>=MAXA30,0,计算机1);
AA5:=IF(电子信息1>=MAXA30,0,电子信息1);
AA6:=IF(房地产1>=MAXA30,0,房地产1);
AA7:=IF(纺织服装1>=MAXA30,0,纺织服装1);
AA8:=IF(钢铁1>=MAXA30,0,钢铁1);
AA9:=IF(供水供气1>=MAXA30,0,供水供气1);
AA10:=IF(化工化纤1>=MAXA30,0,化工化纤1);
AA11:=IF(电器1>=MAXA30,0,电器1);
AA12:=IF(交通设施1>=MAXA30,0,交通设施1);
AA13:=IF(银行类1>=MAXA30,0,银行类1);
AA14:=IF(旅游酒店1>=MAXA30,0,旅游酒店1);
AA15:=IF(煤炭石油1>=MAXA30,0,煤炭石油1);
AA16:=IF(酿酒食品1>=MAXA30,0,酿酒食品1);
AA17:=IF(农林牧渔1>=MAXA30,0,农林牧渔1);
AA18:=IF(商业连锁1>=MAXA30,0,商业连锁1);
AA19:=IF(建材1>=MAXA30,0,建材1);
AA20:=IF(其它行业1>=MAXA30,0,其它行业1);
AA21:=IF(交通工具1>=MAXA30,0,交通工具1);
AA22:=IF(医药1>=MAXA30,0,医药1);
AA23:=IF(外贸1>=MAXA30,0,外贸1);
AA24:=IF(教育传媒1>=MAXA30,0,教育传媒1);
AA25:=IF(仪电仪表1>=MAXA30,0,仪电仪表1);
AA26:=IF(有色金属1>=MAXA30,0,有色金属1);
AA27:=IF(造纸印刷1>=MAXA30,0,造纸印刷1);
AA28:=IF(券商1>=MAXA30,0,券商1);
AA29:=IF(通信1>=MAXA30,0,通信1);
AA30:=IF(运输物流1>=MAXA30,0,运输物流1);
AA31:=IF(保险1>=MAXA30,0,保险1);

MAXAA1:=MAX(AA1,AA2);
MAXAA2:=MAX(AA3,MAXAA1);
MAXAA3:=MAX(AA4,MAXAA2);
MAXAA4:=MAX(AA5,MAXAA3);
MAXAA5:=MAX(AA6,MAXAA4);
MAXAA6:=MAX(AA7,MAXAA5);
MAXAA7:=MAX(AA8,MAXAA6);
MAXAA8:=MAX(AA9,MAXAA7);
MAXAA9:=MAX(AA10,MAXAA8);
MAXAA10:=MAX(AA11,MAXAA9);
MAXAA11:=MAX(AA12,MAXAA10);
MAXAA12:=MAX(AA13,MAXAA11);
MAXAA13:=MAX(AA14,MAXAA12);
MAXAA14:=MAX(AA15,MAXAA13);
MAXAA15:=MAX(AA16,MAXAA14);
MAXAA16:=MAX(AA17,MAXAA15);
MAXAA17:=MAX(AA18,MAXAA16);
MAXAA18:=MAX(AA19,MAXAA17);
MAXAA19:=MAX(AA20,MAXAA18);
MAXAA20:=MAX(AA21,MAXAA19);
MAXAA21:=MAX(AA22,MAXAA20);
MAXAA22:=MAX(AA23,MAXAA21);
MAXAA23:=MAX(AA24,MAXAA22);
MAXAA24:=MAX(AA25,MAXAA23);
MAXAA25:=MAX(AA26,MAXAA24);
MAXAA26:=MAX(AA27,MAXAA25);
MAXAA27:=MAX(AA28,MAXAA26);
MAXAA28:=MAX(AA29,MAXAA27);
MAXAA29:=MAX(AA30,MAXAA28);
MAXAA30:=MAX(AA31,MAXAA29);

大盘涨幅:大盘1,COLORRED,LINETHICK0;
涨幅榜首:MAX30,COLORYELLOW,LINETHICK0;
涨幅次位:MAXA30,COLORC0C0C0,LINETHICK0;
DRAWTEXT(机械1=MAX30 AND 机械1>0,0-1,'①机械'),COLOR00FF00;
DRAWTEXT(工程建筑1=MAX30 AND 工程建筑1>0,0-1,'①工程建筑'),COLORFF6600;
DRAWTEXT(电力1=MAX30 AND 电力1>0,0-1,'①电力'),COLORFF8800;
DRAWTEXT(计算机1=MAX30 AND 计算机1>0,0-1,'①计算机'),COLOR008800;
DRAWTEXT(电子信息1=MAX30 AND 电子信息1>0,0-1,'①电子信息'),COLORBLUE;
DRAWTEXT(房地产1=MAX30 AND 房地产1>0,0-1,'①房地产'),COLORBLUE;
DRAWTEXT(纺织服装1=MAX30 AND 纺织服装1>0,0-1,'①纺织服装'),COLORBLUE;
DRAWTEXT(钢铁1=MAX30 AND 钢铁1>0,0-1,'①钢铁'),COLOR0000FF;
DRAWTEXT(供水供气1=MAX30 AND 供水供气1>0,0-1,'①供水供气'),COLOR88CC99;
DRAWTEXT(化工化纤1=MAX30 AND 化工化纤1>0,0-1,'①化工化纤'),COLOR00FFFF;
DRAWTEXT(电器1=MAX30 AND 电器1>0,0-1,'①电器'),COLORRED;
DRAWTEXT(交通设施1=MAX30 AND 交通设施1>0,0-1,'①交通设施'),COLORYELLOW;
DRAWTEXT(银行类1=MAX30 AND 银行类1>0,0-1,'①银行类'),COLORYELLOW;
DRAWTEXT(旅游酒店1=MAX30 AND 旅游酒店1>0,0-1,'①旅游酒店'),COLORWHITE;
DRAWTEXT(煤炭石油1=MAX30 AND 煤炭石油1>0,0-1,'①煤炭石油'),COLORFF00FF;
DRAWTEXT(酿酒食品1=MAX30 AND 酿酒食品1>0,0-1,'①酿酒食品'),COLORFF00FF;
DRAWTEXT(农林牧渔1=MAX30 AND 农林牧渔1>0,0-1,'①农林牧渔'),COLORFF00FF;
DRAWTEXT(商业连锁1=MAX30 AND 商业连锁1>0,0-1,'①商业连锁'),COLORFFFFFF;
DRAWTEXT(建材1=MAX30 AND 建材1>0,0-1,'①建材'),COLORGREEN;
DRAWTEXT(其它行业1=MAX30 AND 其它行业1>0,0-1,'①其它行业'),COLORFF66FF;
DRAWTEXT(交通工具1=MAX30 AND 交通工具1>0,0-1,'①交通工具'),COLORFF66FF;
DRAWTEXT(医药1=MAX30 AND 医药1>0,0-1,'①医药'),COLOR0022AA;
DRAWTEXT(外贸1=MAX30 AND 外贸1>0,0-1,'①外贸'),COLORFF8822;
DRAWTEXT(教育传媒1=MAX30 AND 教育传媒1>0,0-1,'①教育传媒'),COLORWHITE;
DRAWTEXT(仪电仪表1=MAX30 AND 仪电仪表1>0,0-1,'①仪电仪表'),COLORFF00FF;
DRAWTEXT(有色金属1=MAX30 AND 有色金属1>0,0-1,'①有色金属'),COLORFF00FF;
DRAWTEXT(造纸印刷1=MAX30 AND 造纸印刷1>0,0-1,'①造纸印刷'),COLORFF00FF;
DRAWTEXT(券商1=MAX30 AND 券商1>0,0-1,'①券商'),COLORFFFFFF;
DRAWTEXT(通信1=MAX30 AND 通信1>0,0-1,'①通信'),COLOR0022FF;
DRAWTEXT(运输物流1=MAX30 AND 运输物流1>0,0-1,'①运输物流'),COLORFF66FF;
DRAWTEXT(保险1=MAX30 AND 保险1>0,0-1,'①保险'),COLOR00FFFF;

DRAWTEXT(机械1=MAXA30 AND 机械1>0,0-3,'②机械'),COLOR00FF00;
DRAWTEXT(工程建筑1=MAXA30 AND 工程建筑1>0,0-3,'②工程建筑'),COLORFF6600;
DRAWTEXT(电力1=MAXA30 AND 电力1>0,0-3,'②电力'),COLORFF8800;
DRAWTEXT(计算机1=MAXA30 AND 计算机1>0,0-3,'②计算机'),COLOR008800;
DRAWTEXT(电子信息1=MAXA30 AND 电子信息1>0,0-3,'②电子信息'),COLORBLUE;
DRAWTEXT(房地产1=MAXA30 AND 房地产1>0,0-3,'②房地产'),COLORBLUE;
DRAWTEXT(纺织服装1=MAXA30 AND 纺织服装1>0,0-3,'②纺织服装'),COLORBLUE;
DRAWTEXT(钢铁1=MAXA30 AND 钢铁1>0,0-3,'②钢铁'),COLOR0000FF;
DRAWTEXT(供水供气1=MAXA30 AND 供水供气1>0,0-3,'②供水供气'),COLOR88CC99;
DRAWTEXT(化工化纤1=MAXA30 AND 化工化纤1>0,0-3,'②金属'),COLOR00FFFF;
DRAWTEXT(电器1=MAXA30 AND 电器1>0,0-3,'②电器'),COLORRED;
DRAWTEXT(交通设施1=MAXA30 AND 交通设施1>0,0-3,'②交通设施'),COLORYELLOW;
DRAWTEXT(银行类1=MAXA30 AND 银行类1>0,0-3,'②银行类'),COLORYELLOW;
DRAWTEXT(旅游酒店1=MAXA30 AND 旅游酒店1>0,0-3,'②旅游酒店'),COLORWHITE;
DRAWTEXT(煤炭石油1=MAXA30 AND 煤炭石油1>0,0-3,'②煤炭石油'),COLORFF00FF;
DRAWTEXT(酿酒食品1=MAXA30 AND 酿酒食品1>0,0-3,'②酿酒食品'),COLORFF00FF;
DRAWTEXT(农林牧渔1=MAXA30 AND 农林牧渔1>0,0-3,'②农林牧渔'),COLORFF00FF;
DRAWTEXT(商业连锁1=MAXA30 AND 商业连锁1>0,0-3,'②商业连锁'),COLORFFFFFF;
DRAWTEXT(建材1=MAXA30 AND 建材1>0,0-3,'②建材'),COLORGREEN;
DRAWTEXT(其它行业1=MAXA30 AND 其它行业1>0,0-3,'②其它行业'),COLORFF66FF;
DRAWTEXT(交通工具1=MAXA30 AND 交通工具1>0,0-3,'②交通工具'),COLORFF66FF;
DRAWTEXT(医药1=MAXA30 AND 医药1>0,0-3,'②医药'),COLOR0022AA;
DRAWTEXT(外贸1=MAXA30 AND 外贸1>0,0-3,'②外贸'),COLORFF8822;
DRAWTEXT(教育传媒1=MAXA30 AND 教育传媒1>0,0-3,'②教育传媒'),COLORWHITE;
DRAWTEXT(仪电仪表1=MAXA30 AND 仪电仪表1>0,0-3,'②仪电仪表'),COLORFF00FF;
DRAWTEXT(有色金属1=MAXA30 AND 有色金属1>0,0-3,'②有色金属'),COLORFF00FF;
DRAWTEXT(造纸印刷1=MAXA30 AND 造纸印刷1>0,0-3,'②造纸印刷'),COLORFF00FF;
DRAWTEXT(券商1=MAXA30 AND 券商1>0,0-3,'②券商'),COLORFFFFFF;
DRAWTEXT(通信1=MAXA30 AND 通信1>0,0-3,'②通信'),COLOR0022FF;
DRAWTEXT(运输物流1=MAXA30 AND 运输物流1>0,0-3,'②运输物流'),COLORFF66FF;
DRAWTEXT(保险1=MAXA30 AND 保险1>0,0-3,'②保险'),COLOR00FFFF;

DRAWTEXT(机械1=MAXAA30 AND 机械1>0,0-5,'③机械'),COLOR00FF00;
DRAWTEXT(工程建筑1=MAXAA30 AND 工程建筑1>0,0-5,'③工程建筑'),COLORFF6600;
DRAWTEXT(电力1=MAXAA30 AND 电力1>0,0-5,'③电力'),COLORFF8800;
DRAWTEXT(计算机1=MAXAA30 AND 计算机1>0,0-5,'③计算机'),COLOR008800;
DRAWTEXT(电子信息1=MAXAA30 AND 电子信息1>0,0-5,'③电子信息'),COLORBLUE;
DRAWTEXT(房地产1=MAXAA30 AND 房地产1>0,0-5,'③房地产'),COLORBLUE;
DRAWTEXT(纺织服装1=MAXAA30 AND 纺织服装1>0,0-5,'③纺织服装'),COLORBLUE;
DRAWTEXT(钢铁1=MAXAA30 AND 钢铁1>0,0-5,'③钢铁'),COLOR0000FF;
DRAWTEXT(供水供气1=MAXAA30 AND 供水供气1>0,0-5,'③供水供气'),COLOR88CC99;
DRAWTEXT(化工化纤1=MAXAA30 AND 化工化纤1>0,0-5,'③化工化纤'),COLOR00FFFF;
DRAWTEXT(电器1=MAXAA30 AND 电器1>0,0-5,'③电器'),COLORRED;
DRAWTEXT(交通设施1=MAXAA30 AND 交通设施1>0,0-5,'③交通设施'),COLORYELLOW;
DRAWTEXT(银行类1=MAXAA30 AND 银行类1>0,0-5,'③银行类'),COLORYELLOW;
DRAWTEXT(旅游酒店1=MAXAA30 AND 旅游酒店1>0,0-5,'③旅游酒店'),COLORWHITE;
DRAWTEXT(煤炭石油1=MAXAA30 AND 煤炭石油1>0,0-5,'③煤炭石油'),COLORFF00FF;
DRAWTEXT(酿酒食品1=MAXAA30 AND 酿酒食品1>0,0-5,'③酿酒食品'),COLORFF00FF;
DRAWTEXT(农林牧渔1=MAXAA30 AND 农林牧渔1>0,0-5,'③农林牧渔'),COLORFF00FF;
DRAWTEXT(商业连锁1=MAXAA30 AND 商业连锁1>0,0-5,'③商业连锁'),COLORFFFFFF;
DRAWTEXT(建材1=MAXAA30 AND 建材1>0,0-5,'③建材'),COLORGREEN;
DRAWTEXT(其它行业1=MAXAA30 AND 其它行业1>0,0-5,'③其它行业'),COLORFF66FF;
DRAWTEXT(交通工具1=MAXAA30 AND 交通工具1>0,0-5,'③交通工具'),COLORFF66FF;
DRAWTEXT(医药1=MAXAA30 AND 医药1>0,0-5,'③医药'),COLOR0022AA;
DRAWTEXT(外贸1=MAXAA30 AND 外贸1>0,0-5,'③外贸'),COLORFF8822;
DRAWTEXT(教育传媒1=MAXAA30 AND 教育传媒1>0,0-5,'③教育传媒'),COLORWHITE;
DRAWTEXT(仪电仪表1=MAXAA30 AND 仪电仪表1>0,0-5,'③仪电仪表'),COLORFF00FF;
DRAWTEXT(有色金属1=MAXAA30 AND 有色金属1>0,0-5,'③有色金属'),COLORFF00FF;
DRAWTEXT(造纸印刷1=MAXAA30 AND 造纸印刷1>0,0-5,'③造纸印刷'),COLORFF00FF;
DRAWTEXT(券商1=MAXAA30 AND 券商1>0,0-5,'③券商'),COLORFFFFFF;
DRAWTEXT(通信1=MAXAA30 AND 通信1>0,0-5,'③通信'),COLOR0022FF;
DRAWTEXT(运输物流1=MAXAA30 AND 运输物流1>0,0-5,'③运输物流'),COLORFF66FF;
DRAWTEXT(保险1=MAXAA30 AND 保险1>0,0-5,'③保险'),COLOR00FFFF;
％:0-7,COLOR000000;0,COLOR000000;