{傾家蕩產買（副圖）}
{參數：n: 1,
Var1:=MA(HHV(HIGH,485),17);
Var2:=MA(HHV(HIGH,222),17);
Var3:=MA(HHV(HIGH,96),17);
Var4:=MA(LLV(LOW,485),17);
Var5:=MA(LLV(LOW,222),17);
Var6:=MA(LLV(LOW,96),17);
Var7:=MA((Var4*0.96+Var5*0.96+Var6*0.96+Var1*0.558+Var2*0.558+Var3*0.558)/6,17);
Var8:=MA((Var4*1.25+Var5*1.23+Var6*1.2+Var1*0.55+Var2*0.55+Var3*0.65)/6,17);
Var9:=MA((Var4*1.3+Var5*1.3+Var6*1.3+Var1*0.68+Var2*0.68+Var3*0.68)/6,17);
VarA:=MA((Var7*3+Var8*2+Var9)/6*1.738,17);
VarB:=IF(DATE<=1050531,VarA,VarA*DAY);
VarC:=LOW;
VarD:=REF(LOW,1);
VarE:=SMA(ABS(VarC-VarD),3,1)/SMA(MAX(VarC-VarD,0),N,1)*100;
VarF:=MA(IF(CLOSE*1.35<=VarB,VarE*10,VarE/10),N);
Var10:=LLV(LOW,30);
Var11:=HHV(VarF,30);
Var12:=1990831;
絕佳買點:=IF(DATE<=Var12,MA(IF(LOW<=Var10,(VarF+Var11*2)/2,0),N),100000000);
I:=IF(CLOSE<REF(CLOSE,1),VOL/CAPITAL*10053,0);
驟雨初晴:=ABS(EMA(I,13.3)-18)/WINNER(CLOSE)*IF((CLOSE-MA(CLOSE,6))/MA(CLOSE,6)<-0.04,1,0);
短線買:if(絕佳買點>500 and絕佳買點>2500,1,0),coloryellow,LINETHICK1;
中線買:if(絕佳買點>10000 and絕佳買點>20000,2,0),colorff00ff,LINETHICK2;
傾家蕩產買:if(絕佳買點>30000 and絕佳買點>30000,3,0),colorred,LINETHICK3
{散戶看盤(副圖)}
{INPUT:M(60,3,100),N(30,3,100);}
散戶線: 100*(HHV(HIGH,M)-CLOSE)/(HHV(HIGH,M)-LLV(LOW,M));
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:=SMA(RSV,5,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
主力線:EMA(J,6),COLORYELLOW;
VAR2:=REF(LOW,1);
VAR3:=SMA(ABS(LOW-VAR2),3,1)/SMA(MAX(LOW-VAR2,0),3,1)*100;
VAR4:=EMA(IF(CLOSE*1.3,VAR3*10,VAR3/10),3);
VAR5:=LLV(LOW,30);
VAR6:=HHV(VAR4,30);
VAR7:=IF(MA(CLOSE,58),1,0);
VAR8:=EMA(IF(LOW<=VAR5,(VAR4+VAR6*2)/2,0),3)/618*VAR7;
VAR9:=IF(VAR8>100,100,VAR8);
吸籌:STICKLINE(VAR9>-120,0,VAR9,6,1),COLORMAGENTA;
AA3:=(HHV(HIGH,21)-CLOSE)/(HHV(HIGH,21)-LLV(LOW,21))*100-10;
AA4:=(CLOSE-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21))*100;
AA5:=SMA(AA4,13,8);
走勢:CEILING(SMA(AA5,13,8)),COLORRED,LINETHICK2;
AA6:=SMA(AA3,21,8);
買觀注: STICKLINE(走勢-AA6<-65,0,7,15,1);
DRAWICON(FILTER(J>REF(J,1)AND走勢>=REF(走勢,1)AND 走勢<25,5),走勢,1);
賣觀注:STICKLINE(走勢-AA6>85,98,90,15,1),COLORFFFF00;
DRAWICON(FILTER(J<REF(J,1)AND走勢<=REF(走勢,1)AND J>85 ,5),J,2);
{盤中參考}
var1:=ma(100*(close-llv(close,34))/(hhv(high,34)-llv(low,34)),5)-20;
var2:=2*abs(var1);
var3:=100-3*sma((close-llv(low,75))/(hhv(high,75)-llv(low,75))*100,20,1)+2*sma(sma((close-llv(low,75))/(hhv(high,75)-llv(low,75))*100,20,1),15,1);
var4:=100-3*sma((open-llv(low,75))/(hhv(high,75)-llv(low,75))*100,20,1)+2*sma(sma((open-llv(low,75))/(hhv(high,75)-llv(low,75))*100,20,1),15,1);
var5:=(high+low+close)/3;
var6:=(var5-ma(var5,14))/(0.015*avedev(var5,14));
var7:=(var5-ma(var5,70))/(0.015*avedev(var5,70));
var8:=if(var6>=150 and var6<200 andvar7>=150 and var7<200,10,0);
var9:=if(var6<=-150 and var6>-200 andvar7<=-150 andvar7>-200,-10,var8);
vara:=(close-ma(close,13))/ma(close,13)*100;
varb:=100-abs(vara);
varc:=3*sma((indexc-llv(indexl,75))/(hhv(indexh,75)-llv(indexl,75))*100,20,1)-2*sma(sma((indexc-llv(indexl,75))/(hhv(indexh,75)-llv(indexl,75))*100,20,1),15,1);
vard:=3*sma((indexo-llv(indexl,75))/(hhv(indexh,75)-llv(indexl,75))*100,20,1)-2*sma(sma((indexo-llv(indexl,75))/(hhv(indexh,75)-llv(indexl,75))*100,20,1),15,1);
vare:=ref(low,1)*0.9;
varf:=low*0.9;
var10:=(varf*vol+vare*(capital-vol))/capital;
var11:=ema(var10,30);
var12:=var11-close;
var13:=ref(close,1);
var14:=sma(max(close-var13,0),7,1)/sma(abs(close-var13),7,1)*100;
var15:=sma(max(close-var13,0),13,1)/sma(abs(close-var13),13,1)*100;
var16:=barscount(close);
var17:=sma(max(close-ref(close,1),0),6,1)/sma(abs(close-ref(close,1)),6,1)*100;
var18:=((-100)*(hhv(high,60)-close)/(hhv(high,60)-llv(low,60))+50)*2;
var19:=(close-llv(low,15))/(hhv(high,15)-llv(low,15))*100;
var1a:=(sma(var19,4,1)-50)*2;
var1b:=sma(var1a,3,1);
var1c:=(indexc-llv(indexl,14))/(hhv(indexh,14)-llv(indexl,14))*100;
var1d:=sma(var1c,4,1);
var1e:=sma(var1d,3,1);
var1f:=(hhv(high,30)-close)/close*100;
var20:=if(var17<=25 and var18<-95 andvar1f>20 and var1b<-30 andvar1e<30 and var12>=-0.25 andvar14<22 and var15<28 andvar16>50,80,0);
情報: var3;
天線: if(varb<90,varb,100);
紅軍: if(var1>0,var1,0),colorred, linestick;
綠軍: if(var1<0,var2,0),colorgreen,linestick;
導彈: var20;
預警系統: if(var7>=200 andvar6>=150,15,if(var7<=-200 andvar6<=-150,-15,var9))+60;
stickline(var3>=ref(var4,1),var3,var4,8,0);
stickline(var3<ref(var4,1),var3,var4,8,0);
var21:=close>ma(close,20) andma(close,20)>=ref(ma(close,20),1);
var22:=close<ma(close,20) andma(close,20)<ref(ma(close,20),1);
var23:=紅軍>50 and 預警系統>60 and天線=100;
var24:=紅軍>48 and 預警系統>60 and天線<100;
var25:=綠軍>38 and 預警系統<55;
var26:=導彈>50 and 天線<90;
var27:=var3<ref(var4,1) andvol>ref(vol,1) andclose>ref(close,1);
var28:=var3>=ref(var4,1) andclose<ref(close,1) and 預警系統=60 and 導彈=0 and綠軍>=ref(綠軍,1) andvarc<ref(vard,1);
drawtext(var21 and count(var21,30)=1,100,'上升通道，持股待長或高拋低吸！');
drawtext(var22 and count(var22,30)=1,90,'下降通道，小心無量陰跌！ ');
drawtext(var23 and count(var23,30)=1,70,'上漲過急，需要調整，短線先拋出！ ');
drawtext(var24 and count(var24,30)=1,80,'莊家出貨，大跌在即，中線拋出！ ');
drawtext(var25 and count(var25,30)=1,50,'不必殺跌，應有小反彈 ,跌停除外!');
drawtext(var26 and count(var26,30)=1,30,'堅決搶反彈，但巨量封跌停除外 ');
drawtext(var27 and count(var27,30)=1,40,'有大資金進場跡象，關注！');
drawtext(var28 and count(var28,30)=1,20,'見頂回落');
