通达信东方红套装 主图副图 源码分享 附图
通达信东方红套装 主图副图 源码分享 附图
{东方红指标如下：}
获利30:=10*WINNER(CLOSE*0.9*0.9*0.9),COLORYELLOW;
换手:=V*100/CAPITAL;
主力:=MA(换手,4);
大户:=MA(换手,9);
中户:=MA(换手,17);
散户:=MA(换手,34);
均量:=(主力+大户+中户+散户)/4;
主力能量:=(主力-均量);
操盘:=STICKLINE(主力能量>=0 AND 主力能量>=REF(主力能量,1),0+2.2,主力能量/5+2.2,3,3),COLORRED;
减仓:=STICKLINE(主力能量>=0 AND 主力能量< REF(主力能量,1),0+2.2,主力能量/5+2.2,3,3),COLORYELLOW;
反弹:=STICKLINE(主力能量<0 AND 主力能量>=REF(主力能量,1),0+2.2,主力能量/5+2.2,3,0),COLORGREEN;
寻底:=STICKLINE(主力能量<0 AND 主力能量< REF(主力能量,1),0+2.2,主力能量/5+2.2,3,3),COLORGREEN;
ACB1:=CLOSE/REF(CLOSE,1)>=1.098;
ACB22:=COUNT(ACB1,2)>=1 AND NOT(COUNT(ACB1,3)>=2);
STICKLINE(ACB22,0,8,2,0);
STICKLINE(ACB22,8,10,2,0) COLORRED;
DRAWICON(ACB22,10,29);
DRAWICON(ACB22,11,29);
DRAWICON(ACB22,12,29);
{东方红东方红量价如下：}
TOTAL:=IF(PERIOD=1,5,IF(PERIOD=2,15,IF(PERIOD=3,30,IF(PERIOD=4,60,IF(PERIOD=5,TOTALFZNUM,1)))));
MTIME:=MOD(FROMOPEN,TOTAL);
CTIME:=IF(MTIME<0.5,TOTAL,MTIME);
VVOL:IF((CURRBARSCOUNT=1 AND DYNAINFO(8)>1),VOL*(TOTAL+3)/(CTIME+3),DRAWNULL),NODRAW;
STICKLINE((CURRBARSCOUNT=1 AND DYNAINFO(8)>1),VVOL,0,-1,-1),COLOR00C0C0;
DX_1:=MA(VOL,35);
DX_6:=IF(OPEN>CLOSE,OPEN,CLOSE);
黑心柱:=VOL>2*DX_1 AND (CLOSE<OPEN OR (HIGH-DX_6>0.5*(HIGH-LOW) AND (HIGH-LOW)/REF(CLOSE,1)>0.05)),COLORFF6633;
VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
成交:=VOL,COLORCD52FF,LINETHICK0;
主动买盘:=IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),COLOR0000FF,STICK;
主动卖盘:=IF(CLOSE>OPEN,VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,VAR1*(HIGH-LOW),VOL/2)),COLOR00E521,STICK;
买卖比:=主动买盘/主动卖盘,COLORYELLOW;
买比:=主动买盘/V;
卖比:=主动卖盘/V;
WJ:=(HIGH+LOW+CLOSE)/3;
VD1:=IF(HIGH=LOW,1,HIGH-MAX(OPEN,CLOSE));
VD2:=IF(HIGH=LOW,1,MAX(CLOSE,OPEN)-WJ);
VD3:=IF(HIGH=LOW,1,MIN(OPEN,CLOSE)-LOW);
VD4:=IF(HIGH=LOW,1,WJ-MIN(CLOSE,OPEN));
VD5:=VOL/IF(HIGH=LOW,4,HIGH-LOW);
VD6:=(VD1*VD5);
VD7:=(VD2*VD5);
VD8:=(VD3*VD5);
VD9:=(VD4*VD5);
买入量:=(VD9+VD8);
卖出量:=(VD6+VD7);
买入资金:=买入量*CLOSE/100;
卖出资金:=卖出量*CLOSE/100;
资金进出:=买入资金-卖出资金;
资金买卖:=买入资金+卖出资金;
买卖资金比:=买入资金/卖出资金;
买资金比:=买入资金/资金买卖;
卖资金比:=卖出资金/资金买卖;
挂单买盘:=MA(主动买盘,3);
挂单卖盘:=(MA(主动卖盘,3));
STICKLINE((主动买盘 > 0) ,0,主动买盘,2.86,0),COLOR6058FF;
STICKLINE((主动卖盘 > 0) ,0,主动卖盘,2.86,0),COLORFFFF00;
{量能生命线}
BLZ:=VOL>REF(V,1)*1.9;
BLZ1:=VOL<REF(LLV(VOL,13),1);
BLZ2:=VOL<REF(LLV(VOL,55),1);
倍量柱:=BLZ,COLORYELLOW;
DRAWICON(倍量柱,VOL*1.18,18),COLORYELLOW;{倍量}
HJZ:=(3*C+H+L+O)/6;
HJZ2:=(8*HJZ+7*REF(HJZ,1)+6*REF(HJZ,2)+5*REF(HJZ,3)+4*REF(HJZ,4)+3*REF(HJZ,5)+2*REF(HJZ,6)+REF(HJZ,8))/36;
HJZ3:=VOL=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND CLOSE>HJZ2 AND C>O;
生命线:=FILTER(HJZ3,5),STICK,COLORRED;{黄金柱}{生命线}
DRAWICON(生命线,VOL*1.06,23),COLORRED;{生命线}
{新VOL}
DVAR1:=(VOL / (((HIGH - LOW) * 2) - ABS((CLOSE - OPEN))));
买盘:=IF((CLOSE > OPEN),(DVAR1 * (HIGH - LOW)),IF((CLOSE < OPEN),(DVAR1 * ((HIGH - OPEN) + (CLOSE - LOW))),(VOL / 2)));
卖盘:=IF((CLOSE > OPEN),(0 - (DVAR1 * ((HIGH - CLOSE) + (OPEN - LOW)))),IF((CLOSE < OPEN),(0 - (DVAR1 * (HIGH - LOW))),(0 - (VOL / 2))));
买卖差:=(买盘 + 卖盘);
量比:=(VOL / MA(VOL,5));
JX1:=BARSSINCE(买盘);
JY1:=IF(((121 > JX1) AND (JX1 > 0)),JX1,120);
JY2:=IF(((4 > JX1) AND (JX1 > 0)),JX1,3);VAR30:=MA(VOL,JY2);
神比:=(买盘 / VAR30);
鬼比:=(卖盘 / VAR30);
VAR2:=(HIGH - LOW);
VAR3:=ABS((OPEN - CLOSE));
VAR4:=(HIGH - IF((CLOSE > OPEN),CLOSE,OPEN));
VAR5:=(IF((CLOSE > OPEN),OPEN,CLOSE) - LOW);
VAR6:=((VAR3 / VAR2) * VOL);
VAR7:=((VAR4 / VAR2) * VOL);
VAR8:=((VAR5 / VAR2) * VOL);
VAR9:=IF(((VOL / CAPITAL) > 0.001),1,EXP(ABS(LOG(((VOL / CAPITAL) * 100)))));
VARA:=(((CLOSE - MA(CLOSE,5)) / MA(CLOSE,5)) * 100);
VARB:=(((MA(CLOSE,5) > MA(CLOSE,10)) AND (MA(CLOSE,10) > MA(CLOSE,30))) AND (MA(CLOSE,30) > MA(CLOSE,60)));
VARC:=((MA(CLOSE,5) < MA(CLOSE,10)) AND (MA(CLOSE,10) < MA(CLOSE,30)));
VARD:=REF(CLOSE,1);
VARE:=((SMA(MAX((CLOSE - VARD),0),6,1) / SMA(ABS((CLOSE - VARD)),6,1)) * 100);
VAR40:=((IF((((VAR6 >= VAR7) AND (VAR6 >= VAR8)) AND (CLOSE > OPEN)),VAR6,买盘) + 买盘) / 2);
VAR41:=((IF(((VAR7 > VAR6) AND (VAR7 > VAR8)),VAR7,买盘) + 买盘) / 2);
VAR42:=((IF(((VAR8 > VAR6) AND (VAR8 > VAR7)),VAR8,买盘) + 买盘) / 2);
VAR50:=((IF((((VAR6 >= VAR7) AND (VAR6 >= VAR8)) AND (CLOSE < OPEN)),VAR6,卖盘) + 卖盘) / 2);
三日上攻:=MA((((VAR40 + VAR41) + VAR42) / 3),JY2);
三日下攻:=MA(VAR50,JY2);
上攻均量:=MA(买盘,JY1);
下攻均量:=MA(卖盘,JY1);
换手率:=((VOL / CAPITAL) * 100);
DRAWICON((((VOL / REF((SUM(VOL,5) / 5),1)) >= 2) AND (换手率 > 1)),(VOL * 1.01),25),COLOR00FFFF;{量变}
DRAWICON((((VOL / REF((SUM(VOL,5) / 5),1)) >= 2) AND (换手率 > 1)),(VOL * 1.06),24),COLOR00FFFF;{量变}
T6:=(VAR8>VAR6) AND (VAR8>VAR7) AND 买盘>0,COLORWHITE;
T61:=(VAR8>VAR6) AND (VAR8>VAR7) AND 买盘>0,COLORWHITE;
T7:=(VAR6 >= VAR7) AND (VAR6 >= VAR8) AND (CLOSE > OPEN) AND 买盘>0,COLORYELLOW;
T71:=((VAR6 >= VAR7) AND (VAR6 >= VAR8) AND (CLOSE > OPEN) AND 买盘>0),COLORYELLOW;
T8:=((VAR7 > VAR6) AND (VAR7 > VAR8) AND 买盘>0),COLORMAGENTA;
T81:=((VAR7 > VAR6) AND (VAR7 > VAR8) AND 买盘>0),COLORMAGENTA;
T9:=((VAR6 >= VAR7) AND (VAR6 >= VAR8) AND (CLOSE < OPEN) AND 买盘>0),COLORFF6633,COLORCYAN;
T91:=((VAR6 >= VAR7) AND (VAR6 >= VAR8) AND (CLOSE < OPEN) AND 买盘>0),COLORFF6633,COLORCYAN;
T10:=((VAR6 >= VAR7) AND (VAR6 >= VAR8) AND (CLOSE < OPEN) AND 买卖差<0),COLORGREEN;
T101:=((VAR6 >= VAR7) AND (VAR6 >= VAR8) AND (CLOSE < OPEN) AND 买卖差<0),COLORFF6633,COLORGREEN;
T11:=(黑心柱),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND T6 ,0.6,0,0,'★机会风险提示:【洗盘】庄家找底振荡，轻度洗盘，伺机建仓'),COLORCYAN;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND T7 ,0.6,0,0,'★机会风险提示:【建仓】主力吸筹进货并且成交量出现黄金柱，跟随进货等起航'),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND T8 ,0.6,0,0,'★机会风险提示:【高抛】主力高抛低吸或低吸高抛')COLORMAGENTA;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND T9 ,0.6,0,0,'★机会风险提示:【减仓】主力低位深度洗盘或高位出货坚决'),COLORFF6633;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND T10 ,0.6,0.16,0,'★机会风险提示:【清仓】趋势破，庄家撤退'),COLORGREEN;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND T11 ,0.6,0.33,0,'★★★机会风险提示：【主力黑心，请控制风险】'),COLORYELLOW;
主力启动线:MA(VOL,5),COLORRED,LINETHICK1;
主力洗盘线:MA(VOL,35),LINETHICK1,COLORYELLOW;
资金异动线:MA(VOL,135),LINETHICK1,COLORMAGENTA;
DRAWICON(CROSS(主力启动线,主力洗盘线) AND V>主力洗盘线 AND V>资金异动线 AND 主力洗盘线<资金异动线,V,10);
{UNDEFINED高低距------------------------}
DRAWRECTREL(460,1000,0,0,RGB(10,0,0)),COLORBLUE;{UNDEFINED活动框};
{柱图}
SATTOL:=(V/C)/(HHV(V,1)/HHV(C,1));
买卖量:=IF(SATTOL>1,1,SATTOL),COLORLIBLUE,NODRAW;
SATBU:=(主动买盘/C)/(HHV(主动买盘,1)/HHV(C,1));
主动买盘量:=IF(SATBU>1,1,SATBU*买比),COLORLIBLUE,NODRAW;
SATSEL:=(主动卖盘/C)/(HHV(主动卖盘,1)/HHV(C,1));
主动卖盘量:=IF(SATSEL>1,1,SATSEL*卖比),COLORLIBLUE,NODRAW;
SATGDBU:=(挂单买盘/C)/(HHV(挂单买盘,1)/HHV(C,1));
挂单买盘量:=IF(SATGDBU>1,1,SATGDBU*买比),COLORLIBLUE,NODRAW;
SATGDSEL:=(挂单卖盘/C)/(HHV(挂单卖盘,1)/HHV(C,1));
挂单卖盘量:=IF(SATGDSEL>1,1,SATGDSEL*卖比),COLORLIBLUE,NODRAW;
SATZJBU:=(买入资金/C)/(HHV(买入资金,1)/HHV(C,1));
买入资金量:=IF(SATZJBU>1,1,SATZJBU*买资金比),COLORLIBLUE,NODRAW;
SATZJSEL:=(卖出资金/C)/(HHV(卖出资金,1)/HHV(C,1));
卖出资金量:=IF(SATZJSEL>1,1,SATZJSEL*卖资金比),COLORLIBLUE,NODRAW;
SAT:=(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20));
量能饱和度:=(IF(SAT>1,1,SAT)),COLORRED,NODRAW;
图长度像素:=80*0.5;
当日买卖量图:=(买卖量)*图长度像素+230*0.8;
当日主动买量图:=(主动买盘量)*图长度像素+230*0.8;
当日主动卖量图:=(主动卖盘量)*图长度像素+230*0.8;
当日挂单买盘图:=(挂单买盘量)*图长度像素+230*0.8;
当日挂单卖盘图:=(挂单卖盘量)*图长度像素+230*0.8;
买入资金图:=(买入资金量)*图长度像素+230*1.86;
卖出资金图:=(卖出资金量)*图长度像素+230*1.86;
量能饱和度图:=(量能饱和度)*图长度像素+230*1.86;
DRAWRECTREL(120,90,CONST(当日买卖量图),25,RGB(255,0,255));
DRAWRECTREL(120,230,CONST(当日主动买量图),165,RGB(255,0,0));
DRAWRECTREL(120,365,CONST(当日主动卖量图),305,RGB(0,255,0));
DRAWRECTREL(120,665,CONST(当日挂单买盘图),605,RGB(255,0,0));
DRAWRECTREL(120,825,CONST(当日挂单卖盘图),760,RGB(0,255,0));
DRAWRECTREL(370,230,CONST(买入资金图),170,RGB(255,0,0));
DRAWRECTREL(370,365,CONST(卖出资金图),310,RGB(0,255,0));
DRAWRECTREL(460,76,370,0,RGB(150,10,250));
DRAWRECTREL(460,76,370+CONST(量能饱和度*(460-370)),0,RGB(0,100,0));
DRAWTEXT_FIX(1,0.0,0.0,0,STRCAT(STRCAT('当日买卖量(手)：',CON2STR(VOL,0)),' ')),COLORMAGENTA;
DRAWTEXT_FIX(1,0.0,0.15,0,STRCAT(STRCAT('当日买量：',CON2STR(主动买盘,0)),' ')),COLORRED;
DRAWTEXT_FIX(1,0.0,0.3,0,STRCAT(STRCAT('当日卖量：',CON2STR(主动卖盘,0)),' ')),COLORGREEN;
DRAWTEXT_FIX(1,0.0,0.45,0,STRCAT(STRCAT('当日买卖比：',CON2STR(买卖比,2)),' ')),COLORYELLOW;
DRAWTEXT_FIX(1,0.0,0.6,0,STRCAT(STRCAT('当日挂单买盘：',CON2STR(挂单买盘,0)),' ')),COLORRED;
DRAWTEXT_FIX(1,0.0,0.75,0,STRCAT(STRCAT('当日挂单卖盘：',CON2STR(挂单卖盘,0)),' ')),COLORGREEN;
DRAWTEXT_FIX(1,0.2360,0.15,0,STRCAT(STRCAT('买入资金累计万元: ',CON2STR(买入资金,0)),' ')),COLORRED;
DRAWTEXT_FIX(1,0.2360,0.3,0,STRCAT(STRCAT('卖出资金累计万元: ',CON2STR(卖出资金,0)),' ')),COLORGREEN;
DRAWTEXT_FIX(1,0.236,0.45,0,STRCAT(STRCAT('资金进出万元: ',CON2STR(资金进出,0)),' ')),COLORMAGENTA;
DRAWTEXT_FIX(1,0.236,0.6,0,STRCAT(STRCAT('买卖资金比: ',CON2STR(买卖资金比,2)),' ')),COLORYELLOW;
DRAWTEXT_FIX(1,0.236,0,0,STRCAT(STRCAT('量能饱和度： ',CON2STR(量能饱和度,2)),'％')),COLORYELLOW;
{东方红主图如下：}
DRAWGBK(CLOSE>0,RGB(1,1,1),RGB(1,1,1),0,1,0);
DRAWNULL,COLORCCCCCC;
{板块市值业绩}
总股本:=STRCAT(STRCAT(' 总股本:',CON2STR(TOTALCAPITAL/1000000,2)),'亿');
流通盘:=STRCAT(STRCAT(' 流通盘:',CON2STR(CAPITAL/1000000,2)),'亿');
全流通:=STRCAT(STRCAT(' 流通比:',CON2STR(CAPITAL/TOTALCAPITAL*100,2)),'％');
市值:=STRCAT(STRCAT(' 流通市值:',CON2STR((CAPITAL/1000000)*C,2)),'亿');
股本市值:=STRCAT('【股本市值】：',STRCAT(STRCAT(STRCAT(总股本,流通盘),全流通),市值));
市盈率:=STRCAT(' 市盈率:',CON2STR(C/FINANCE(33),2));
净资收益率:=STRCAT(' 净资收益率:',CON2STR(FINANCE(33)/FINANCE(34)*100,2));
主营利润率:=STRCAT(' 主营利润率:',CON2STR(FINANCE(23)/FINANCE(20)*100,2));
当前业绩:=STRCAT('【当前业绩】：',STRCAT(STRCAT(市盈率,净资收益率),主营利润率));
DRAWTEXT_FIX(ISLASTBAR,0.005,0.12,0,股本市值),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,0.005,0.17,0,当前业绩),COLORMAGENTA;
获利盘％:=100*WINNER(C);
短期压力:=HHV(H,15);
短期支撑:=LLV(L,20);
X11:=(FINANCE(11)-FINANCE(15))/FINANCE(10)*1.2;
X12:=(FINANCE(31)+FINANCE(17))/FINANCE(10)*1.4;{盈余公积用资本公积金代替};
X13:=FINANCE(23)/FINANCE(10)*3.3;
X14:=FINANCE(19)/FINANCE(15)*0.6;{缺长期负债或负债总额}
X15:=FINANCE(20)/FINANCE(15)*0.999;
Z值:=X11+X12+X13+X14+X15;
DRAWTEXT_FIX(Z值<1.2,0.312,0.22,0,' 【●财务重警●】'),COLORLIRED;
DRAWTEXT_FIX( BETWEEN(Z值,1.2,2.6),0.312,0.22,0,' 【○财务轻警○】'),COLOR0099FF;
DRAWTEXT_FIX(Z值>2.6,0.312,0.22,0,' 【◎财务无警◎】'),COLORLIGREEN;
DRAWTEXT_FIX(C>0,0.005 ,0.22,0,'【获利盘％】:'),COLORRED;
DRAWTEXT_FIX(C>0,0.105,0.22,0,'【短期压力】:'),COLOR00FF00;
DRAWTEXT_FIX(C>0,0.21,0.22,0,'【短期支撑】:'),COLORYELLOW;
DRAWNUMBER_FIX(C>0,0.075,0.22,0,CONST(获利盘％)),COLORRED;
DRAWNUMBER_FIX(C>0,0.175,0.22,0,CONST(短期压力)),COLOR00FF00;
DRAWNUMBER_FIX(C>0,0.28,0.22,0,CONST(短期支撑)),COLORYELLOW;
{涨停统计}
STG:=NAMELIKE('S') OR NAMELIKE('*');
涨停:=((C/REF(C,1)>=1.095 AND C=H) OR (C/REF(C,1)>=1.09 AND C=O AND O=L AND H=L) OR (C/REF(C,1)>=1.048 AND STG=1 AND C=H) OR (C/REF(C,1)>=1.045 AND C=O AND O=L AND H=L AND STG=1)) AND CURRBARSCOUNT<=120;
ZTCS:=COUNT(涨停,BARSSINCE(涨停)+1);
GZT1:=STRCAT(' 半年內涨停次数：',CON2STR(ZTCS,0));
GZT2:=STRCAT(GZT1,'次');
SSTS1:=STRCAT(' 上市天数：',CON2STR(FINANCE(42),0));
SSTS2:=STRCAT(SSTS1,'天');
NTZZT1:=STRCAT(' 距今:',CON2STR(CONST(BARSLAST(涨停)),0));
NTZZT2:=STRCAT(NTZZT1,'天有涨停');
ZTTJ1:=STRCAT(SSTS2,GZT2);
ZTTJ2:=STRCAT(ZTTJ1,NTZZT2);
ZTTJ:=STRCAT('【涨停统计】:',ZTTJ2);
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.005,0.265,0,ZTTJ),COLORYELLOW;
DRAWKLINE(H,O,L,C);
N:=2;M:=30;
MA(H,M) * (1 + 13 / 100) * 1.0382,LINETHICK1,COLORYELLOW ;
MA(H,M) * (1 + 13 / 100),LINETHICK1,COLORYELLOW ;
EMA(L,30) * (1 - 15 / 100),COLORGREEN , NODRAW ;
EMA(L,30) * (1 - 15 / 100) * 0.82,NODRAW, COLORYELLOW;
AA:(EMA(C,5) * 7 + EMA(C,10) * 3) / 10,LINETHICK2,COLORWHITE;
A1:=(H + L + O + C) / 4;A2:=EMA(A1,13) - EMA(A1,34);A3:=EMA(A2,5);
A4:=(A2 - A3) * 5;A5:=IF(A4 >= 1000,1000,IF(A4 <= A1,A1,A4));
A6:=FORCAST(FORCAST(A5,32),10);A7:=(C - EMA(C,13)) / EMA(C,13) * (0 - 100);
A8:=EMA(A7 / 10 + EMA(C,13),8);A9:=EMA(C,3);A10:=EMA(SLOPE(C,22) * 20 + C,45);
A11:=IF(PERIOD >8 AND PERIOD < 11,MA(A10,1),IF(PERIOD = 8,MA(A10,4),IF(PERIOD = 7,MA(A10,8),IF(PERIOD = 6,MA(A10,16),IF(PERIOD = 5,MA(A10,32),0)))));A12:=A11 * 0.865;A13:=IF(A9 > A11,A9,A12);
A14:=C * V;A15:=EMA((EMA(A14,3) / EMA(V,3) + EMA(A14,6) / EMA(V,6) + EMA(A14,12) / EMA(V,12) + EMA(A14,24) / EMA(V,24)) / 4,13);
A16:=1.06 * A15;A17:=(C - REF(C,1)) / REF(C,1) * 100 > 8.5;
A18:=EMA(H,10) * (1 + 5 / 100);
捉妖:CROSS(AA,MA(H,30) * (1 + 13 / 100)) * 10,NODRAW;
A19:=(C - O) / REF(C,1) * 100;A20:=REF(H,N) = HHV(H,2 * N + 1);
A21:=FILTER(A20,N);A22:=BACKSET(A21,N + 1);A23:=FILTER(A22,N);
A24:=REF(L,N) = LLV(L,2 * N + 1);A25:=FILTER(A24,N);
A26:=BACKSET(A25,N + 1);A27:=FILTER(A26,N);
A28:=(REF(LLV(L,2 * N),1) + REF(HHV(H,2 * N),1)) / 2;
A29:=(H + L) / 2;A30:=(A23 AND NOT(A27 AND A28 >= A29)) OR ISLASTBAR OR BARSCOUNT(C) = 1;
A31:=A27 AND NOT(A23 AND A28 < A29);A32:=REF(BARSLAST(A30),1) + 1;
A33:=BACKSET(A30 AND COUNT(A31,A32) > 0,LLVBARS(IF(A31,L,10000),A32));
A34:=A33 > REF(A33,1);A35:=BACKSET(A34,2);A36:=A35 > REF(A35,1);
A37:=A36 OR ISLASTBAR OR BARSCOUNT(C) = 1;A38:=REF(BARSLAST(A37),1) + 1;
A39:=BACKSET(A37 AND COUNT(A23 AND NOT(A27 AND A28 >= A29),A38) > 0,HHVBARS(IF(A23 AND NOT(A27 AND A28 >= A29),H,0),A38));
A40:=A39 > REF(A39,1);A41:=BACKSET(A40,2);A42:=A41 > REF(A41,1);
A43:=BACKSET(ISLASTBAR,BARSLAST(A42) + 1);A44:=A43 > REF(A43,1);
A45:=BACKSET(A44,REF(BARSLAST(A42),1) + 2);A46:=A45 > REF(A45,1);
短齐压力:DRAWLINE(A46,H,A44,H,1),COLORGREEN,NODRAW;
{真妖显身}A0:=((L+H+C*2)/4);上F:=EMA(A0,14)*1.1382;
A1KX:=(上F-REF(上F,1)) / REF(上F,1) * 100;GD1:=BARSLAST(CROSS(A1KX,0));
真妖显身:IF(H>=REF(A0,BARSLAST(CROSS(A1KX,0)))*1.3,REF(A0,BARSLAST(CROSS(A1KX,0)))*1.3,DRAWNULL),COLORFFB5FF,LINETHICK9;
DRAWTEXT(ISLASTBAR,真妖显身,' 妖股显身'),COLORFFB5FF;
DRAWTEXT(FILTER(CROSS(AA,MA(H,30) * (1 + 13 / 100)),5),MA(H,30) * (1 + 13 / 100) * 0.88,' 捉大妖'),COLORGREEN;{=====================================}
研究所22:=IF(((YEAR) >= (2039)) AND ((MONTH) > 3),0,1);
研究所33:=(MA(C,3) + MA(C,6) + MA(C,12) + MA(C,24)) / 4 + ((1.88) * (STD((MA(C,3) + MA(C,6) + MA(C,12) + MA(C,24)) / 4,9))) * (研究所22);
急拉涨停线:((MA(研究所33,12)) * (1.06)) * (研究所22),LINETHICK2,COLORCYAN ;
研究所55:=(EMA(H,10)) * (1 + 5 / (100));
研究所6:=C * V;
研究所7:=EMA(((EMA(研究所6,3)) / (EMA(V,3)) + (EMA(研究所6,6)) / (EMA(V,6)) + (EMA(研究所6,12)) / (EMA(V,12)) + (EMA(研究所6,24)) / (EMA(V,24))) / 4,13);
研究所8:=(1.06) * (研究所7);研究所9:=(L / ((H + REF(C,1) + O) / 3)) * C;
DRAWTEXT(((CROSS(研究所9,研究所8)) AND (C > (研究所55))) AND (C > (急拉涨停线)),L,'▲'),LINETHICK1,COLORYELLOW;{==========开口捉妖多彩K线========}
NN:=5;MM:=3;研究所0:=((EMA(C,5)) * 7 + (EMA(C,10)) * 3) / 10;
研究所1:=IF((YEAR) >= (2025),0,1);研究所2:=EMA(EMA(L,21) + (6.8) * (STD(L,2)),55);研究所3:=EMA(((C / (研究所2)) * ((1.88) * C + L + O)) / (2.75),3);
研究所4:=(((研究所3) - (研究所2)) / (研究所2)) / 2;研究所5:=(EMA((研究所3) - ((研究所4) * (研究所3)),5)) * (研究所1);黄金轨道:(IF((研究所0) > (研究所5),研究所0,研究所5)) * (研究所1),NODRAW ,COLORRED ;{红线}上轨:IF(((研究所5) < (研究所0)) AND ((研究所5) < (C * (0.15))),(EMA(C,300)) - (3 * (STD(C,300))),研究所5),NODRAW ,COLORYELLOW;{黄线}IF((研究所5) > (研究所0),上轨,DRAWNULL),COLORCYAN ,NODRAW ;{中轴}
研究所10:=(((SMA(MAX(C - (REF(C,1)),0),24,1)) / (SMA(ABS(C - (REF(C,1))),24,1))) * (100)) * (研究所1);研究所13:=((SMA(MAX(C - (REF(C,1)),0),14,1)) / (SMA(ABS(C - (REF(C,1))),14,1))) * (100);
研究所14:=(EMA(C,60) + EMA(C,120) + EMA(C,240) + EMA(C,480)) / 4;
研究所15:=研究所14 + (1.91) * (STD(研究所14,3));研究所16:=(EMA(研究所15,12)) * (1.23);{红色中线}
STICKLINE((((研究所10) > 65) AND ((研究所13) >= 65)) AND ((MA(C,1)) > (研究所16)),H,L,0,0),COLORRED;{红色}
STICKLINE((((研究所10) >= (64.5)) AND ((研究所13) >= 65)) AND ((MA(C,1)) > (研究所16)),C,O,3,0),COLORRED;研究所37:=((L + H) / 2);
研究所39:=(EMA((C + L + H) / 3,1));{黄}STICKLINE(((((研究所10) >= (64.5)) AND ((研究所13) >= 65)) AND ((MA(C,1)) > (研究所16))) AND ((MA(C,1)) > ((MA(H,30)) * (1 + 15 / (100)))),O,(研究所37 + L) / 2,3,0),COLORYELLOW;{白色}{更多资源，请添加微信公众号：量化交易研究所，微信：FSC2012782002}
STICKLINE(((C > ((MA(H,30)) * (1 + 18 / (100)))) AND (C > (研究所5))) AND ((研究所10) > (64.5)),研究所39,研究所37,3,0),COLORWHITE;{================超牛=================}
转强:=100*(C-REF(C,12))/REF(C,12);
超强:=((H+L+C)/3-MA((H+L+C)/3,88))/(0.015*AVEDEV((H+L+C)/3,88));
通道:=1.07*DMA(C,ABS((2*C+H+L)/4-MA(C,26))/MA(C,26));
趋势:=MA(ATAN(通道-REF(通道,1)),3);
QS1:=IF((C>O OR C<O) AND H>=REF(C,1),ATAN(MA(H,5)*1.02-REF(MA(C,5)*1.02,1)),0);
QS2:=IF((C>O OR C<O) AND H<REF(C,1),-ATAN(REF(MA(C,5)*1.02,1)-MA(H,5)*1.02),0);
分界:=MA(REF((QS1+QS2),1),26);
强势:=趋势>分界 AND 趋势>REF(趋势,1);
超级牛股:=强势 AND 超强>200 AND 转强>20 AND C>REF(C,1);
{================走强线 ================};
DRAWTEXT(超级牛股,L*0.95,' 龙'),COLORRED;
