神獒能量分析量能趋势变化(大智慧)

源码正文：

input:N(5,1,111),M(21,1,1111),N1(60,1,111){XG51};
DRAWGBK((CLOSE > 0),stRIP(RGB(4,1,28),RGB(4,1,35),0)){XG51};
换:IF((CLOSE > 800),AMOUNT,((vol / CAPITAL) * 100)),VOLSTICK{XG51};
a1:=(((ma(换,5)) + (ema(换,15))) + (MA(换,25))) / 3{XG51};
a2:=a1 * 1.382;a3:=a1 * 0.618{XG51};
a4:=a1 * 1.618{XG51};
a5:=a1 * 0.382{XG51};
防守量:((MA(换,6)) + (MA(换,12))) / 2,linethick0;攻击量:防守量 * 1.2,linethick0{XG51};
a6:=EMA(CLOSE,6){XG51};
a7:=MA(CLOSE,21){XG51};
短期量能:MA(换,N),linethick1,Color35AD18{XG51};
PARTLINE(短期量能,短期量能 > (REF(短期量能,3)),RGB(255,0,0)),linethick1,colorRed{XG51};
中期量能:MA(换,M),linethick2,Color35AD18{XG51};
a8:=((换 <= (LLV(换,20))) AND (换 < a3)) AND (((a6 >= a7) OR ((a7 > (REF(a7,2))) AND (CLOSE > a7))) OR (a6 >= (REF(a6,1)))){XG51};
PARTLINE(中期量能,中期量能 > (REF(中期量能,3)),RGB(255,0,0)),linethick2,colorRed;
STICKLINE(a8,换,0,8,0),Color8C0C80{XG51};
STICKLINE((换 <= a5),换,0,8,0),ColorFF0000{XG51};
a9:=CLOSE / (REF(CLOSE,1)){XG51};
STICKLINE(((换 <= 1.5) AND (a9 > 1.03)),换,0,8,0),colorYellow{XG51};
STICKLINE(((换 < 0.6) AND (a9 >= 1.02)),换,0,8,0),colorYellow{XG51};
a10:=100 * WINNER(CLOSE){XG51};
DRAWTEXT((((换 <= 1.5) AND (a9 > 1.03)) OR ((a10 > 85) AND (换 <= 3))),-0.1,'控'),ColorC05693{XG51};
a11:=换 / (((HIGH - LOW) * 2) - Abs((CLOSE - OPEN))){XG51};
a12:=IF((CLOSE > OPEN),(a11 * (HIGH - LOW)),(IF((CLOSE < OPEN),(a11 * ((HIGH - OPEN) + (CLOSE - LOW))),(换 / 2)))){XG51};
a13:=IF((CLOSE > OPEN),(0 - (a11 * ((HIGH - CLOSE) + (OPEN - LOW)))),(IF((CLOSE < OPEN),(0 - (a11 * (HIGH - LOW))),(0 - (换 / 2))))){XG51};
a14:=a12 + a13{XG51};
STICKLINE((a14 < -0.8),0,a14,4,0),linethick3,Color35AD18{XG51};
a15:=((SMA((MAX((CLOSE - (REF(CLOSE,1))),0)),6,1)) / (SMA(ABS((CLOSE - (REF(CLOSE,1)))),6,1))) * 100{XG51};
DRAWTEXT(((DATE < 13091008) AND (crOSS(88,a15))),0,'■卖出'),ColorF2A3A4{XG51};
a16:=换 = (HHV(换,10)){XG51};
IF(a16,换,(REF(换,BArslAST(a16)))),DOTLINE,colorYellow{XG51};
DRAWTEXT(((((OPEN / (REF(CLOSE,1))) > 1.03) AND (CLOSE < OPEN)) AND a16),(换 * 1.13),'▼'),ALIGN1,colorGreen{XG51};
DRAWTEXT(((((CROSS(换,短期量能)) AND (CROSS(换,中期量能))) AND ((CLOSE >= a6) OR (CROSS(CLOSE,a6)))) AND (CLOSE > OPEN)),(换 * 1.13),'▲'),ALIGN1,colorRed{XG51};
DRAWTEXTREL(10,900,'㊣十二星座*神獒赢富㊣'),linethick1,COLOR00EEff{X-G_5_1-C-N-{};

源码正文：

内容丰富：有个股所属板块、大盘涨跌家数、黄金分割线、市场成本线、彩色k线（黄色涨停，兰色跌停）、短波顶低信号提示、股价上穿成本线有笑脸、支撑和压力参考值、买入卖出天数等。

input:K(1,1,3);
T:=BArslAst(DISPSTATUS=1)+1{XG51};
A:=DISPSTATUS=2;HH:=HHV(H, T);LL:=LLV(L, T);HL:=HH-LL;wH:=HHVBARS(H, T);wL:=LLVBARS(L, T){XG51};
KK:=wH-wL;mHL:=HH-HL*0.5{XG51};
if K=1 then begin
HL191:=(HH-LL)*0.191;HL382:=(HH-LL)*0.382;HL618:=(HH-LL)*0.618;HL809:=(HH-LL)*0.809{XG51};
if KK<0 then begin
a1:=HH-HL191;a2:=HH-HL382;a3:=HH-HL618;a4:=HH-HL809{XG51};
end else begin
a1:=LL+HL191;a2:=LL+HL382;a3:=LL+HL618;a4:=LL+HL809{XG51};
end end
if k=1 then begin
HL125:=(HH-LL)*0.125;HL250:=(HH-LL)*0.25;HL375:=(HH-LL)*0.375;HL625:=(HH-LL)*0.625;HL750:=(HH-LL)*0.75;HL875:=(HH-LL)*0.875{XG51};
if kk<0 then begin
b1:=HH-HL125;b2:=HH-HL250;b3:=HH-HL375;b4:=HH-HL625;b5:=HH-HL750;b6:=HH-HL875{XG51};
end else begin
b1:=LL+HL125;b2:=LL+HL250;b3:=LL+HL375;b4:=LL+HL625;b5:=LL+HL750;b6:=LL+HL875{XG51};
end end
DRAWTEXT(A and K<>3,HH, '最高价：'+HH),ALIGN2,ColorFF00FF{XG51};
DRAWTEXT(A and K<>3,LL, '最低价：'+ll),ALIGN2,VALIGN2,Color00FF00{XG51};
DRAWTEXT(A and K<>3,mHL,'50%：'+mHL),ALIGN2,ColorFF8000{XG51};
DRAWTEXT(A and K=1, a1, '0.191：'+NUMTOSTRN(a1,2)),ALIGN2,Color4080FF{XG51};
DRAWTEXT(A and K=1, a2, '0.382：'+NUMTOSTRN(a2,2)),ALIGN2,Color4080FF{XG51};
DRAWTEXT(A and K=1, a3, '0.618：'+NUMTOSTRN(a3,2)),ALIGN2,Color4080FF{XG51};
DRAWTEXT(A and K=1, a4, '0.809：'+NUMTOSTRN(a4,2)),ALIGN2,Color4080FF{XG51};
DRAWTEXT(A and K=1, b1, '1/8：'+NUMTOSTRN(b1,2)),ALIGN2,ColorC0C0C0{XG51};
DRAWTEXT(A and K=1, b2, '1/4：'+NUMTOSTRN(b2,2)),ALIGN2,ColorC0C0C0{XG51};
DRAWTEXT(A and K=1, b5, '3/4：'+NUMTOSTRN(b5,2)),ALIGN2,ColorC0C0C0{XG51};
DRAWTEXT(A and K=1, b6, '7/8：'+NUMTOSTRN(b6,2)),ALIGN2,ColorC0C0C0{XG51};
DRAWTEXT(A and K<>3,HH, '￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,colorred,linethick7{XG51};
DRAWTEXT(A and K<>3,LL, '￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,colorred,linethick7{XG51};
DRAWTEXT(A and K<>3,mHL,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,ColorFF8000,linethick7{XG51};
DRAWTEXT(A and K=1, a1, '﹊﹊ ﹊ ﹊ ﹊ ﹊﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊﹊'),ALIGN2,color208FFF,linethick0{XG51};
DRAWTEXT(A and K=1, a2, '﹊ ﹊﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊﹊'),ALIGN2,color208FFF,linethick0{XG51};
DRAWTEXT(A and K=1, a3, '﹊ ﹊﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊﹊﹊'),ALIGN2,color208FFF,linethick0{XG51};
DRAWTEXT(A and K=1, a4, '﹊ ﹊﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊﹊﹊'),ALIGN2,color208FFF,linethick0{XG51};
DRAWTEXT(A and K=1, b1, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,ColorC0C0C0{XG51};
DRAWTEXT(A and K=1, b2, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,ColorC0C0C0{XG51};
DRAWTEXT(A and K=1, b5, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,ColorC0C0C0{XG51};
DRAWTEXT(A and K=1, b6, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,ColorC0C0C0{XG51};
市场成本:dma(AMOUNT/V/100,V/CAPITAL),Color0080FF,LINETHICK1{XG51};
DRAWICON(crOSS(C,市场成本),L,1),ALIGN1{XG51};
PT:= REF(HIGH,1)-REF(LOW,1){XG51};
重心:=(HIGH + LOW + CLOSE)/3{XG51};
压力Ⅰ:=2*重心-LOW;压力Ⅱ:= 重心 + PT{XG51};
支撑Ⅰ:=2*重心-HIGH;支撑Ⅱ:= 重心 - PT{XG51};
DRAWTEXTAbs(50,68,' 重心:'+重心),Color208FFF{XG51};
DRAWTEXTABS(20,87,' 支 撑'),Color00FF00{XG51};
DRAWTEXTABS(20,104,' '+支撑Ⅰ),Color00FF00{XG51};
DRAWTEXTABS(20,122,' '+支撑Ⅱ),Color00FF00{XG51};
DRAWTEXTABS(25,87,' 压 力'),ColorFF00FF{XG51};
DRAWTEXTABS(25,104,' '+压力Ⅰ),ColorFF00FF{XG51};
DRAWTEXTABS(25,122,' '+压力Ⅱ),ColorFF00FF{XG51};
DRAWTEXTABS(25,65,'│'),Color00FFFF{XG51};
DRAWTEXTABS(25,77,'│'),Color00FFFF{XG51};
DRAWTEXTABS(25,89,'│'),Color00FFFF{XG51};
DRAWTEXTABS(25,101,'│'),Color00FFFF{XG51};
DRAWTEXTABS(25,113,'│'),Color00FFFF{XG51};
DRAWTEXTABS(25,125,'│'),Color00FFFF{XG51};
DRAWTEXTABS(170,65,'│'),Color00FFFF{XG51};
DRAWTEXTABS(170,77,'│'),Color00FFFF{XG51};
DRAWTEXTABS(170,89,'│'),Color00FFFF{XG51};
DRAWTEXTABS(170,101,'│'),Color00FFFF{XG51};
DRAWTEXTABS(170,113,'│'),Color00FFFF{XG51};
DRAWTEXTABS(170,125,'│'),Color00FFFF{XG51};
DRAWTEXTABS(96,85,'│'),Color00FFFF{XG51};
DRAWTEXTABS(96,89,'│'),Color00FFFF{XG51};
DRAWTEXTABS(96,101,'│'),Color00FFFF{XG51};
DRAWTEXTABS(96,113,'│'),Color00FFFF{XG51};
DRAWTEXTABS(96,125,'│'),Color00FFFF{XG51};
DRAWTEXTABS(30,60,'──────────'),Color00FFFF{XG51};
DRAWTEXTABS(30,80,'──────────'),Color00FFFF{XG51};
DRAWTEXTABS(30,97,'──────────'),Color00FFFF{XG51};
DRAWTEXTABS(30,114,'──────────'),Color00FFFF{XG51};
DRAWTEXTABS(30,131,'──────────'),Color00FFFF{XG51};
G:=zig(3,5)>REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)<=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)<=REF(ZIG(3,5),3){XG51};
X:=ZIG(3,5)<REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)>=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)>=REF(ZIG(3,5),3){XG51};
ED:=barslast(G){XG51};
EF:=barslast(X){XG51};
DRAWTEXTREL(25,410,'买入:'+NUMTOSTR(ED) +'天'+' 卖出:'+NUMTOSTR(EF) +'天' ),colorFfff00{XG51};
STICKLINE(close>=open,open,close,8,1),colorred{XG51};
STICKLINE(open>close,close,open,8,0 ),ColorFFFF00{XG51};
STICKLINE(close>=open,close,HIGH,0.5 ,0 ),colorred{XG51};
STICKLINE(close>=open,open,low,0.5 ,0),colorred{XG51};
STICKLINE(open>close,close,low,0.5 ,0 ),ColorFFFF00{XG51};
STICKLINE(open>close,open,HIGH,0.5 ,0 ),ColorFFFF00{XG51};
C2:=REF(C,1){XG51};
涨停:=IF((C-C2)*100/C2>=(10-0.01*100/C2),1,0){XG51};
STICKLINE(涨停,OPEN,CLOSE,8,0),Color00FFFF{XG51};
跌停:=IF((C2-C)*100/C2>=(10-0.01*100/C2),1,0){XG51};
STICKLINE(跌停,OPEN,CLOSE,8,0),ColorFF8000{XG51};
{XG51};
F:=100*(C-REF(C,1))/REF(C,1){XG51};
今小昨:=IF(C<REF(O,1) AND f<0,1,0){XG51};
p1:=今小昨{XG51};
今小前:=IF(C<REF(O,2) AND f<0,1,0){XG51};
p2:=今小前{XG51};
stickline(P1=0 AND REF(P1,1)=1 AND P2=0 AND REF(P2,1)=1,open,CLOSE,6,0),COLORmaGENTA{XG51};
stickline(P1=1 AND REF(P1,1)=0 AND P2=1 AND REF(P2,1)=0,open,CLOSE,3,0),COLORYELLOW{XG51};
DRAWTEXT(G,L*0.997,'△'),ALIGN1,VALIGN0,Color00FF00{XG51};
DRAWTEXT(G,L,'￣'),ALIGN1,VALIGN0,Color00ff00{XG51};
DRAWTEXT(X,H*1.002,'▽'),ALIGN1,VALIGN2,ColorFF00FF{XG51};
DRAWTEXT(X,H,'￣'),ALIGN1,VALIGN0,ColorFF00FF{XG51};
DRAWTEXTREL(130,25,'所属板块:'+BKNAME),COLORFFFFFF{XG51};
今市上涨家数:=INDEXADV{XG51};
平盘家数:=DYNAINFO(68){XG51};
今市下跌家数:=INDEXDEC{XG51};
DRAWTEXTABS(30,10,'今市上涨:'+今市上涨家数+' 家'),ColorFFFF00,linethick2{XG51};
DRAWTEXTABS(65,25,'平盘:'+平盘家数+' 家'),ColorFFFF00,linethick2{XG51};
DRAWTEXTABS(65,40,'下跌:'+NUMTOSTRN(今市下跌家数,0)+' 家'),ColorFFFF00,linethick2{X.G.5_1.C.N.{};