典型的支撑压力红绿多空变色主图网友需要的源码分享

来函数检测结果如下：
该公式没有未来函数

EMA13:=EMA(C,13),COLORWHITE; 

EMA21:=EMA(C,21),COLORYELLOW; 

EMA34:=EMA(C,34),COLORFF00FF; 

EMA60:=MA(C,60),COLORFFCC66; 

VAR2:=(2*CLOSE+HIGH+LOW)/4; 

VAR3:=IF(YEAR>=2099 AND MONTH>2,0,1); 

VAR4:=LLV(LOW,5); VAR5:=HHV(HIGH,4); 

散户:=EMA((VAR2-VAR4)/(VAR5-VAR4)*100,4)*VAR3; 

庄家:=EMA(0.667*REF(散户,1)+0.333*散户,2)*VAR3; 

DRAWTEXT(CROSS(散户,庄家) AND 散户<30,L-0.05,'←低吸'),COLORLIRED; 

DRAWTEXT(CROSS(庄家,散户) AND 散户>70,H+0.05,'←高抛'),COLORGREEN; 

DRAWICON(CROSS(散户,庄家) AND 散户<30,L-0.05,1); 

DRAWICON(CROSS(庄家,散户) AND 散户>70,H+0.05,2); 

VAR9:=CLOSE-REF(CLOSE,5); 

VARA:=EMA(EMA(VAR9,5),5)/EMA(EMA(ABS(VAR9),5),5); 

VARC:=EMA(EMA(VAR9,20),20)/EMA(EMA(ABS(VAR9),20),20); 

卖出:=IF(VARA>0 AND CROSS(VARC,VARA),90,100); 

DRAWICON(卖出<0,H+0.05,2); 买线:=EMA(CLOSE,2); 

卖线:=EMA(SLOPE(CLOSE,21)*20+CLOSE,42); 

B1:IF(CROSS(买线,卖线),L-0.02,DRAWNULL),CROSSDOT,LINETHICK3,COLORMAGENTA; 

S1:IF(CROSS(80,RSI)*30,H+0.02,DRAWNULL),CROSSDOT,LINETHICK3,COLORYELLOW; 

VC:=((CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100+(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100+(CLOSE-MA (CLOSE,32))/MA(CLOSE,32)*100)/3;

S2:=IF(VC>20 AND FILTER(VC< REF(VC,1),5),H+0.02,DRAWNULL),CIRCLEDOT,LINETHICK3,COLORGREEN; 

A0:=(L+H+C*2)/4;{分.析家公式 网}

A1:EMA(A0,14)COLORBLUE,LINETHICK2;

A2:=EMA(A0,25)COLORLIBLUE,LINETHICK2;

A1X:=(A1-REF(A1,1))/REF(A1,1)*100,NODRAW;

A2X:=(A2-REF(A2,1))/REF(A2,1)*100,NODRAW;

看多:IF(A1X>=0 AND BARSLAST(CROSS(A1X,0))>0,REF((C+O)/2,BARSLAST(CROSS(A1X,0))),DRAWNULL),COLORMAGENTA{,LINETHICK2};

逃顶:IF(A1X<0 AND BARSLAST(CROSS(0,A1X))>0,REF((C+O)/2,BARSLAST(CROSS(0,A1X))),DRAWNULL),COLORCYAN,{LINETHICK2};

买入持股:IF(A1X>=0,A1,DRAWNULL)COLORRED,LINETHICK3;

卖出空仓:IF(A1X<0 AND A2X<0,A1,DRAWNULL)COLORGREEN,LINETHICK3;

STICKLINE(CROSS(A1X,0),H,L,0,0 ),COLOR9933FF;

STICKLINE(CROSS(A1X,0),C,O,3,0 ),COLOR0000CC; 

STICKLINE(CROSS(A1X,0),C,O,1,0 ),COLOR0033FF; 

STICKLINE(CROSS(0,A1X),L,H,0,0 ),COLOR66CC33;

 

原理解析：
EMA13赋值:C的13日指数移动平均,画白色
 
EMA21赋值:C的21日指数移动平均,画黄色
 
EMA34赋值:C的34日指数移动平均,COLORFF00FF
 
EMA60赋值:C的60日简单移动平均,COLORFFCC66
 
VAR2赋值:(2*收盘价+最高价+最低价)/4
如果YEAR>=2099 AND MONTH>2返回0否则返回1
 
VAR4赋值:5日内最低价最低值
VAR5赋值:4日内最高价最高值
 
散户赋值:EMA((VAR2-VAR4)/(VAR5-VAR4)*100,4)*VAR3
 
庄家赋值:E0.667*1日前的散户+0.333*散户的2日简单移动平均*VAR3
 
DRAWTEXT(散户上穿庄家 AND 散户<30,L-0.05,'←低吸'),COLORLIRED
 
DRAWTEXT(庄家上穿散户 AND 散户>70,H+0.05,'←高抛'),画绿色
 
DRAWICON(散户上穿庄家 AND 散户<30,L-0.05,1)
 
DRAWICON(庄家上穿散户 AND 散户>70,H+0.05,2)
 
VAR9赋值:收盘价-5日前的收盘价
 
VARA赋值:VAR9的5日指数移动平均,5)/EMA(EMA(VAR9的绝对值,5),5)
 
VARC赋值:VAR9的20日指数移动平均,20)/EMA(EMA(VAR9的绝对值,20),20)
 
