通達信板塊雷達指標公式

{參數:
P:1/100/6
N:1/100/3
RN:1/100/10
RM:1/30/3
}
VAR1:=("399139$C");
VAR2:=("399190$C");
VAR3:=("399132$C");
VAR4:=("399150$C");
VAR5:=("399138$C");
VAR6:=("399200$C");
VAR7:=("399110$C");
VAR8:=("399136$C");
VAR9:=("399135$C");
VAR10:=("399130$C");
VAR11:=("399160$C");
VAR12:=("999999$C");
VAR13:=("399137$C");
醫藥:=SUM((VAR1/REF(VAR1,1)-1)*100,0)*10;
金融:=SUM((VAR2/REF(VAR2,1)-1)*100,0)*10;
紡織:=SUM((VAR3/REF(VAR3,1)-1)*100,0)*10;
建筑:=SUM((VAR4/REF(VAR4,1)-1)*100,0)*10;
機械:=SUM((VAR5/REF(VAR5,1)-1)*100,0)*10;
地產:=SUM((VAR6/REF(VAR6,1)-1)*100,0)*10;
農林:=SUM((VAR7/REF(VAR7,1)-1)*100,0)*10;
電子:=SUM((VAR8/REF(VAR8,1)-1)*100,0)*10;
石化:=SUM((VAR9/REF(VAR9,1)-1)*100,0)*10;
制造:=SUM((VAR10/REF(VAR10,1)-1)*100,0)*10;
運輸:=SUM((VAR11/REF(VAR11,1)-1)*100,0)*10;
上證:=SUM((VAR12/REF(VAR12,1)-1)*100,0)*10;
金屬:=SUM((VAR13/REF(VAR13,1)-1)*100,0)*10;
醫藥A:SUM((VAR1/REF(VAR1,1)-1)*100,0)*2+100,COLORWHITE;
金融A:SUM((VAR2/REF(VAR2,1)-1)*100,0)*2+100,COLORRED;
紡織A:=SUM((VAR3/REF(VAR3,1)-1)*100,0)*2+100;
建筑A:=SUM((VAR4/REF(VAR4,1)-1)*100,0)*2+100;
機械A:=SUM((VAR5/REF(VAR5,1)-1)*100,0)*2+100;
地產A:SUM((VAR6/REF(VAR6,1)-1)*100,0)*2+100,LINETHICK1,COLORMAGENTA;
農林A:=SUM((VAR7/REF(VAR7,1)-1)*100,0)*2+100,COLORGREEN;
電子A:SUM((VAR8/REF(VAR8,1)-1)*100,0)*2+100;
石化A:=SUM((VAR9/REF(VAR9,1)-1)*100,0)*2+100;
制造A:=SUM((VAR10/REF(VAR10,1)-1)*100,0)*2+100;
運輸A:SUM((VAR11/REF(VAR11,1)-1)*100,0)*2+100,LINETHICK1,COLORYELLOW;
{看股吧-股票公式網站 www.carlthomasedwards.com}
上證A:SUM((VAR12/REF(VAR12,1)-1)*100,0)*2+100,LINETHICK3;
金屬A:=SUM((VAR13/REF(VAR13,1)-1)*100,0)*2+100,LINETHICK1;
當前獵狼線:SUM((C/REF(C,1)-1)*100,0)*2+100,LINETHICK2,COLOR0000FF;
VAR17:=CONST(MA(醫藥,RN));
VAR18:=CONST(MA(金融,RN));
VAR19:=CONST(MA(紡織,RN));
VAR20:=CONST(MA(建筑,RN));
VAR21:=CONST(MA(機械,RN));
VAR22:=CONST(MA(地產,RN));
VAR23:=CONST(MA(農林,RN));
VAR24:=CONST(MA(電子,RN));
VAR25:=CONST(MA(石化,RN));
VAR26:=CONST(MA(制造,RN));
VAR27:=CONST(MA(運輸,RN));
VAR28:=CONST(MA(上證,RN));
VAR29:=CONST(MA(金屬,RN));
P1:=IF(BARSLAST(CURRBARSCOUNT=4+1),1,0);
P2:=IF(BARSLAST(CURRBARSCOUNT=6+2),1,0);
P3:=IF(BARSLAST(CURRBARSCOUNT=8+3),1,0);
P4:=IF(BARSLAST(CURRBARSCOUNT=10+4),1,0);
P5:=IF(BARSLAST(CURRBARSCOUNT=12+5),1,0);
P6:=IF(BARSLAST(CURRBARSCOUNT=14+6),1,0);
P7:=IF(BARSLAST(CURRBARSCOUNT=16+7),1,0);
P8:=IF(BARSLAST(CURRBARSCOUNT=18+8),1,0);
P9:=IF(BARSLAST(CURRBARSCOUNT=20+9),1,0);
P10:=IF(BARSLAST(CURRBARSCOUNT=22+10),1,0);
P11:=IF(BARSLAST(CURRBARSCOUNT=24+11),1,0);
P12:=IF(BARSLAST(CURRBARSCOUNT=26+12),1,0);
P13:=IF(BARSLAST(CURRBARSCOUNT=28+13),1,0);
P14:=IF(BARSLAST(CURRBARSCOUNT=2),1,0);
STICKLINE(醫藥,0,IF(P2-P1,CONST(醫藥)-(VAR17),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(金融,0,IF(P3-P2,CONST(金融)-(VAR18),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(紡織,0,IF(P4-P3,CONST(紡織)-(VAR19),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(建筑,0,IF(P5-P4,CONST(建筑)-(VAR20),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(機械,0,IF(P6-P5,CONST(機械)-(VAR21),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(地產,0,IF(P7-P6,CONST(地產)-(VAR22),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(農林,0,IF(P8-P7,CONST(農林)-(VAR23),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(電子,0,IF(P9-P8,CONST(電子)-(VAR24),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(石化,0,IF(P10-P9,CONST(石化)-(VAR25),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(制造,0,IF(P11-P10,CONST(制造)-(VAR26),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(運輸,0,IF(P12-P11,CONST(運輸)-(VAR27),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(上證,0,IF(P1-P14,CONST(上證)-(VAR28),DRAWNULL),5,-1),COLORFF00FF;
STICKLINE(金屬,0,IF(P13-P12,CONST(金屬)-(VAR29),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(醫藥,0,IF(P2-P1,CONST(MA(醫藥,RM))-(VAR17),DRAWNULL),2,0),COLORAAAAFF;
STICKLINE(金融,0,IF(P3-P2,CONST(MA(金融,RM))-(VAR18),DRAWNULL),2,0),COLORAAAAFF;
STICKLINE(紡織,0,IF(P4-P3,CONST(MA(紡織,RM))-(VAR19),DRAWNULL),2,0),COLORAAAAFF;
STICKLINE(建筑,0,IF(P5-P4,CONST(MA(建筑,RM))-(VAR20),DRAWNULL),2,0),COLORAAAAFF;
STICKLINE(機械,0,IF(P6-P5,CONST(MA(機械,RM))-(VAR21),DRAWNULL),2,0),COLORAAAAFF;
STICKLINE(地產,0,IF(P7-P6,CONST(MA(地產,RM))-(VAR22),DRAWNULL),2,0),COLORAAAAFF;
STICKLINE(農林,0,IF(P8-P7,CONST(MA(農林,RM))-(VAR23),DRAWNULL),2,0),COLORAAAAFF;
STICKLINE(電子,0,IF(P9-P8,CONST(MA(電子,RM))-(VAR24),DRAWNULL),2,0),COLORAAAAFF;
STICKLINE(石化,0,IF(P10-P9,CONST(MA(石化,RM))-(VAR25),DRAWNULL),2,0),COLORAAAAFF;
STICKLINE(制造,0,IF(P11-P10,CONST(MA(制造,RM))-(VAR26),DRAWNULL),2,0),COLORAAAAFF;
STICKLINE(運輸,0,IF(P12-P11,CONST(MA(運輸,RM))-(VAR27),DRAWNULL),2,0),COLORAAAAFF;
STICKLINE(上證,0,IF(P1-P14,CONST(MA(上證,RM))-(VAR28),DRAWNULL),2,0),COLORAAAAFF;
STICKLINE(金屬,0,IF(P13-P12,CONST(MA(金屬,RM))-(VAR29),DRAWNULL),2,0),COLORAAAAFF;
DRAWTEXT(P2-P1,-2,' 醫藥'),COLORYELLOW;
DRAWTEXT(P3-P2,-2,' 金融'),COLORYELLOW;
DRAWTEXT(P4-P3,-2,' 紡織'),COLORYELLOW;
DRAWTEXT(P5-P4,-2,' 建筑'),COLORYELLOW;
DRAWTEXT(P6-P5,-2,' 機械'),COLORYELLOW;
DRAWTEXT(P7-P6,-2,' 地產'),COLORYELLOW;
DRAWTEXT(P8-P7,-2,' 農林'),COLORYELLOW;
DRAWTEXT(P9-P8,-2,' 電子'),COLORYELLOW;
DRAWTEXT(P10-P9,-2,' 石化'),COLORYELLOW;
DRAWTEXT(P11-P10,-2,' 制造'),COLORYELLOW;
DRAWTEXT(P12-P11,-2,' 運輸'),COLORYELLOW;
DRAWTEXT(P13-P12,-2,' 金屬'),COLORYELLOW;
Q1:=IF(BARSLAST(CURRBARSCOUNT=2),10,0);
DRAWTEXT((Q1>=10 AND REF(Q1,1)<=0),金融A,'金融'),COLORRED;
DRAWTEXT((Q1>=10 AND REF(Q1,1)<=0),地產A,'地產'),COLORMAGENTA;
DRAWTEXT((Q1>=10 AND REF(Q1,1)<=0),醫藥A,'醫藥'),COLORWHITE;
DRAWTEXT((Q1>=10 AND REF(Q1,1)<=0),農林A,'農林'),COLORGREEN;
DRAWTEXT((Q1>=10 AND REF(Q1,1)<=0),運輸A,'運輸'),COLORYELLOW;

看股吧公 式 www .kanguba.com

• [公式編寫]陽包陰戰法的選股公式
• [通達信公式]通達信連續小陽戰法選股指標公式
• [公式編寫]創業板股票跳空高開的選股公式
• [通達信公式]通達信陰線成功買選股指標公式
• [通達信公式]通達信量能盯盤指標公式
• [同花順公式]同花順瞬秒主力指標公式
• [通達信公式]通達信頂底王指標公式
• [通達信公式]通達信神奇線指標公式
• [通達信公式]通達信追漲逃頂主圖指標公式
• [通達信公式]通達信黑馬必抓主圖指標公式
• [通達信公式]通達信橫盤突破指標公式
• [公式編寫]“有量買”黃三角處選股
• [公式編寫]把（背離王）和（趨勢王）同時變紅做個選股和預警
• [公式編寫]尋找可視范圍價格最低的K線最高值
• [公式編寫]把主力和散戶指標與趨勢合并一塊
• [公式編寫]5日成交量均線開始與10日成交量均線上穿或金叉后第二個交易日
• [公式編寫]編一個昨天收陰K線，今天收陽K線
• [公式編寫]5日線上升角度大于或等于45，加載其他選股公式里的
• [公式編寫]今天macd金叉的成交量比上次macd金叉當天的成交量大成交量的公式
• [公式編寫]合并為一個預警公式
• [公式編寫]把抓漲停板主圖寫一選股公式
• [公式編寫]把最近10內的最后一根收陰的K線做個公式
• [公式編寫]芝麻量后突然放出倍量開始突破前期整理選股公式
• [公式編寫]修改學編的通達信“上市日期”公式