|
|

楼主 |
发表于 2023-1-25 12:52
|
显示全部楼层
主图名称 “龙骨架A”A表示是主图 源码如下:
DRAWGBK(C>0,RGB(0,10,10),RGB(88,0,0),0,'0',0);
DRAWGBK(C>0,RGB(40,120,20),RGB(00,00,00),0,'0',1);
DRAWGBK(C>0,RGB(80,100,120),RGB(00,00,00),0,'0',1);
DRAWKLINE(H,O,L,C);
DRAWTEXT_FIX(FINANCE(51)<>0,0.85,0.02,0,'含可转债')COLORYELLOW;
{警示牌设置}
警示牌:=1;
高:=REFDATE(HHV(H,180),DATE)*1.05;
低:=REFDATE(LLV(L,180),DATE)*0.95;
A11:=MA(C,18);
A12:=MA(C,50);
A13:=MA(C,89);
A14:=IF((MA(C,180)<=高 AND MA(C,180)>=低) OR C>=MA(C,180),MA(C,180),DRAWNULL);
{—————股性判断—————}
牛股:=ISLASTBAR AND A11>A12 AND A12>A13 AND A13>IF(A14=DRAWNULL,0,A14) AND C>A11 OR ISLASTBAR AND A11>A12 AND C>=A11;
猴股:=ISLASTBAR AND A11>A12 AND C<A11 ;
熊股:=ISLASTBAR AND IF(A14=DRAWNULL,A12<A13 AND C<A13,A13<A14 AND C<A14) OR ISLASTBAR AND A11<A12;
DRAWGBK(警示牌=1 AND 牛股,0,0,0.05,'牛股',0);
DRAWGBK(警示牌=1 AND 猴股,0,0,0.05,'猴股',0);
DRAWGBK(警示牌=1 AND 熊股,0,0,0.05,'熊股',0);
DRAWKLINE(H,O,L,C);
{寻龙诀色带}
强弱分界:=EMA(COST(85),10){,PRECISION2,LINEDOT},COLORRED,DOTLINE;
分界:=EMA(COST(99),10){,PRECISION2,LINEDOT},COLORGREEN,DOTLINE;
DRAWBAND(强弱分界,RGB(80,80,20), 分界,RGB(60,60,18));
DRAWKLINE(H,O,L,C);
{龙骨架——MACD日周月共振主图}
月DIF:=(EMA(CLOSE,12*4*4)-EMA(CLOSE,26*4*4));
月DEA:=EMA(月DIF,9*4*4);
月MACD:=2*(月DIF-月DEA),COLORSTICK,COLOR111111;
月柱:=月MACD,COLOR99EEEE,LINETHICK3;
周DIF:=(EMA(CLOSE,12*4)-EMA(CLOSE,26*4));
周DEA:=EMA(周DIF,9*4),COLORWHITE,DOTLINE;
周MACD:=2*(周DIF-周DEA),COLORSTICK,COLOR111111;
周柱:=周MACD,COLORFFCC00,LINETHICK2;
日DIF:=(EMA(CLOSE,12)-EMA(CLOSE,26));
日DEA:=EMA(日DIF,9);
日MACD:=2*(日DIF-日DEA),COLORWHITE;
日柱:=日MACD,COLORRED;
{MACD日周月共振线}
{顶部}
VAR10:=日柱;
VAR11:=HHV(HHV(LOW,14),40);
上一:EMA(EMA(VAR11,14)+2*STD(VAR11,14),8),LINETHICK2,COLORRED;
VAR20:=周柱;
VAR21:=HHV(HHV(LOW,14),120);
上二:EMA(EMA(VAR21,14)+2*STD(VAR21,14),8),,LINETHICK2,COLORMAGENTA;
VAR30:=月柱;
VAR31:=HHV(HHV(LOW,14),240);
上三:EMA(EMA(VAR31,14)+2*STD(VAR31,14),8),LINETHICK3,COLORYELLOW;
{底部}
VAR15:=LLV(LLV(HIGH,14),40);
VAR16:=LLV(MA((L+H+C)/3,8),40),COLORFF00FF;
下一:=EMA(EMA(VAR15,14)+2*STD(VAR15,14),8),LINETHICK1,COLORCYAN;
VAR25:=LLV(LLV(HIGH,14),120);
VAR26:=LLV(MA((L+H+C)/3,8),120),COLORFF00FF;
下二:=EMA(EMA(VAR25,14)+2*STD(VAR25,14),8),LINETHICK2,COLORGREEN;
VAR35:=LLV(LLV(HIGH,14),240);
VAR36:=LLV(MA((L+H+C)/3,8),240),COLORFF00FF;
下三:=EMA(EMA(VAR35,14)+2*STD(VAR35,14),8),LINETHICK3,COLORBLUE;
{涨停K线}
涨停:=IF(REF(C,1)*1.1-C<0.01 ,1,0);
STICKLINE(涨停,OPEN,CLOSE,3,0),COLORRED;
STICKLINE(涨停,OPEN,CLOSE,2,0),COLORYELLOW;
STICKLINE(涨停,H,L,0,0),COLORYELLOW;
{无抛压缩量板}
无量停板7:MA(C,5)>REF(MA(C,5),1) AND C/REF(C,1)>1.099 AND V<MA(V,5)COLOR7210CD;
STICKLINE(无量停板7,C,O,3,0) ,COLOR7210CD;
{板块市值业绩}
Z111:=STRCAT(HYBLOCK,'----');
Z211:=STRCAT(Z111,FGBLOCK);
Z311:=STRCAT(Z211,DYBLOCK);
Z411:=STRCAT(Z311,'----');
DRAWTEXT_FIX(1,0.00,0.06,0,'【主题概念】:')COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR,0.07,0.06,0,STRCAT(Z411,GNBLOCK)),COLORCYAN;
DRAWTEXT_FIX(1,0.07,0.24,0,EXTERNSTR(0,14))COLORYELLOW;
总股本:=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(' 上市日期: ',CON2STR(HHV((BARSCOUNT(C)=0)*(DATE+19000000),0),0));
DRAWTEXT_FIX(ISLASTBAR,0.005,0.005,0,上市日期),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR,0.099,0.005,0,总股本),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR,0.175,0.005,0,流通盘),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR,0.260,0.005,0,市值),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR,0.01,0.12,0,STRCAT(STRSPACE(DYBLOCK),HYBLOCK)),COLORCYAN;
DRAWTEXT_FIX(FINANCE(51)<>0,0.1,0.12,0,'含可转债')COLORYELLOW;
现价线:DYNAINFO(7),DOTLINE,COLORYELLOW;
DRAWTEXT(ISLASTBAR AND 现价线,现价线,STRCAT(' ←',CON2STR(现价线,2))),COLORYELLOW;
{打板辅助}
TODAY:=DATE;
X10:=HHVBARS(HIGH,50);
T7:=(REF(C,1)+O)/2;
T8:=(REF(C,1)+O)/2*0.98;
买一:IF(CURRBARSCOUNT<=CONST(X10+1),CONST(T7),DRAWNULL),COLORWHITE;
DRAWTEXT(DATE=CONST(TODAY),T7,CON2STR(T7,2)),COLORWHITE;
买二:IF(CURRBARSCOUNT<=CONST(X10+1),CONST(T8),DRAWNULL),COLORYELLOW;
DRAWTEXT(DATE=CONST(TODAY),T8,CON2STR(T8,2)),COLORYELLOW;
{万能买卖}
VAR1:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2);
VAR02:=REF(VAR1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR03:=REF(VAR02,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR04:=REF(VAR03,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR05:=REF(VAR04,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR6:=REF(VAR05,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR7:=REF(VAR6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR8:=REF(VAR7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR09:=REF(VAR8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VARA0:=REF(VAR09,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VARB:=REF(VARA0,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VARC0:=REF(VARB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VARD:=CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2);
VARE:=REF(VARD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VARF:=REF(VARE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR010:=REF(VARF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR011:=REF(VAR010,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR12:=REF(VAR011,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR13:=REF(VAR12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR14:=REF(VAR13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR015:=REF(VAR14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR016:=REF(VAR015,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR17:=REF(VAR016,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR18:=REF(VAR17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR19:=REF(VARD OR VARE OR VARF OR VAR010 OR VAR011 OR VAR12 OR VAR13 OR
VAR14 OR VAR015 OR VAR016 OR VAR17 OR VAR18,1) AND VAR1;
VAR1A:=REF(VAR1 OR VAR02 OR VAR03 OR VAR04 OR VAR05 OR VAR6 OR VAR7 OR
VAR8 OR VAR09 OR VARA0 OR VARB OR VARC0,1) AND VARD;
STICKLINE(VAR1A,H*1.01,H,1,0),COLORGREEN;
STICKLINE(VAR19,L,L*0.99,1,0),COLORYELLOW;
{关注与断绝}
CC:=ROUND2(C,2);
A1:=FRACPART(CC*10)*10;
A2:=INTPART(FRACPART(CC)*10);
A3:=FRACPART(INTPART(CC)/10)*10;
A4:=INTPART(INTPART(CC)/10);
AA:=A1+A2+A3+A4;
TJ1:=ABS(100*C/REF(C,1)-100)>5;
DRAWTEXT(TJ1,L*0.99,IF(MOD(AA,10)=0,'关注',IF(MOD(AA,5)=0,'断绝',DRAWNULL))),COLORYELLOW;
{压力线}
TZ:=C/REF(C,1)>1.0982 AND C=H;
STICKLINE(TZ,O,C,2,0),COLORLIMAGENTA;
DT:=C/REF(C,1)<0.913 AND C=L;
STICKLINE(DT,O,C,2,0),COLORBLUE;
MA5:=MA(C,5);MA10:=MA(C,10);MA20:=MA(C,20);MA30:=MA(C,30);
G5:=(C-MA5)/MA5*100;BB5:=ATAN((MA5/REF(MA5,1)-1)*100)*180/3.1416;
EW:=SMA(EMA((MA5-REF(MA5,1))/REF(MA5,1),3)*100,3,1);GY:=EMA((EW-REF(EW,1)),3);
G3:=(C-MA30)/MA30*100;BB30:=ATAN((MA30/REF(MA30,1)-1)*100)*180/3.1416;
TTBV:=MAX(ABS(HIGH-AMOUNT/VOL/100),ABS(AMOUNT/VOL/100-LOW));
TTYH:=ABS((OPEN+CLOSE)/2-AMOUNT/VOL/100);MV:=(TTBV+TTYH)/AMOUNT*VOL*100*50;
压:MA(REF(HHV(C,30),1),2),COLORWHITE,DOTLINE,LINETHICK1;
DRAWTEXT(ISLASTBAR,压,' 压力线'),COLORWHITE; |
|
|