卖出赋值:IF(VARA>0 AND VARC上穿VARA,90,100)
当满足条件卖出<0时,在H+0.05和2之间画图标
买线赋值:收盘价的2日指数移动平均
 
卖线赋值:EMA(SLOPE(收盘价,21)*20+收盘价,42)
 
输出B1:IF(买线上穿卖线,L-0.02,DRAWNULL),CROSSDOT, 线宽为3,画洋红色
 
输出S1:IF(80上穿RSI*30,H+0.02,DRAWNULL),CROSSDOT, 线宽为3,画黄色
 
VC赋值:((收盘价-收盘价的6日简单移动平均)/收盘价的6日简单移动平均*100+(收盘价-收盘价的24日简单移动平均)/收盘价的24日简单移动平均*100+(收盘价-MA (收盘价,32))/收盘价的32日简单移动平均*100)/3
S2赋值:IF(VC>20 AND FILTER(VC< 1日前的VC,5),H+0.02,DRAWNULL),CIRCLEDOT, 线宽为3,画绿色
 
A0赋值:(L+H+C*2)/4
输出{分.析家公式 网}
A1:A0的14日指数移动平均 画蓝色, 线宽为2
A2赋值:A0的25日指数移动平均COLORLIBLUE, 线宽为2
A1X赋值:(A1-1日前的A1)/1日前的A1*100,NODRAW
A2X:=(A2-1日前的A2)/1日前的A2*100,NODRAW
输出看多:IF(A1X>=0 AND 上次A1X上穿0距今天数>0,REF((C+O)/2,上次A1X上穿0距今天数),DRAWNULL),画洋红色{, 线宽为2}
输出逃顶:IF(A1X<0 AND 上次0上穿A1X距今天数>0,REF((C+O)/2,上次0上穿A1X距今天数),DRAWNULL),画青色,{ 线宽为2}
如果A1X>=0返回A1否则返回DRAWNULL
如果A1X<0 AND A2X<0返回A1否则返回DRAWNULL
STICKLINE(A1X上穿0,H,L,0,0 ),COLOR9933FF
STICKLINE(A1X上穿0,C,O,3,0 ),COLOR0000CC
 
STICKLINE(A1X上穿0,C,O,1,0 ),COLOR0033FF
 
STICKLINE(0上穿A1X,L,H,0,0 ),COLOR66CC33