红地毯（主图、源码、贴图）

红地毯
VAR1:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2);
VAR2:=REF(VAR1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR3:=REF(VAR2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR4:=REF(VAR3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR5:=REF(VAR4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR6:=REF(VAR5,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);
VAR9:=REF(VAR8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VARA:=REF(VAR9,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VARB:=REF(VARA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VARC:=REF(VARB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
STICKLINE(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA
OR VARB OR VARC,CLOSE,REF(CLOSE,1),8,0),COLOR000055;
STICKLINE(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA
OR VARB OR VARC,CLOSE,REF(CLOSE,1),5,0),COLOR000077;
STICKLINE(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA
OR VARB OR VARC,CLOSE,REF(CLOSE,1),3,0),COLOR0000bb;
STICKLINE(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA
OR VARB OR VARC,CLOSE,REF(CLOSE,1),0,0),COLOR0000FF;
DLX:=(EMA(CLOSE,17)-REF(EMA(CLOSE,17),1));
DLX1:=SUM(DLX,3);
DLX2:=MA(DLX1,5);
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);
VAR10:=REF(VARF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR11:=REF(VAR10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR12:=REF(VAR11,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);
VAR15:=REF(VAR14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR16:=REF(VAR15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR17:=REF(VAR16,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);
STICKLINE(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR
VAR17 OR VAR18,CLOSE,REF(CLOSE,1),8,0),COLORff7700;
STICKLINE(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR
VAR17 OR VAR18,CLOSE,REF(CLOSE,1),5,0),COLORffbb00;
STICKLINE(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR
VAR17 OR VAR18,CLOSE,REF(CLOSE,1),3,0),COLORffdd00;
STICKLINE(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR
VAR17 OR VAR18,CLOSE,REF(CLOSE,1),0,0),COLORffFF00;
VAR19:=REF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR
VAR17 OR VAR18,1) AND VAR1;
VAR1A:=REF(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC,1)
AND VARD;
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),8,0),COLOR0055AA;
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),5,0),COLOR0077CC;
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),3,0),COLOR0099DD;
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),0,0),COLOR00BBFF; S1:=last(DLX1<DLX2 and DLX1<REF(DLX1,1));
S2:=last(DLX1>=DLX2 and DLX1>=REF(DLX1,1));
drawtext(S1>0,H*1.04,STR(S1)),color00FF00,LINETHICK1,align1,valign0;
drawtext(S2>0,L*1,STR(S2)),color0000FF,LINETHICK1,align1,valign0;
反压线:HHV(FORCAST(CLOSE,10),18),Linethick1,CoLorEE8FFF;
年:=MA(CLOSE,26);
STICKLINE((CLOSE>=年) AND (CLOSE>=OPEN),CLOSE,OPEN,4.5,0),CoLor0000AA;
STICKLINE((CLOSE>=年) AND (CLOSE>=OPEN),CLOSE,OPEN,3.5,0),CoLor0000CC;
STICKLINE((CLOSE>=年) AND (CLOSE>=OPEN),CLOSE,OPEN,3,0),CoLor0000EE;
STICKLINE((CLOSE>=年) AND (CLOSE>=OPEN),CLOSE,OPEN,1,0),CoLor0000FF;
STICKLINE((CLOSE>=年) AND (CLOSE>=OPEN),HIGH,LOW,0,0),CoLor0000FF;
STICKLINE((CLOSE>=年) AND (CLOSE<OPEN),CLOSE,OPEN,4.5,0),CoLor0000AA;
STICKLINE((CLOSE>=年) AND (CLOSE<OPEN),CLOSE,OPEN,3.5,0),CoLor0000CC;
STICKLINE((CLOSE>=年) AND (CLOSE<OPEN),CLOSE,OPEN,3,0),CoLor0000EE;
STICKLINE((CLOSE>=年) AND (CLOSE<OPEN),CLOSE,OPEN,1,0),CoLor0000FF;
STICKLINE((CLOSE>=年) AND (CLOSE<OPEN),OPEN,HIGH,0,0),CoLor0000FF;
STICKLINE((CLOSE>=年) AND (CLOSE<OPEN),CLOSE,LOW,0,0),CoLor0000FF;
STICKLINE((CLOSE<年) AND (CLOSE>OPEN),CLOSE,OPEN,4.5,0),CoLorAAAA00;
STICKLINE((CLOSE<年) AND (CLOSE>OPEN),CLOSE,OPEN,3.5,0),CoLorCCCC00;
STICKLINE((CLOSE<年) AND (CLOSE>OPEN),CLOSE,OPEN,3,0),CoLorEEEE00;
STICKLINE((CLOSE<年) AND (CLOSE>OPEN),CLOSE,OPEN,1,0),CoLorFFFF00;
STICKLINE((CLOSE<年) AND (CLOSE<=OPEN),CLOSE,OPEN,4.5,0),CoLorAAAA00;
STICKLINE((CLOSE<年) AND (CLOSE<=OPEN),CLOSE,OPEN,3.5,0),CoLorCCCC00;
STICKLINE((CLOSE<年) AND (CLOSE<=OPEN),CLOSE,OPEN,3,0),CoLorEEEE00;
STICKLINE((CLOSE<年) AND (CLOSE<=OPEN),CLOSE,OPEN,1,0),CoLorFFFF00;
STICKLINE((CLOSE<年) AND (CLOSE<=OPEN),HIGH,LOW,0,0),CoLorFFFF00;
STICKLINE((CLOSE<年) AND (CLOSE>OPEN),CLOSE,HIGH,0,0),CoLorFFFF00;
STICKLINE((CLOSE<年) AND (CLOSE>OPEN),OPEN,LOW,0,0),CoLorFFFF00;
VAR1:=((OPEN-REF(CLOSE,1))/(REF(CLOSE,1)))*(100);
VAR2:=(VAR1>3);
VAR3:=(VAR1<(-2));
跳空高开:DRAWTEXT(VAR2,(LOW)*(0.995),'高开'),CoLorFEBAF5;
跳空低开:DRAWTEXT(VAR3,(HIGH)*(1.015),'低开'),CoLor00FF00;
VARA:=100-((90)*(HHV(HIGH,21)-CLOSE))/(HHV(HIGH,21)-LLV(LOW,21));
VARB:=100-((90)*(HHV(HIGH,21)-CLOSE))/(HHV(HIGH,21)-LLV(LOW,21));
VARC:=100-MA(((100)*(HHV(HIGH,6)-CLOSE))/(HHV(HIGH,6)-LLV(LOW,6)),34);
DRAWTEXT(CROSS(VARB,MA(VARC,6)),(LOW)*0.995,'B'),CoLor208FFF;
DRAWTEXT(CROSS(HIGH,年) AND CROSS(VARB,MA(VARC,6)),(LOW)*0.995,'B'),CoLor00FFFF;
DRAWTEXT(CROSS(年,LOW) AND (CLOSE<=年),(HIGH)*1.015,'S'),CoLorFFFF00;
{------------------ ------------------};
YC:=REF(CLOSE,1);
止损价位:(YC*1.0035*97+0.1)/99.65,COLORRED,LINETHICK0;
DRAWTEXTREL(10,30,'上市日期:'+NUMTOSTRN(REF(YEAR,BARSCOUNT(C)-1),0)+'年'+NUMTOSTRN(REF(MONTH,BARSCOUNT(C)-1),0)+'月'+NUMTOSTRN(REF(DAY,BARSCOUNT(C)-1),0)+'日'),COLOR00ffff,LINETHICK2;DRAWTEXTREL(800,920,'**'),Colorffffff,LINETHICK2;
WW:=BARSLAST(DISPSTATUS=1);
DRAWTEXTREL(250,30,'◇目前可见K线:'+NUMTOSTRN(WW+1,0)+'天'),COLORYELLOW,LINETHICK2;
M1:=3;
M2:=19;
JJ:=(CLOSE+HIGH+LOW)/3;
A:=EMA(JJ,10);
B:=REF(A,1);
STICKLINE(A>B ,A ,B ,10 ,0 ),COLOR0000FF;