【封神系列优化升级版】
【封神系列优化升级版】
指数不同於扳块。本想把指数换成扳块，应用时好在扳块中找个股。
编了一下。能编，但无法使用。制新数据就使得你之不了！
一，升级扳只用了"相对指数"和"RN(10)均值"。同样以"RN(10)均值"为"零"对比当天涨跌情况。洋红色空心柱顶为："相对指数"对"RN(10)均值"的相对位值。肯后的灰色实芯柱为当日"相对指数" 涨跌值。它们的高度位值可对比指数的强弱和当天的领涨领跌。
二，《射箭封神》因加有射线MACD，可作常用副图用。
《众仙过海》多用在盘后分晰用。"当前指数"为你看指数K线图所看的相对指数线。看个股时为上证相对指数线。
三，《股市风帆》应是常用的副图。不占多少面积，点宽就看。
《股市风帆》基本上没有变化。保留了昨日相对指数的窄洋红实芯柱。
虽有当日涨跌，用昨日相对指数与当日相对指数中的差值空间，视觉上增加了强弱校果。
{射箭封神 参数 P:1,100,6参数 N:1,100,3 参数 RN:1,100,10}
DRAWBAND(100,RGB(00,50,100),-30,RGB(00,00,00));
VVAR1:=(MA(CLOSE,80)-MA(CLOSE,13)/3);
VVAR2:=( MA((CLOSE-VVAR1)/VVAR1,1));
VVAR3:=(CLOSE-LLV(LOW,28))/(HHV(HIGH,28)-LLV(LOW,28))*100;
VVAR4:=SMA(VVAR3,4,1);
MMA:=EMA(VVAR2,12)*0.7;
MMB:=EMA(VVAR2,3);
快到底:=IF(LLV(MMB-MMA,12)>0,0,-20),LINETHICK2,COLORGREEN;
底初选股:=IF( CROSS(0, LLV(MMB-MMA,12)),10,0),LINETHICK0;
K:=CEILING(C/10);
DIFF:=( EMA(CLOSE,12) - EMA(CLOSE,26))/K*100+50;
DEA:=EMA(DIFF,9);
MACD:=2*(DIFF-DEA)+50;
LC:=REF(CLOSE,1);
RA1:=REF(RSI,N)=HHV(RSI,N*2+1); RA2:=REF(RSI,N)=LLV(RSI,N*2+1);
RB1:=FILTER(RA1,N); RB2:=FILTER(RA2,N);
RC1:=BACKSET(RB1,N+1); RC2:=BACKSET(RB2,N+1);
RD1:=FILTER(RC1,N); RD2:=FILTER(RC2,N);
GD1:=BARSLAST(RD1); DD1:=BARSLAST(RD2);
GDTS:=IF(RD1,CURRBARSCOUNT,0);
DDTS:=IF(RD2,CURRBARSCOUNT,0);
GDT1:=IF(GD1,REF(GDTS,GD1),GDTS);
DDT1:=IF(DD1,REF(DDTS,DD1),DDTS);
GDCS1:=CONST(GDT1); DDCS1:=CONST(DDT1);
GINGBUTS1:=REF(GDT1,GD1+1); DINGBUTS1:=REF(DDT1,DD1+1);
GDCS2:=CONST(GINGBUTS1); DDCS2:=CONST(DINGBUTS1);
GDCS13:=CONST(REF(RSI,GDCS1-1));DDCS13:=CONST(REF(RSI,DDCS1-1));
GDCS23:=CONST(REF(RSI,GINGBUTS1-1));DDCS23:=CONST(REF(RSI,DINGBUTS1-1));
XG1:=BACKSET(ISLASTBAR,GDCS1);XD1:=BACKSET(ISLASTBAR,DDCS1);
XG2:=BACKSET(ISLASTBAR,GDCS2);XD2:=BACKSET(ISLASTBAR,DDCS2);
M:=2*N;
RA11:=REF(RSI,M)=HHV(RSI,M*2+1); RA22:=REF(RSI,M)=LLV(RSI,M*2+1);
RB11:=FILTER(RA11,M); RB22:=FILTER(RA22,M);
RC11:=BACKSET(RB11,M+1); RC22:=BACKSET(RB22,M+1);
RD11:=FILTER(RC11,M); RD22:=FILTER(RC22,M),NODRAW;
GD11:=BARSLAST(RD11); DD11:=BARSLAST(RD22);
GDTSS:=IF(RD11,CURRBARSCOUNT,0);
DDTSS:=IF(RD22,CURRBARSCOUNT,0);
GDT11:=IF(GD11,REF(GDTSS,GD11),GDTSS);
DDT11:=IF(DD11,REF(DDTSS,DD11),DDTSS);
GDCS11:=CONST(GDT11); DDCS11:=CONST(DDT11);
GINGBUTS11:=REF(GDT11,GD11+1); DINGBUTS11:=REF(DDT11,DD11+1);
GDCS22:=CONST(GINGBUTS11); DDCS22:=CONST(DINGBUTS11);
{↓方案一，射箭封神的显示部份↓}
STICKLINE(MACD>=50,50,MACD,3,0),COLOR000055;
STICKLINE(MACD<50,50,MACD,3,0),COLOR555555;
DRAWBAND(DIFF,RGB(100,00,00),DEA,RGB(00,200,00));
RSI:((SMA(MAX((CLOSE - LC),0),P,1) / SMA(ABS((CLOSE - LC)),P,1))
* 100),COLORMAGENTA,LINETHICK2;
80,COLORCYAN,LINETHICK1;
抄底:IF(快到底<0 AND CROSS(MACD,50) AND VVAR4<18,80,20),COLORCYAN;
高点压力1:DRAWLINE(CURRBARSCOUNT=GDCS2,RSI
,CURRBARSCOUNT=GDCS1,RSI,1) ,COLORRED,LINETHICK2;
低点支撑1:DRAWLINE(CURRBARSCOUNT=DDCS2,RSI
,CURRBARSCOUNT=DDCS1,RSI,1),COLORRED,LINETHICK2;
高点压力2:DRAWLINE(CURRBARSCOUNT=GDCS22,RSI
,CURRBARSCOUNT=GDCS11,RSI,1) ,COLORYELLOW,LINETHICK2;
低点支撑2:DRAWLINE(CURRBARSCOUNT=DDCS22,RSI
,CURRBARSCOUNT=DDCS11,RSI,1),COLORYELLOW,LINETHICK2;
高点压力3:DRAWLINE(CURRBARSCOUNT=GDCS22,RSI
,CURRBARSCOUNT=GDCS2,RSI,1) ,COLORGREEN,LINETHICK2;
低点支撑3:DRAWLINE(CURRBARSCOUNT=DDCS22,RSI
,CURRBARSCOUNT=DDCS2,RSI,1),COLORGREEN,LINETHICK2;
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:=IF(C>100,C,("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;
医药B:=REF(SUM((VAR1/REF(VAR1,1)-1)*100,0)*10,1);
金融B:=REF(SUM((VAR2/REF(VAR2,1)-1)*100,0)*10,1);
纺织B:=REF(SUM((VAR3/REF(VAR3,1)-1)*100,0)*10,1);
建筑B:=REF(SUM((VAR4/REF(VAR4,1)-1)*100,0)*10,1);
机械B:=REF(SUM((VAR5/REF(VAR5,1)-1)*100,0)*10,1);
地产B:=REF(SUM((VAR6/REF(VAR6,1)-1)*100,0)*10,1);
农林B:=REF(SUM((VAR7/REF(VAR7,1)-1)*100,0)*10,1);
电子B:=REF(SUM((VAR8/REF(VAR8,1)-1)*100,0)*10,1);
石化B:=REF(SUM((VAR9/REF(VAR9,1)-1)*100,0)*10,1);
制造B:=REF(SUM((VAR10/REF(VAR10,1)-1)*100,0)*10,1);
运输B:=REF(SUM((VAR11/REF(VAR11,1)-1)*100,0)*10,1);
上证B:=REF(SUM((VAR12/REF(VAR12,1)-1)*100,0)*10,1);
金属B:=REF(SUM((VAR13/REF(VAR13,1)-1)*100,0)*10,1);
BVAR17:=CONST(MA(医药B,RN));
BVAR18:=CONST(MA(金融B,RN));
BVAR19:=CONST(MA(纺织B,RN));
BVAR20:=CONST(MA(建筑B,RN));
BVAR21:=CONST(MA(机械B,RN));
BVAR22:=CONST(MA(地产B,RN));
BVAR23:=CONST(MA(农林B,RN));
BVAR24:=CONST(MA(电子B,RN));
BVAR25:=CONST(MA(石化B,RN));
BVAR26:=CONST(MA(制造B,RN));
BVAR27:=CONST(MA(运输B,RN));
BVAR28:=CONST(MA(上证B,RN));
BVAR29:=CONST(MA(金属B,RN));
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));
医药C:=(CONST(医药)-(VAR17))-(CONST(医药B)-(BVAR17));
金融C:=(CONST(金融)-(VAR18))-(CONST(金融B)-(BVAR18));
纺织C:=(CONST(纺织)-(VAR19))-(CONST(纺织B)-(BVAR19));
建筑C:=(CONST(建筑)-(VAR20))-(CONST(建筑B)-(BVAR20));
机械C:=(CONST(机械)-(VAR21))-(CONST(机械B)-(BVAR21));
地产C:=(CONST(地产)-(VAR22))-(CONST(地产B)-(BVAR22));
农林C:=(CONST(农林)-(VAR23))-(CONST(农林B)-(BVAR23));
电子C:=(CONST(电子)-(VAR24))-(CONST(电子B)-(BVAR24));
石化C:=(CONST(石化)-(VAR25))-(CONST(石化B)-(BVAR25));
制造C:=(CONST(制造)-(VAR26))-(CONST(制造B)-(BVAR26));
运输C:=(CONST(运输)-(VAR27))-(CONST(运输B)-(BVAR27));
上证C:=(CONST(上证)-(VAR28))-(CONST(上证B)-(BVAR28));
金属C:=(CONST(金属)-(VAR29))-(CONST(金属B)-(BVAR29));
P1:=IF(BARSLAST(CURRBARSCOUNT=10),1,0);
P2:=IF(BARSLAST(CURRBARSCOUNT=13),1,0);
P3:=IF(BARSLAST(CURRBARSCOUNT=16),1,0);
P4:=IF(BARSLAST(CURRBARSCOUNT=19),1,0);
P5:=IF(BARSLAST(CURRBARSCOUNT=22),1,0);
P6:=IF(BARSLAST(CURRBARSCOUNT=25),1,0);
P7:=IF(BARSLAST(CURRBARSCOUNT=28),1,0);
P8:=IF(BARSLAST(CURRBARSCOUNT=31),1,0);
P9:=IF(BARSLAST(CURRBARSCOUNT=34),1,0);
P10:=IF(BARSLAST(CURRBARSCOUNT=37),1,0);
P11:=IF(BARSLAST(CURRBARSCOUNT=40),1,0);
P12:=IF(BARSLAST(CURRBARSCOUNT=43),1,0);
P13:=IF(BARSLAST(CURRBARSCOUNT=46),1,0);
P14:=IF(BARSLAST(CURRBARSCOUNT=7),1,0);
STICKLINE(医药,20,IF(P2-P1,CONST(医药C)+20,DRAWNULL),8,0),COLOR999999;
STICKLINE(金融,20,IF(P3-P2,CONST(金融C)+20,DRAWNULL),8,0),COLOR999999;
STICKLINE(纺织,20,IF(P4-P3,CONST(纺织C)+20,DRAWNULL),8,0),COLOR999999;
STICKLINE(建筑,20,IF(P5-P4,CONST(建筑C)+20,DRAWNULL),8,0),COLOR999999;
STICKLINE(机械,20,IF(P6-P5,CONST(机械C)+20,DRAWNULL),8,0),COLOR999999;
STICKLINE(地产,20,IF(P7-P6,CONST(地产C)+20,DRAWNULL),8,0),COLOR999999;
STICKLINE(农林,20,IF(P8-P7,CONST(农林C)+20,DRAWNULL),8,0),COLOR999999;
STICKLINE(电子,20,IF(P9-P8,CONST(电子C)+20,DRAWNULL),8,0),COLOR999999;
STICKLINE(石化,20,IF(P10-P9,CONST(石化C)+20,DRAWNULL),8,0),COLOR999999;
STICKLINE(制造,20,IF(P11-P10,CONST(制造C)+20,DRAWNULL),8,0),COLOR999999;
STICKLINE(运输,20,IF(P12-P11,CONST(运输C)+20,DRAWNULL),8,0),COLOR999999;
STICKLINE(金属,20,IF(P13-P12,CONST(金属C)+20,DRAWNULL),8,0),COLOR999999;
STICKLINE(医药,20,IF(P2-P1,CONST(医药)-(VAR17)+20,DRAWNULL),4,-2),COLORFF00FF;
STICKLINE(金融,20,IF(P3-P2,CONST(金融)-(VAR18)+20,DRAWNULL),4,-2),COLORFF00FF;
STICKLINE(纺织,20,IF(P4-P3,CONST(纺织)-(VAR19)+20,DRAWNULL),4,-2),COLORFF00FF;
STICKLINE(建筑,20,IF(P5-P4,CONST(建筑)-(VAR20)+20,DRAWNULL),4,-2),COLORFF00FF;
STICKLINE(机械,20,IF(P6-P5,CONST(机械)-(VAR21)+20,DRAWNULL),4,-2),COLORFF00FF;
STICKLINE(地产,20,IF(P7-P6,CONST(地产)-(VAR22)+20,DRAWNULL),4,-2),COLORFF00FF;
STICKLINE(农林,20,IF(P8-P7,CONST(农林)-(VAR23)+20,DRAWNULL),4,-2),COLORFF00FF;
STICKLINE(电子,20,IF(P9-P8,CONST(电子)-(VAR24)+20,DRAWNULL),4,-2),COLORFF00FF;
STICKLINE(石化,20,IF(P10-P9,CONST(石化)-(VAR25)+20,DRAWNULL),4,-2),COLORFF00FF;
STICKLINE(制造,20,IF(P11-P10,CONST(制造)-(VAR26)+20,DRAWNULL),4,-2),COLORFF00FF;
STICKLINE(运输,20,IF(P12-P11,CONST(运输)-(VAR27)+20,DRAWNULL),4,-2),COLORFF00FF;
STICKLINE(上证,20,IF(P1-P14,CONST(上证)-(VAR28)+20,DRAWNULL),4,-1),COLOR0000FF;
STICKLINE(金属,20,IF(P13-P12,CONST(金属)-(VAR29)+20,DRAWNULL),4,-2),COLORFF00FF;
DRAWTEXT(P2-P1,-30,' 医药'),COLORYELLOW;
DRAWTEXT(P3-P2,-30,' 金融'),COLORYELLOW;
DRAWTEXT(P4-P3,-30,' 纺织'),COLORYELLOW;
DRAWTEXT(P5-P4,-30,' 建筑'),COLORYELLOW;
DRAWTEXT(P6-P5,-30,' 机械'),COLORYELLOW;
DRAWTEXT(P7-P6,-30,' 地产'),COLORYELLOW;
DRAWTEXT(P8-P7,-30,' 农林'),COLORYELLOW;
DRAWTEXT(P9-P8,-30,' 电子'),COLORYELLOW;
DRAWTEXT(P10-P9,-30,' 石化'),COLORYELLOW;
DRAWTEXT(P11-P10,-30,' 制造'),COLORYELLOW;
DRAWTEXT(P12-P11,-30,' 运输'),COLORYELLOW;
DRAWTEXT(P13-P12,-30,' 金属'),COLORYELLOW;
==================================================
{众仙过海参数 RN:1,100,10}
DRAWBAND(100,RGB(00,50,100),-50,RGB(00,00,00));
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:=IF(C>100,C,("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;
医药B:=REF(SUM((VAR1/REF(VAR1,1)-1)*100,0)*10,1);
金融B:=REF(SUM((VAR2/REF(VAR2,1)-1)*100,0)*10,1);
纺织B:=REF(SUM((VAR3/REF(VAR3,1)-1)*100,0)*10,1);
建筑B:=REF(SUM((VAR4/REF(VAR4,1)-1)*100,0)*10,1);
机械B:=REF(SUM((VAR5/REF(VAR5,1)-1)*100,0)*10,1);
地产B:=REF(SUM((VAR6/REF(VAR6,1)-1)*100,0)*10,1);
农林B:=REF(SUM((VAR7/REF(VAR7,1)-1)*100,0)*10,1);
电子B:=REF(SUM((VAR8/REF(VAR8,1)-1)*100,0)*10,1);
石化B:=REF(SUM((VAR9/REF(VAR9,1)-1)*100,0)*10,1);
制造B:=REF(SUM((VAR10/REF(VAR10,1)-1)*100,0)*10,1);
运输B:=REF(SUM((VAR11/REF(VAR11,1)-1)*100,0)*10,1);
上证B:=REF(SUM((VAR12/REF(VAR12,1)-1)*100,0)*10,1);
金属B:=REF(SUM((VAR13/REF(VAR13,1)-1)*100,0)*10,1);
BVAR17:=CONST(MA(医药B,RN));
BVAR18:=CONST(MA(金融B,RN));
BVAR19:=CONST(MA(纺织B,RN));
BVAR20:=CONST(MA(建筑B,RN));
BVAR21:=CONST(MA(机械B,RN));
BVAR22:=CONST(MA(地产B,RN));
BVAR23:=CONST(MA(农林B,RN));
BVAR24:=CONST(MA(电子B,RN));
BVAR25:=CONST(MA(石化B,RN));
BVAR26:=CONST(MA(制造B,RN));
BVAR27:=CONST(MA(运输B,RN));
BVAR28:=CONST(MA(上证B,RN));
BVAR29:=CONST(MA(金属B,RN));
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));
医药C:=(CONST(医药)-(VAR17))-(CONST(医药B)-(BVAR17));
金融C:=(CONST(金融)-(VAR18))-(CONST(金融B)-(BVAR18));
纺织C:=(CONST(纺织)-(VAR19))-(CONST(纺织B)-(BVAR19));
建筑C:=(CONST(建筑)-(VAR20))-(CONST(建筑B)-(BVAR20));
机械C:=(CONST(机械)-(VAR21))-(CONST(机械B)-(BVAR21));
地产C:=(CONST(地产)-(VAR22))-(CONST(地产B)-(BVAR22));
农林C:=(CONST(农林)-(VAR23))-(CONST(农林B)-(BVAR23));
电子C:=(CONST(电子)-(VAR24))-(CONST(电子B)-(BVAR24));
石化C:=(CONST(石化)-(VAR25))-(CONST(石化B)-(BVAR25));
制造C:=(CONST(制造)-(VAR26))-(CONST(制造B)-(BVAR26));
运输C:=(CONST(运输)-(VAR27))-(CONST(运输B)-(BVAR27));
上证C:=(CONST(上证)-(VAR28))-(CONST(上证B)-(BVAR28));
金属C:=(CONST(金属)-(VAR29))-(CONST(金属B)-(BVAR29));
P1:=IF(BARSLAST(CURRBARSCOUNT=10),1,0);
P2:=IF(BARSLAST(CURRBARSCOUNT=13),1,0);
P3:=IF(BARSLAST(CURRBARSCOUNT=16),1,0);
P4:=IF(BARSLAST(CURRBARSCOUNT=19),1,0);
P5:=IF(BARSLAST(CURRBARSCOUNT=22),1,0);
P6:=IF(BARSLAST(CURRBARSCOUNT=25),1,0);
P7:=IF(BARSLAST(CURRBARSCOUNT=28),1,0);
P8:=IF(BARSLAST(CURRBARSCOUNT=31),1,0);
P9:=IF(BARSLAST(CURRBARSCOUNT=34),1,0);
P10:=IF(BARSLAST(CURRBARSCOUNT=37),1,0);
P11:=IF(BARSLAST(CURRBARSCOUNT=40),1,0);
P12:=IF(BARSLAST(CURRBARSCOUNT=43),1,0);
P13:=IF(BARSLAST(CURRBARSCOUNT=46),1,0);
P14:=IF(BARSLAST(CURRBARSCOUNT=7),1,0);
STICKLINE(医药,0,IF(P2-P1,CONST(医药C),DRAWNULL),8,0),COLOR999999;
STICKLINE(金融,0,IF(P3-P2,CONST(金融C),DRAWNULL),8,0),COLOR999999;
STICKLINE(纺织,0,IF(P4-P3,CONST(纺织C),DRAWNULL),8,0),COLOR999999;
STICKLINE(建筑,0,IF(P5-P4,CONST(建筑C),DRAWNULL),8,0),COLOR999999;
STICKLINE(机械,0,IF(P6-P5,CONST(机械C),DRAWNULL),8,0),COLOR999999;
STICKLINE(地产,0,IF(P7-P6,CONST(地产C),DRAWNULL),8,0),COLOR999999;
STICKLINE(农林,0,IF(P8-P7,CONST(农林C),DRAWNULL),8,0),COLOR999999;
STICKLINE(电子,0,IF(P9-P8,CONST(电子C),DRAWNULL),8,0),COLOR999999;
STICKLINE(石化,0,IF(P10-P9,CONST(石化C),DRAWNULL),8,0),COLOR999999;
STICKLINE(制造,0,IF(P11-P10,CONST(制造C),DRAWNULL),8,0),COLOR999999;
STICKLINE(运输,0,IF(P12-P11,CONST(运输C),DRAWNULL),8,0),COLOR999999;
STICKLINE(金属,0,IF(P13-P12,CONST(金属C),DRAWNULL),8,0),COLOR999999;
STICKLINE(上证,0,IF(P1-P14,CONST(上证C),DRAWNULL),8,0),COLOR999999;
医药A:=SUM((VAR1/REF(VAR1,1)-1)*100,0)*2+100;
金融A:SUM((VAR2/REF(VAR2,1)-1)*100,0)*2+100,LINETHICK1,COLOR00FFFF;
纺织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;
农林A:SUM((VAR7/REF(VAR7,1)-1)*100,0)*2+100,LINETHICK1,COLOR00FF00;
电子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;
上证A:SUM((VAR12/REF(VAR12,1)-1)*100,0)*2+100,LINETHICK1,COLOR0000FF;
金属A:SUM((VAR13/REF(VAR13,1)-1)*100,0)*2+100,COLOR00FFFF;
STICKLINE(医药,0,IF(P2-P1,CONST(医药)-(VAR17),DRAWNULL),4,-2),COLORFF00FF;
STICKLINE(金融,0,IF(P3-P2,CONST(金融)-(VAR18),DRAWNULL),4,-2),COLORFF00FF;
STICKLINE(纺织,0,IF(P4-P3,CONST(纺织)-(VAR19),DRAWNULL),4,-2),COLORFF00FF;
STICKLINE(建筑,0,IF(P5-P4,CONST(建筑)-(VAR20),DRAWNULL),4,-2),COLORFF00FF;
STICKLINE(机械,0,IF(P6-P5,CONST(机械)-(VAR21),DRAWNULL),4,-2),COLORFF00FF;
STICKLINE(地产,0,IF(P7-P6,CONST(地产)-(VAR22),DRAWNULL),4,-2),COLORFF00FF;
STICKLINE(农林,0,IF(P8-P7,CONST(农林)-(VAR23),DRAWNULL),4,-2),COLORFF00FF;
STICKLINE(电子,0,IF(P9-P8,CONST(电子)-(VAR24),DRAWNULL),4,-2),COLORFF00FF;
STICKLINE(石化,0,IF(P10-P9,CONST(石化)-(VAR25),DRAWNULL),4,-2),COLORFF00FF;
STICKLINE(制造,0,IF(P11-P10,CONST(制造)-(VAR26),DRAWNULL),4,-2),COLORFF00FF;
STICKLINE(运输,0,IF(P12-P11,CONST(运输)-(VAR27),DRAWNULL),4,-2),COLORFF00FF;
STICKLINE(上证,0,IF(P1-P14,CONST(上证)-(VAR28),DRAWNULL),4,-1),COLOR0000FF;
STICKLINE(金属,0,IF(P13-P12,CONST(金属)-(VAR29),DRAWNULL),4,-2),COLORFF00FF;
DRAWTEXT(P2-P1,-50,' 医药'),COLORYELLOW;
DRAWTEXT(P3-P2,-50,' 金融'),COLORYELLOW;
DRAWTEXT(P4-P3,-50,' 纺织'),COLORYELLOW;
DRAWTEXT(P5-P4,-50,' 建筑'),COLORYELLOW;
DRAWTEXT(P6-P5,-50,' 机械'),COLORYELLOW;
DRAWTEXT(P7-P6,-50,' 地产'),COLORYELLOW;
DRAWTEXT(P8-P7,-50,' 农林'),COLORYELLOW;
DRAWTEXT(P9-P8,-50,' 电子'),COLORYELLOW;
DRAWTEXT(P10-P9,-50,' 石化'),COLORYELLOW;
DRAWTEXT(P11-P10,-50,' 制造'),COLORYELLOW;
DRAWTEXT(P12-P11,-50,' 运输'),COLORYELLOW;
DRAWTEXT(P13-P12,-50,' 金属'),COLORYELLOW;
DRAWTEXT(P1-P14,-50,' 上证OR当前'),COLOR0000FF;
DRAWTEXT(ISLASTBAR,上证A,'当前指数'),COLOR0000FF;
===============================================
{股市风帆参数 RN:1,100,10}
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");
医药:=REF(SUM((VAR1/REF(VAR1,1)-1)*100,0)*10,1);
金融:=REF(SUM((VAR2/REF(VAR2,1)-1)*100,0)*10,1);
纺织:=REF(SUM((VAR3/REF(VAR3,1)-1)*100,0)*10,1);
建筑:=REF(SUM((VAR4/REF(VAR4,1)-1)*100,0)*10,1);
机械:=REF(SUM((VAR5/REF(VAR5,1)-1)*100,0)*10,1);
地产:=REF(SUM((VAR6/REF(VAR6,1)-1)*100,0)*10,1);
农林:=REF(SUM((VAR7/REF(VAR7,1)-1)*100,0)*10,1);
电子:=REF(SUM((VAR8/REF(VAR8,1)-1)*100,0)*10,1);
石化:=REF(SUM((VAR9/REF(VAR9,1)-1)*100,0)*10,1);
制造:=REF(SUM((VAR10/REF(VAR10,1)-1)*100,0)*10,1);
运输:=REF(SUM((VAR11/REF(VAR11,1)-1)*100,0)*10,1);
上证:=REF(SUM((VAR12/REF(VAR12,1)-1)*100,0)*10,1);
金属:=REF(SUM((VAR13/REF(VAR13,1)-1)*100,0)*10,1);
医药A:=SUM((VAR1/REF(VAR1,1)-1)*100,0)*10;
金融A:=SUM((VAR2/REF(VAR2,1)-1)*100,0)*10;
纺织A:=SUM((VAR3/REF(VAR3,1)-1)*100,0)*10;
建筑A:=SUM((VAR4/REF(VAR4,1)-1)*100,0)*10;
机械A:=SUM((VAR5/REF(VAR5,1)-1)*100,0)*10;
地产A:=SUM((VAR6/REF(VAR6,1)-1)*100,0)*10;
农林A:=SUM((VAR7/REF(VAR7,1)-1)*100,0)*10;
电子A:=SUM((VAR8/REF(VAR8,1)-1)*100,0)*10;
石化A:=SUM((VAR9/REF(VAR9,1)-1)*100,0)*10;
制造A:=SUM((VAR10/REF(VAR10,1)-1)*100,0)*10;
运输A:=SUM((VAR11/REF(VAR11,1)-1)*100,0)*10;
上证A:=SUM((VAR12/REF(VAR12,1)-1)*100,0)*10;
金属A:=SUM((VAR13/REF(VAR13,1)-1)*100,0)*10;
AVAR17:=CONST(MA(医药A,RN));
AVAR18:=CONST(MA(金融A,RN));
AVAR19:=CONST(MA(纺织A,RN));
AVAR20:=CONST(MA(建筑A,RN));
AVAR21:=CONST(MA(机械A,RN));
AVAR22:=CONST(MA(地产A,RN));
AVAR23:=CONST(MA(农林A,RN));
AVAR24:=CONST(MA(电子A,RN));
AVAR25:=CONST(MA(石化A,RN));
AVAR26:=CONST(MA(制造A,RN));
AVAR27:=CONST(MA(运输A,RN));
AVAR28:=CONST(MA(上证A,RN));
AVAR29:=CONST(MA(金属A,RN));
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);
医药B:=(CONST(医药A)-(AVAR17))-(CONST(医药)-(VAR17));
金融B:=(CONST(金融A)-(AVAR18))-(CONST(金融)-(VAR18));
纺织B:=(CONST(纺织A)-(AVAR19))-(CONST(纺织)-(VAR19));
建筑B:=(CONST(建筑A)-(AVAR20))-(CONST(建筑)-(VAR20));
机械B:=(CONST(机械A)-(AVAR21))-(CONST(机械)-(VAR21));
地产B:=(CONST(地产A)-(AVAR22))-(CONST(地产)-(VAR22));
农林B:=(CONST(农林A)-(AVAR23))-(CONST(农林)-(VAR23));
电子B:=(CONST(电子A)-(AVAR24))-(CONST(电子)-(VAR24));
石化B:=(CONST(石化A)-(AVAR25))-(CONST(石化)-(VAR25));
制造B:=(CONST(制造A)-(AVAR26))-(CONST(制造)-(VAR26));
运输B:=(CONST(运输A)-(AVAR27))-(CONST(运输)-(VAR27));
上证B:=(CONST(上证A)-(AVAR28))-(CONST(上证)-(VAR28));
金属B:=(CONST(金属A)-(AVAR29))-(CONST(金属)-(VAR29));
STICKLINE(医药,0,IF(P2-P1,CONST(医药B),DRAWNULL),8,0),COLOR999999;
STICKLINE(金融,0,IF(P3-P2,CONST(金融B),DRAWNULL),8,0),COLOR999999;
STICKLINE(纺织,0,IF(P4-P3,CONST(纺织B),DRAWNULL),8,0),COLOR999999;
STICKLINE(建筑,0,IF(P5-P4,CONST(建筑B),DRAWNULL),8,0),COLOR999999;
STICKLINE(机械,0,IF(P6-P5,CONST(机械B),DRAWNULL),8,0),COLOR999999;
STICKLINE(地产,0,IF(P7-P6,CONST(地产B),DRAWNULL),8,0),COLOR999999;
STICKLINE(农林,0,IF(P8-P7,CONST(农林B),DRAWNULL),8,0),COLOR999999;
STICKLINE(电子,0,IF(P9-P8,CONST(电子B),DRAWNULL),8,0),COLOR999999;
STICKLINE(石化,0,IF(P10-P9,CONST(石化B),DRAWNULL),8,0),COLOR999999;
STICKLINE(制造,0,IF(P11-P10,CONST(制造B),DRAWNULL),8,0),COLOR999999;
STICKLINE(运输,0,IF(P12-P11,CONST(运输B),DRAWNULL),8,0),COLOR999999;
{STICKLINE(上证,0,IF(P1-P14,CONST(上证B),DRAWNULL),8,0),COLOR999999;}
STICKLINE(金属,0,IF(P13-P12,CONST(金属B),DRAWNULL),8,0),COLOR999999;
STICKLINE(医药,0,IF(P2-P1,CONST(医药A)-(AVAR17),DRAWNULL),6.5,-2),COLORFF00FF;
STICKLINE(金融,0,IF(P3-P2,CONST(金融A)-(AVAR18),DRAWNULL),6.5,-2),COLORFF00FF;
STICKLINE(纺织,0,IF(P4-P3,CONST(纺织A)-(AVAR19),DRAWNULL),6.5,-2),COLORFF00FF;
STICKLINE(建筑,0,IF(P5-P4,CONST(建筑A)-(AVAR20),DRAWNULL),6.5,-2),COLORFF00FF;
STICKLINE(机械,0,IF(P6-P5,CONST(机械A)-(AVAR21),DRAWNULL),6.5,-2),COLORFF00FF;
STICKLINE(地产,0,IF(P7-P6,CONST(地产A)-(AVAR22),DRAWNULL),6.5,-2),COLORFF00FF;
STICKLINE(农林,0,IF(P8-P7,CONST(农林A)-(AVAR23),DRAWNULL),6.5,-2),COLORFF00FF;
STICKLINE(电子,0,IF(P9-P8,CONST(电子A)-(AVAR24),DRAWNULL),6.5,-2),COLORFF00FF;
STICKLINE(石化,0,IF(P10-P9,CONST(石化A)-(AVAR25),DRAWNULL),6.5,-2),COLORFF00FF;
STICKLINE(制造,0,IF(P11-P10,CONST(制造A)-(AVAR26),DRAWNULL),6.5,-2),COLORFF00FF;
STICKLINE(运输,0,IF(P12-P11,CONST(运输A)-(AVAR27),DRAWNULL),6.5,-2),COLORFF00FF;
STICKLINE(上证,0,IF(P1-P14,CONST(上证A)-(AVAR28),DRAWNULL),6.5,-1),COLORFF00FF;
STICKLINE(金属,0,IF(P13-P12,CONST(金属A)-(AVAR29),DRAWNULL),6.5,-2),COLORFF00FF;
STICKLINE(医药,0,IF(P2-P1,CONST(医药)-(VAR17),DRAWNULL),4,0),COLORFF00FF;
STICKLINE(金融,0,IF(P3-P2,CONST(金融)-(VAR18),DRAWNULL),4,0),COLORFF00FF;
STICKLINE(纺织,0,IF(P4-P3,CONST(纺织)-(VAR19),DRAWNULL),4,0),COLORFF00FF;
STICKLINE(建筑,0,IF(P5-P4,CONST(建筑)-(VAR20),DRAWNULL),4,0),COLORFF00FF;
STICKLINE(机械,0,IF(P6-P5,CONST(机械)-(VAR21),DRAWNULL),4,0),COLORFF00FF;
STICKLINE(地产,0,IF(P7-P6,CONST(地产)-(VAR22),DRAWNULL),4,0),COLORFF00FF;
STICKLINE(农林,0,IF(P8-P7,CONST(农林)-(VAR23),DRAWNULL),4,0),COLORFF00FF;
STICKLINE(电子,0,IF(P9-P8,CONST(电子)-(VAR24),DRAWNULL),4,0),COLORFF00FF;
STICKLINE(石化,0,IF(P10-P9,CONST(石化)-(VAR25),DRAWNULL),4,0),COLORFF00FF;
STICKLINE(制造,0,IF(P11-P10,CONST(制造)-(VAR26),DRAWNULL),4,0),COLORFF00FF;
STICKLINE(运输,0,IF(P12-P11,CONST(运输)-(VAR27),DRAWNULL),4,0),COLORFF00FF;
{STICKLINE(上证,0,IF(P1-P14,CONST(上证)-(VAR28),DRAWNULL),4,0),COLORFF00FF;}
STICKLINE(金属,0,IF(P13-P12,CONST(金属)-(VAR29),DRAWNULL),4,0),COLORFF00FF;
DRAWTEXT(P2-P1,-50,' 医药'),COLORYELLOW;
DRAWTEXT(P3-P2,-50,' 金融'),COLORYELLOW;
DRAWTEXT(P4-P3,-50,' 纺织'),COLORYELLOW;
DRAWTEXT(P5-P4,-50,' 建筑'),COLORYELLOW;
DRAWTEXT(P6-P5,-50,' 机械'),COLORYELLOW;
DRAWTEXT(P7-P6,-50,' 地产'),COLORYELLOW;
DRAWTEXT(P8-P7,-50,' 农林'),COLORYELLOW;
DRAWTEXT(P9-P8,-50,' 电子'),COLORYELLOW;
DRAWTEXT(P10-P9,-50,' 石化'),COLORYELLOW;
DRAWTEXT(P11-P10,-50,' 制造'),COLORYELLOW;
DRAWTEXT(P12-P11,-50,' 运输'),COLORYELLOW;
DRAWTEXT(P1-P14,-50,' 上证'),COLORYELLOW;
DRAWTEXT(P13-P12,-50,' 金属'),COLORYELLOW;
路过顶顶..........   {点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
