優化MACD

葫蝶趨勢 2009-07-20

展開全文

優化MACD指標源碼(大智慧1附圖指標)

參數設計：SHORT（1,100,26） LONG(1,100,12) M(1,100,9) P1(1,100,19)

　　　　　 P2(1,250,120) K(-100,0,-40) G(-100,0,-26)

指標源碼：

stickline(c>0,-1,1,6,0),color330066;
DIF:=((EMA(CLOSE,SHORT)-EMA(CLOSE,LONG)))*-1;
DEA:=EMA(DIF,M),COLORFF00FF;
MACD:=2*(DIF-DEA);
HH:=MA(CLOSE,10);
GG:=MA(CLOSE,12);
上:=ema((MA(HIGH,3) * 1.05),30);
下:=ema((MA(LOW,3) * 0.96),30);
決戰:STICKLINE((((CROSS(DIF,DEA) AND ((下 - REF(下,1)) > 0)) AND (MACD >= REF(MACD,1))) AND (DIF < 0)),DIF,0.4,3,0),color0000FF;
DRAWICON((((CROSS(DIF,DEA) AND ((下 - REF(下,1)) > 0)) AND (MACD >= REF(MACD,1))) AND (DIF < 0)),0.4,0);
DRAWTEXT((((CROSS(DIF,DEA) AND ((下 - REF(下,1)) > 0)) AND (MACD >= REF(MACD,1))) AND (DIF <= 0)),0.4,'DIFF金叉'),color0000FF;
STICKLINE(FILTER(((((MACD >= REF(MACD,5)) AND ((下 - REF(下,1)) > 0)) AND (MACD <= 0)) AND ((GG - REF(GG,1)) >= 0)),3),0,0.5,3,0),color00FF00;
DRAWICON(FILTER(((((MACD >= REF(MACD,5)) AND ((下 - REF(下,1)) > 0)) AND (MACD <= 0)) AND ((GG - REF(GG,1)) >= 0)),3),0.5,0);
DRAWTEXT(FILTER(((((MACD >= REF(MACD,5)) AND ((下 - REF(下,1)) > 0)) AND (MACD <= 0)) AND ((GG - REF(GG,1)) >= 0)),3),0.5,'絕佳買入'),color00FF00;
VCF1:=LLV(LOW,5);
VCF2:=HHV(HIGH,5);
VCF3:=EMA((((CLOSE - VCF1) / (VCF2 - VCF1)) * 100),4);
VCF4:=EMA(((0.667 * REF(VCF3,1)) + (0.333 * VCF3)),2);
VCF5:=((HIGH + LOW) / 2);
VCF6:=DMA(VCF5,(VOL / SUM(VOL,5)));
VCF7:=DMA(VCF5,(VOL / SUM(VOL,13)));
VCF8:=DMA(VCF5,(VOL / SUM(VOL,34)));
VCF9:=DMA(VCF5,(VOL / SUM(VOL,75)));
VCFA:=EMA(WINNER((0.9 * CLOSE)),5);
VCFB:=(1 - EMA(WINNER((1.2 * CLOSE)),5));
VCFC:=EMA(WINNER(CLOSE),5);
VCFD:=((100 * (CLOSE - VCF6)) / VCF6);
VCFE:=((100 * (CLOSE - VCF7)) / VCF7);
VCFF:=((100 * (MIN(CLOSE,OPEN) - VCF8)) / VCF8);
VCF10:=BARSLAST(((VCF8 > VCF9) AND (REF(VCF8,1) <= REF(VCF9,1))));
VCF11:=((((COUNT(((WINNER(CLOSE) < 0.11) AND (EMA(WINNER(CLOSE),5) < 0.15)),2) > 0) OR (((1 - WINNER((1.2 * CLOSE))) >= 0.8) AND (WINNER(CLOSE) < 0.05))) AND (COUNT((VCFE < (0 - 16)),2) > 0)) AND (COUNT((VCFF < (0 - 20)),2) > 0));
VCF12:=((((COUNT((VCFD < (0 - 10)),2) > 0) AND (COUNT((VCFE < (0 - 15)),2) > 0)) AND (COUNT((VCFF < (0 - 15)),2) > 0)) AND (COUNT((VCFA > 0.8),VCF10) = 0));
VCF13:=(((COUNT((VCF11 OR VCF12),2) > 0) AND (VCF3 > REF(VCF3,1))) AND (((1 - WINNER((1.15 * CLOSE))) * 100) > 80));
出擊1:=IF((VCF13 AND (COUNT(VCF13,3) <= 1)),0.1,0);
黑馬出擊:IF((VCF13 AND (COUNT(VCF13,3) <= 1)),0.37,0),LINETHICK3,color0000FF;
DRAWICON((黑馬出擊 > 0),0.37,1);
DRAWTEXT((黑馬出擊 > 0),0.35,'★黑馬'),colorFFFFFF;
DRAWTEXT((黑馬出擊 > 0),0.35,'出擊'),color00FF00;
VAR26:=(((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) * 100);
VAR27:=((EMA(CLOSE,12) - EMA(CLOSE,26)) * 100);
VAR28:=EMA(VAR27,9);
VAR29:=(2 * (VAR27 - VAR28));
STICKLINE(((VAR27 < (0 - 50)) AND (VAR26 > 7)),0,(0 - 0.1),5,0),color0000FF;
DRAWTEXT((((VAR27 < (0 - 50)) AND (VAR26 > 7)) AND (VAR27 < VAR28)),(0 - 0.09),'底'),colorFFFFFF;
DRAWTEXT((((VAR27 < (0 - 50)) AND (VAR26 > 7)) AND (VAR27 >= VAR28)),(0 - 0.1),'追'),colorFFFFFF;
VAR1:=1;
VAR2:=MA(CLOSE,18);
VAR3:=(((CLOSE - VAR2) / VAR2) * 100);
VAR4:=MA(VAR3,1);
升跌:=(VAR4 * VAR1);
VAR5:=BARSLAST((CROSS((0 - 10),VAR4) = 1));
VAR6:=BARSLAST((CROSS(VAR4,10) = 1));
VAR7:=((VAR4 < (0 - 10)) AND (VAR5 >= 5));
VAR8:=((VAR4 > 10) AND (VAR6 >= 5));
{C1:(0.01 * (IF(((VAR4 < (0 - 10)) AND (VAR5 >= 5)),VAR4,0) * VAR1)),LINETHICK1,color0000FF;
C2:=C1;}
C3:=(IF(((VAR4 > 10) AND (VAR6 >= 5)),VAR4,0) * VAR1);
C4:=C3;
D1:=((((升跌 > REF(升跌,1)) AND VAR7) * 0.2) * VAR1);
中期底部:=LLV(CLOSE,30);
D:(FILTER(((((((升跌 > REF(升跌,1)) AND (LOW <= 中期底部)) AND (CLOSE > 中期底部)) AND VAR7) * 0.5) * VAR1),3) * 0.5),LINETHICK2,color0000FF;
DRAWTEXT((D >= 0.25),D,'★鐵底'),color00FFFF;
STICKLINE(((CROSS(MACD,DIF) AND (MACD >= (0 - 0.05))) AND (MACD <= 0.02)),MACD,0.23,0,0),LINETHICK2,color00FFFF;
DRAWTEXT(((CROSS(MACD,DIF) AND (MACD >= (0 - 0.05))) AND (MACD <= 0.02)),0.23,'＾MACD'),color0000FF;
DRAWTEXT(((CROSS(MACD,DIF) AND (MACD >= (0 - 0.05))) AND (MACD <= 0.02)),0.23,'金叉'),LINETHICK4,colorFFFFFF;
DRAWICON(((CROSS(MACD,DIF) AND (MACD >= (0 - 0.05))) AND (MACD <= 0.02)),0.23,1);
DIFF2:=(EMA(CLOSE,2) - EMA(OPEN,5));
操盤手:=DIFF2;
(0.4 * ((CROSS(操盤手,MACD) AND (MACD <= (0 - 0.11))) AND (LOW <= 下))),LINETHICK2,colorFFFFFF;
DRAWTEXT(((CROSS(操盤手,MACD) AND (LOW <= 下)) AND (MACD <= (0 - 0.11))),0.6,'短線5%'),colorB7D16F;
MA1:=MA(CLOSE,5);
MA2:=MA(CLOSE,10);
BB:(0.7 * ((((((CROSS(DIF,DEA) AND (CLOSE < 上)) AND ((下 - REF(下,1)) > 0)) AND CROSS(MACD,0)) AND (MACD >= 0)) AND (DIF > 0)) AND (((HH - REF(HH,1)) > 0) AND (VOL > REF(VOL,1)))));
DRAWTEXT((((BB >= 0.7) AND (CLOSE < 上)) AND ((下 - REF(下,1)) > 0)),0.7,'。量價配合完美'),color00FF00;
DRAWTEXT((((BB >= 0.7) AND (CLOSE < 上)) AND ((下 - REF(下,1)) > 0)),0.7,'。(追)'),color0000FF;
N15HIGH:=REF(HIGH,15);
N1LOW:=REF(LOW,1);
FF:=(((N15HIGH - N1LOW) / N1LOW) > 0.15);
DRAWICON((((((CROSS(MA(CLOSE,P1),MA(CLOSE,P2)) > 0) AND (((N15HIGH - N1LOW) / N1LOW) < 0.15)) AND (OPEN >= MA(CLOSE,P1))) AND (CLOSE >= MA(CLOSE,P1))) AND (LOW <= MA(CLOSE,P1))),0.5,1);
DRAWTEXT((((((CROSS(MA(CLOSE,P1),MA(CLOSE,P2)) > 0) AND (((N15HIGH - N1LOW) / N1LOW) < 0.15)) AND (OPEN >= MA(CLOSE,P1))) AND (CLOSE >= MA(CLOSE,P1))) AND (LOW <= MA(CLOSE,P1))),0.5,'★＾回頭望月'),colorFF0000;
VAR10:=(((CLOSE - MA(CLOSE,58)) / MA(CLOSE,58)) * 100);
VAR11:=((((VAR10 > (1 * REF(VAR10,1))) AND (VAR10 < K)) AND (VAR10 > G)) * 1.5);
VAR12:=((VOL / CAPITAL) * 100);
VAR13:=LLVBARS(LOW,50);
VAR14:=SUM(VOL,VAR13);
VAR15:=HHVBARS(HIGH,50);
VAR16:=SUM(VOL,VAR15);
VAR17:=(((CLOSE - REF(OPEN,VAR15)) / REF(OPEN,VAR15)) * 100);
VAR18:=((VAR16 / CAPITAL) * 100);
VAR19:=(((CLOSE - REF(OPEN,VAR13)) / REF(OPEN,VAR13)) * 100);
VAR20:=((VAR14 / CAPITAL) * 100);
VAR21:=MA(CLOSE,3);
VAR22:=(REF(CLOSE,2) * 0.865);
VAR23:=(REF(CLOSE,13) * 0.772);
VAR24:=MIN(VAR22,VAR23);
VAR25:=MA(CLOSE,13);
抄底1:(IF((((((CLOSE - VAR24) / CLOSE) < 0.03) AND (VAR17 < (-35))) AND ((SUM(VAR12,5) / 5) < 1.8)),1,0) * 0.4),LINETHICK3,colorFF0000;
DRAWTEXT((抄底1 > 0),抄底1,'★抄底'),LINETHICK3,colorFFFFFF;
DRAWTEXT((抄底1 > 0),抄底1,'成功90%'),LINETHICK3,color00FF00;
VAR266:=(((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) * 100);
VAR277:=((EMA(CLOSE,12) - EMA(CLOSE,26)) * 100);
VAR288:=EMA(VAR277,9);
VAR299:=(2 * (VAR277 - VAR288));
DRAWTEXT((((VAR277 < (-50)) AND (VAR266 > 7)) AND (VAR277 < VAR288)),(-0.08),'★'),colorFFFFFF;
DRAWTEXT((((VAR277 < (-50)) AND (VAR266 > 7)) AND (VAR277 >= VAR288)),(-0.1),'● '),colorFFFFFF;
VAC:=(LOW * 0.9);
VAB:=EMA(LLV(LOW,90),21);
VAD:=(((VAC * VOL) + (VAB * (CAPITAL - VOL))) / CAPITAL);
VAE:=EMA(VAD,30);
VAF:=(CLOSE - REF(CLOSE,1));
VA10:=MAX(VAF,0);
VA11:=ABS(VAF);
VA12:=((SMA(VA10,7,1) / SMA(VA11,7,1)) * 100);
VA13:=((SMA(VA10,13,1) / SMA(VA11,13,1)) * 100);
VA14:=((SMA(MAX(VAF,0),6,1) / SMA(ABS(VAF),6,1)) * 100);
VA15:=((((-200) * (HHV(HIGH,60) - CLOSE)) / (HHV(HIGH,60) - LLV(LOW,60))) + 100);
VA16:=(((CLOSE - LLV(LOW,15)) / (HHV(HIGH,15) - LLV(LOW,15))) * 100);
VA17:=SMA(((SMA(VA16,4,1) - 50) * 2),3,1);
VA18:=(((INDEXC - LLV(INDEXL,14)) / (HHV(INDEXH,14) - LLV(INDEXL,14))) * 100);
VA19:=SMA(VA18,4,1);
VA1A:=SMA(VA19,3,1);
VA1B:=(((HHV(HIGH,30) - CLOSE) / CLOSE) * 100);
VA1C:=((((((((VA14 <= 25) AND (VA15 < (-95))) AND (VA1B > 20)) AND (VA17 < (-30))) AND (VA1A < 30)) AND ((VAE - CLOSE) >= (-0.25))) AND (VA12 < 22)) AND (VA13 < 28));
低買1:=STICKLINE(VA1C,0,0.1,1,1);
發射:STICKLINE(VA1C,0,0.7,2,0),LINETHICK2,color0000FF;
DRAWTEXT((VA1C > 0),0.7,'＾★發射'),colorFFFFFF;
A4:=BARSLAST(ref(cross(dif,dea),1));
B1:=ref(c,A4+1)>c and ref(dif,A4+1)<dif and cross(dif,dea);
DRAWTEXT(FILTER(B1>0,5),dif+0.2,'●背離'),COLORyellow;
STICKLINE(MACD<ref(MACD,1)and MACD>0,0,MACD,2,0),colorgreen;
STICKLINE(MACD<ref(MACD,1)and MACD<0,0,MACD,2,0),colorFFCC33;
STICKLINE(MACD>ref(MACD,1)and MACD,0,MACD,2,0),COLORyellow;
STICKLINE(MACD>ref(MACD,1)and MACD>0,0,MACD,2,0),COLOR8899ee;
if(dif<0,dif,0),coloryellow,linethick2;
if(dif<0,0,dif),colorred,linethick2;
if(dif<dea,dif,dea),COLORWHITE,linethick2;
if(dif>dea,dea,dea),{COLORgreen}colorFF937F,linethick2;
縮頭:=IF(MACD>0 AND REF(MACD,1)>REF(MACD,2) AND MACD< REF(MACD,1),1,0);
縮腳:=IF(MACD<0 AND REF(MACD,1)< REF(MACD,2) AND MACD>REF(MACD,1),1,0);
阻力:=IF(CROSS(C,MA(C,20)) OR CROSS(C,MA(C,60)),1,0);
支撐:=IF(CROSS(MA(C,20),C) OR CROSS(MA(C,60),C),1,0);
做多:=IF(CROSS(MACD,DIF) AND DIF>0 AND MACD>0,1,0);
放空:=IF(CROSS(DIF,MACD) AND DIF<0 AND MACD<0,1,0);
DRAWTEXT(FILTER(縮頭,3) AND 縮頭,MACD,'▼'),COLORFF00FF;
DRAWTEXT(FILTER(縮頭,3) AND 縮頭,MACD+0.2,'縮頭'),COLORFF00FF;
DRAWTEXT(FILTER(縮腳,3) AND 縮腳,MACD,'△'),COLOR00FF00;
DRAWTEXT(FILTER(縮腳,3) AND 縮腳,MACD-0.2,'縮腳'),COLOR00FF00;
DRAWTEXT(FILTER(阻力,16) AND MACD>=0,MACD+0.01,'¤阻力'),COLOR00FFFF;
DRAWTEXT(FILTER(支撐,16) AND MACD<0,MACD,'¤支撐'),COLORFFFFFF;
多頭趨勢:=IF(DIF>=0 AND MACD>=0 OR (DIF<0 AND MACD>=0),1,0);
空頭趨勢:=DIF<0 AND MACD<0 OR (DIF>=0 AND MACD<0);
up:=FILTER(多頭趨勢,13);
DRAWTEXT(up,DIF,'¤多頭'),COLORRED;
pu :=FILTER(空頭趨勢,13);
DRAWTEXT(PU,DIF,'¤空頭'),COLORFF8800;
低位金叉:=CROSS(DIF,DEA) AND DIF<-0.1;
STICKLINE(低位金叉,0,0.08,6,0),COLORYELLOW;
DRAWTEXT(低位金叉,低位金叉-1.5,' 低位金叉'),COLORWHITE;
JCCOUNT:=COUNT(CROSS(DIF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
STICKLINE(二次金叉,0,0.06,6,0),ColorFF00FF;
DRAWICON(二次金叉,dea*1.04,1) ;
DRAWTEXT(二次金叉,0.5,' 二次金叉'),ColorYELLOW;
A1:=BARSLAST(REF(CROSS(DIF,DEA),1));
底背離:=REF(CLOSE,A1+1)>CLOSE AND DIF>REF(DIF,A1+1) AND CROSS(DIF,DEA);
STICKLINE(底背離,0,0.03,6,0),Color00FF00;
DRAWLINE(A1=0,DEA,底背離,DEA,0),COLORRED,linethick1;
DRAWTEXT(底背離,0.12,' 底背離'),ColorFF00FF;
A2:=BARSLAST(REF(CROSS(DEA,DIF),1));
頂背離:=REF(CLOSE,A2+1)<CLOSE AND REF(DIF,A2+1)>DIF AND CROSS(DEA,DIF);
DRAWLINE(A2=0,DEA,頂背離,DEA,0),COLORGREEN,linethick1;
DRAWTEXT(頂背離,0.2,' ★頂背離'),ColorYELLOW;

　1.三浪啟動主圖指標源碼：

MA5:MA(CLOSE,5);
MA10:MA(CLOSE,10);
MA30:MA(CLOSE,30);
MA60:=MA(CLOSE,60);
MA65:MA(CLOSE,65);
MA250:MA(CLOSE,250),colorred;
均線流:=(((((MA5 > MA65) AND (MA10 > MA65)) AND (MA30 > MA65)) AND (MA5 < MA30)) * 0.3);
PL1:=(((CLOSE - MA60) / MA60) < 0.1);
PL2:=(((CLOSE - MA250) / MA250) < 0.3);
偏離率:=(((PL1 = 1) AND (PL2 = 1)) * 0.2);
DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA :=EMA(DIFF,9);
MACD超跌:=(COUNT((DIFF < DEA),10) = 10);
MACD:=(MACD超跌 * "MACD.MACD"(26,12,9))*(-1);
目標:=if(均線流=0.3 AND macd and 偏離率=0.2 ,0.8,0);
DRAWTEXT(目標 ,l,'▲'),color008fff;
MBSJ:=BARSLAST((目標 = 0.8));
放量上漲:=(((VOL / REF(VOL,1)) >= 1.1) AND ((CLOSE / REF(CLOSE,1)) >= 1.01));
SZSJ:=BARSLAST((放量上漲 = 1));
MACD金叉:=CROSS(DIFF,DEA);
JCSJ:=BARSLAST((MACD金叉 = 1));
關注:=((MACD金叉 AND (REF(MACD,1) < 0)) * -0.1);
DRAWTEXT(關注,l,'◆'),color00ff00;
啟動:=((((MBSJ <= 20) AND (SZSJ <= 1)) AND (JCSJ <= 1)) * 1);
DRAWTEXT(啟動,l,'●'),coloryellow;
突破:=((((偏離率 = 0) AND (REF(偏離率,1) = 0.2)) AND (REF((COUNT((偏離率 = 0.2),10) = 10),1) = 1)) * -0.1);
DRAWTEXT(突破,l,'★'),coloryellow;

　　2.三浪啟動副圖指標源碼：

MA5:=MA(CLOSE,5);
MA10:=MA(CLOSE,10);
MA30:=MA(CLOSE,30);
MA60:=MA(CLOSE,60);
MA65:=MA(CLOSE,65);
MA250:=MA(CLOSE,250);
均線流:(((((MA5 > MA65) AND (MA10 > MA65)) AND (MA30 > MA65)) AND (MA5 < MA30)) * 0.3),POINTDOT,LINETHICK3;
PL1:=(((CLOSE - MA60) / MA60) < 0.1);
PL2:=(((CLOSE - MA250) / MA250) < 0.3);
偏離率:(((PL1 = 1) AND (PL2 = 1)) * 0.2),STICK,LINETHICK1,colorFF00FF;
STICKLINE((偏離率 = 0.2),0,0.2,5,1),colorFF00FF;
DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA :=EMA(DIFF,9);
MACD超跌:=(COUNT((DIFF < DEA),10) = 10);
MACD:(MACD超跌 * "MACD.MACD"(26,12,9))*(-1),STICK,LINETHICK2,colorFFFF00;
目標:if(均線流=0.3 AND macd and 偏離率=0.2 ,0.8,0),LINETHICK2,colorFFFFFF;
MBSJ:=BARSLAST((目標 = 0.8));
放量上漲:=(((VOL / REF(VOL,1)) >= 1.1) AND ((CLOSE / REF(CLOSE,1)) >= 1.01));
SZSJ:=BARSLAST((放量上漲 = 1));
MACD金叉:=CROSS(DIFF,DEA);
JCSJ:=BARSLAST((MACD金叉 = 1));
啟動:((((MBSJ <= 20) AND (SZSJ <= 1)) AND (JCSJ <= 1)) * 1),LINETHICK2,coloryellow;
DRAWTEXT(啟動,0.8,'★買'),colorred;
關注:((MACD金叉 AND (REF(MACD,1) < 0)) * -0.1),colorff8918;
DRAWTEXT(關注,-0.01,'關●注'),colorff8918;
突破:((((偏離率 = 0) AND (REF(偏離率,1) = 0.2)) AND (REF((COUNT((偏離率 = 0.2),10) = 10),1) = 1)) * -0.1),colorred;
DRAWTEXT(突破,-0.01,'突●破'),colorred;

http://www./download.asp?id=5194&no=1

第一條：快進快出。
第二條：短線要抓領頭羊。
第三條：上漲時加碼,下跌時減磅。
第四條：一般情況下，即使不是太好的股票如果連續下跌了50%都可搶反彈。
第五條：牛市中不要小覷冷門股。
第六條：買進股票下跌8%應堅決止損。
第七條：高位三連陰時賣出,低位紅三兵時買進。
第八條：買進大盤暴跌時逆勢上行的股票。
第九條：敢于買漲停板股票。
第十條：買入跌停板被巨量打開的股票。

▲1波浪趨勢
短期趨勢: ZIG(3,4.5),LINETHICK2, COLOR238E23;
M5日: EMA(CLOSE,5),LINETHICK1, POINTDOT;
M13: EMA(CLOSE,13),LINETHICK3, COLORRED;
M25: EMA(CLOSE,25), COLORFFFF00;
M72: EMA(CLOSE,72),LINETHICK1, COLOR00CCFF;
M144: EMA(CLOSE,144),COLORCC00CC;

年:MA(CLOSE,26),COLORGREEN;
DRAWTEXT(CROSS(ZIG(3,8),REF(ZIG(3,8),1)),LOW*1.02,'★B') ,COLORRED;
DRAWTEXT(CROSS(REF(ZIG(3,10),1),ZIG(3,10)),HIGH*1.02,'●S'), COLORBLUE;
VAR1:=ZIG(3,10)<REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)>REF(ZIG(3,10),2);
VAR2:=ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)<REF(ZIG(3,10),2);
STICKLINE(VAR1,C,O,8,0),COLORBLUE;{高位黃色}
STICKLINE(VAR1,C,O,3,0),COLORBLUE;{高位黃色}
STICKLINE(VAR1,H,L,1,0),COLORBLUE;{高位黃色}
STICKLINE(VAR2,C,O,8,0),COLORRED;{底位紅色}
STICKLINE(VAR2,C,O,3,0),COLORRED;{底位紅色}
STICKLINE(VAR2,H,L,1,0),COLORRED;{底位紅色};

--------1變色K線操盤--0906-----
M5:MA(CLOSE,5),COLORRED,LINETHICK5;
IF(M5<REF(M5,1),M5,DRAWNULL),COLORBLUE,LINETHICK5;
M13:MA(CLOSE,13),COLORMAGENTA,LINETHICK3;
IF(M13<REF(M13,1),M13,DRAWNULL),COLORGREEN,LINETHICK5;
M20:MA(CLOSE,20),COLORRED,LINETHICK3;
IF(M20<REF(M20,1),M20,DRAWNULL),COLOR009900,LINETHICK5;
M60:MA(CLOSE,60),COLORMAGENTA,LINETHICK1;

{操盤手}
VAR3:=LLV(HIGH,240);
VAR4:=100*(CLOSE-VAR3)/VAR3;
VAR5:=(CLOSE-LLV(LOW,528))/(HHV(HIGH,528)-LLV(LOW,528))*100;
VAR6:=(CLOSE-LLV(CLOSE,530))/(HHV(CLOSE,530)-LLV(CLOSE,530))*100;
VAR7:=0;
VAR8:=SMA(MAX(CLOSE-REF(CLOSE,1),0),34,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),7,1)*100;
VAR9:=SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100;
VAR10:=IF(TROUGHBARS(3,16,1)=0 AND HIGH>LOW+0.04,4,0);
VAR11:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3);
VAR12:=ZIG(3,6)<REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3);
VAR13:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3);
VAR14:=ZIG(3,22)<REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3);
VAR15:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3);
VAR16:=ZIG(3,51)<REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3);
VAR17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3);
VAR18:=ZIG(3,72)<REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3);
VAR19:=EMA(CLOSE,2)-EMA(CLOSE,150);
買１:=VAR10;
買２:=(VAR11+VAR13+VAR15+VAR17);
賣１:=(VAR12+VAR14+VAR16+VAR18);
買:IF(買１>0 OR 買２>0,LOW*0.99,DRAWNULL),CROSSDOT,LINETHICK3,COLORRED;
賣:IF(賣１>0,HIGH*1.01,DRAWNULL),CROSSDOT,LINETHICK3,COLORBLUE;
{利多方舟}
VAR100:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20))));
VAR200:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20))));
VAR300:=(100 - MA(((100 * (HHV(HIGH,5) - CLOSE)) / (HHV(HIGH,5) - LLV(LOW,5))),34));
F:IF(CROSS(VAR200,MA(VAR300,5)),LOW * 0.98,DRAWNULL),CROSSDOT,LINETHICK3,COLOREE00EE;
年:MA(CLOSE,22),COLORRED,LINETHICK1;

------●1數浪超短------------
工作線:=MA(CLOSE,1);
趨勢線:MA(CLOSE,18)COLOR009900,LINETHICK2;
強勢線:MA(CLOSE,3)COLORRED,LINETHICK2;
TT2:=DMA((((HIGH + LOW) + (CLOSE * 2)) / 4.15),0.9);
TT1:=REF(EMA(TT2,3),1);
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
LC:=REF(CLOSE,1);
RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);
FF:=EMA(CLOSE,3);
稻殼1:EMA(CLOSE,144),POINTDOT,COLORBLUE;
稻殼2:EMA(C,318);
AA1:=AMOUNT/VOL;
BB1:=L<AA1*0.9;
CC1:=(C-REF(C,1))/REF(C,1)*100>1.2;
DD1:=L<MA(C,5)*0.921;
EE1:=VOL<MA(V,5)*1.5;
FF1:=BB1 AND CC1 AND DD1 AND EE1;
F:=100*(C-REF(C,1))/REF(C,1);
P1:=IF(C<REF(O,1) AND F<0,1,0);
P2:=IF(C<REF(O,2) AND F<0,1,0);
TT3:=P1=0 AND REF(P1,1)=1 AND P2=0 AND REF(P2,1)=1 ;
TT4:=P1=1 AND REF(P1,1)=0 AND P2=1 AND REF(P2,1)=0 ;
Z1:=MA(C,13);
ZX:=REF(Z1,13/2+1);
DRAWICON(CROSS(ZX,C),H*1.01,2);
DRAWTEXT(CROSS(工作線,趨勢線)AND J<55,LOW,'入')COLORWHITE;
DRAWTEXT(CROSS(CLOSE,TT1)AND J<55,LOW,'買'),COLORRED;
DRAWTEXT(CROSS(88,RSI),HIGH * 1.02,'頂'),COLORBLUE;
DRAWTEXT(FF1,L*0.99,'超短'),COLORBLUE;
STICKLINE(TT3,OPEN,CLOSE,3,0),COLORFF00FF;
STICKLINE(TT4,OPEN,CLOSE,3,0),COLORGREEN;
TT5:=5;
V1:=MA(HIGH,30)*1.15;
V2:=MA(HIGH,3)*1.03;
V3:=MA(LOW,3)*0.97;
V4:=MA(LOW,30)*0.85;
GET:ZIG(3,TT5)COLORBLUE,LINETHICK2;

----H▲1多空布林--------

n 1 100 10
p1 100 3

BBI:(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
UPR:BBI+P*STD(BBI,N);
DWN:BBI-P*STD(BBI,N);
DRAWICON((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)),LOW*0.98,1) ;
DRAWICON((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)),HIGH*1.01,2);

VAR3:=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100;
VAR4:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100;
VAR5:=(CLOSE-MA(CLOSE,32))/MA(CLOSE,32)*100;
VAR6:=(VAR3+VAR4+VAR5)/3;
VAR7:=EMA(VAR6,5);
ZB:=EMA(EMA(VAR3,5),5)*3, COLORSTICK;
VAR8:=IF(VAR6<=-20,10,0);
VAR9:=HHV(VAR8,10);

VARA:=IF(VAR9 AND CROSS(MA(CLOSE,3),MA(CLOSE,5)),20,0);
K:=EMA(VAR7,5)*2, , COLORFF00FF;
D:=EMA(K,5), , COLORWHITE;
J:=K*3-D*2, ,COLORYELLOW;
VARB:=BETWEEN(CLOSE,MA(CLOSE,3),MA(CLOSE,5)) AND J>10;
HS:=VOL/CAPITAL*100, , COLORGREEN;
DRAWTEXT(VAR8=10 AND FILTER(VAR8=10,5),LOW*0.93,'近') COLORMAGENTA;

DRAWTEXT(VARA=20,LOW*0.95,'底') COLORMAGENTA;

VARE:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;
VARF:=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);
VAR10:=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);
VAR11:=VARF<REF(VAR10,1) AND VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1);
DRAWTEXT(VAR11 AND COUNT(VAR11,30)=1,LOW*0.95,'大資金'),LINETHICK1,COLORFF00FF;

VAR12:=(HIGH+LOW+CLOSE)/3;
VAR13:=(VAR12-MA(VAR12,14))/(0.015*AVEDEV(VAR12,14));
VAR14:=(VAR12-MA(VAR12,70))/(0.015*AVEDEV(VAR12,70));
VAR15:=IF(VAR13>=150 AND VAR13<200 AND VAR14>=150 AND VAR14<200,10,0);
VAR16:=IF(VAR13<=-150 AND VAR13>-200 AND VAR14<=-150 AND VAR14>-200,-10,VAR15);
VAR17:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;
VAR18:=100-ABS(VAR17);
VAR19:=IF(VAR18<90,VAR18,100);
VAR1A:=IF(VARE>0,VARE,0);
VAR1B:=IF(VAR14>=200 AND VAR13>=150,15,IF(VAR14<=-200 AND VAR13<=-150,-15,VAR16))+60;
VAR1C:=VAR1A>48 AND VAR1B>60 AND VAR19<100;
DRAWTEXT(VAR1C AND COUNT(VAR1C,30)=1,LOW*0.95,'大筆出') COLORRED;
----------▲77主力出貨-----
N1:=34;
N2:=9;
N3:=3;
X1: 100*(HHV(HIGH,N1)-CLOSE)/(HHV(HIGH,N1)-LLV(LOW,N1));
VAR1:=100*(HHV(HIGH,N2)-CLOSE)/(HHV(HIGH,N2)-LLV(LOW,N2));
VAR2:=100*(HHV(HIGH,N3)-CLOSE)/(HHV(HIGH,N3)-LLV(LOW,N3));
VAR3:=VAR1-X1;
VAR4:=X1-VAR1;
STICKLINE(X1>=0,0,VAR2,2,0)COLOR009900;
紅色主力介入: STICKLINE(VAR3<0,0,VAR4,2,0)COLORRED;
STICKLINE(X1>=0,0,VAR1,2,0)COLOR00FF00;
藍色主力出貨: STICKLINE(VAR4<0,0,VAR3,2,0)COLORBLUE;

主力介入:VAR3<0,COLORRED;
主力出貨:VAR4<0,COLORBLUE;

----------3專吸莊血-----n -1--100--10-
VAR1:4*SMA((CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100,5,1)-
3*SMA(SMA((CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100,5,1),3.2,1),COLORRED,LINETHICK1;
VAR2:8,COLORGREEN,LINETHICK0;
增強體力: IF(CROSS(VAR1,VAR2),80,0),STICK,LINETHICK2;
專吸莊血: IF(VAR1<=8,25,0),STICK,COLORRED,LINETHICK5;
DRAWTEXT(CROSS(VAR1,VAR2),80,'買');
VARO5:=LLV(LOW,27);
VARO6:=HHV(HIGH,34);
VARO7:=EMA((CLOSE-VARO5)/(VARO6-VARO5)*4,4)*25;
建倉區: IF((VARO7<10),80,100) ,LINETHICK1;
0, LINETHICK1;

--------▲★8調整8------
VAR1:=IF(OPEN<=REF(OPEN,1),0,MAX(HIGH-OPEN,OPEN-REF(OPEN,1)));
VAR2:=IF(OPEN>=REF(OPEN,1),0,MAX(OPEN-LOW,OPEN-REF(OPEN,1)));
VAR3:=SUM(VAR1,5);
VAR4:=SUM(VAR2,5);
VAR5:=IF(VAR3>VAR4,(VAR3-VAR4)/VAR3,IF(VAR3=VAR4,0,(VAR3-VAR4)/VAR4));
VAR6:=MA(VAR5,5);
VAR8:=IF(OPEN<=REF(OPEN,1),0,MAX(HIGH-OPEN,OPEN-REF(OPEN,1)));
VAR9:=IF(OPEN>=REF(OPEN,1),0,MAX(OPEN-LOW,OPEN-REF(OPEN,1)));
VARA:=SUM(VAR8,3);
VARB:=SUM(VAR9,3);
VARC:=IF(VARA>VARB,(VARA-VARB)/VARA,IF(VARA=VARB,0,(VARA-VARB)/VARB));
VARD:=MA(VARC,3);
火: BARSLAST(EMA(CLOSE,5)<REF(EMA(CLOSE,5),1)), , COLORRED;
VARE:=HHV(CLOSE,2);
VARF:=BARSLAST(VARE<REF(VARE,2));
VAR10:=IF(VARF>=1,LLV(VARE,VARF),LOW);
VAR11:=VAR10+VAR10*VARF*0.5/100;
VAR12:=IF(VAR11<REF(VAR11,1),MA(LOW,3),VAR11);
VAR13:=VAR10+VAR10*(VARF-1)*1.618/100;
山: COUNT(EMA(CLOSE,5)>REF(EMA(CLOSE,5),1),5);
VAR14:=IF(OPEN<=REF(OPEN,1),0,MAX(HIGH-OPEN,OPEN-REF(OPEN,1)));
VAR15:=IF(OPEN>=REF(OPEN,1),0,MAX(OPEN-LOW,OPEN-REF(OPEN,1)));
VAR16:=SUM(VAR8,3);
VAR17:=SUM(VAR9,3);
VAR18:=IF(VARA>VARB,(VARA-VARB)/VARA,IF(VARA=VARB,0,(VARA-VARB)/VARB));
VAR19:=MA(VARC,3);
買入或持股: STICKLINE(山>0,火,0,2,0), , COLORRED;
VAR1A:=IF(OPEN<=REF(OPEN,1),0,MAX(HIGH-OPEN,OPEN-REF(OPEN,1)));
VAR1B:=IF(OPEN>=REF(OPEN,1),0,MAX(OPEN-LOW,OPEN-REF(OPEN,1)));
VAR1C:=SUM(VAR8,3);
VAR1D:=SUM(VAR9,3);
VAR1E:=IF(VARA>VARB,(VARA-VARB)/VARA,IF(VARA=VARB,0,(VARA-VARB)/VARB));
VAR1F:=MA(VARC,3);
下跌→拋出: STICKLINE(山>0,火,山,2,1), , COLOR238E23;
VAR20:=IF(OPEN<=REF(OPEN,1),0,MAX(HIGH-OPEN,OPEN-REF(OPEN,1)));
VAR21:=IF(OPEN>=REF(OPEN,1),0,MAX(OPEN-LOW,OPEN-REF(OPEN,1)));
VAR22:=SUM(VAR8,3);
VAR23:=SUM(VAR9,3);
VAR24:=IF(VARA>VARB,(VARA-VARB)/VARA,IF(VARA=VARB,0,(VARA-VARB)/VARB));
VAR25:=MA(VARC,3);
觀望: STICKLINE(山=0 AND 火=0,0,1,4,1), , COLORBLUE;
VAR26:=IF(OPEN<=REF(OPEN,1),0,MAX(HIGH-OPEN,OPEN-REF(OPEN,1)));
VAR27:=IF(OPEN>=REF(OPEN,1),0,MAX(OPEN-LOW,OPEN-REF(OPEN,1)));
VAR28:=SUM(VAR8,3);
VAR29:=SUM(VAR9,3);
VAR2A:=IF(VARA>VARB,(VARA-VARB)/VARA,IF(VARA=VARB,0,(VARA-VARB)/VARB));
VAR2B:=MA(VARC,3);
植被: STICKLINE(山<火,火,山,1,0), , COLOR00FF00;
VAR2C:=IF(OPEN<=REF(OPEN,1),0,MAX(HIGH-OPEN,OPEN-REF(OPEN,1)));
VAR2D:=IF(OPEN>=REF(OPEN,1),0,MAX(OPEN-LOW,OPEN-REF(OPEN,1)));
VAR2E:=SUM(VAR8,3);
VAR2F:=SUM(VAR9,3);
VAR30:=IF(VARA>VARB,(VARA-VARB)/VARA,IF(VARA=VARB,0,(VARA-VARB)/VARB));
VAR31:=MA(VARC,3);
VAR32:=(CLOSE-LLV(LOW,5))/(HHV(HIGH,5)-LLV(LOW,5))*10;
K: SMA(SMA(VAR32,2,1),2,1),COLORGREEN, ;
D: SMA(SMA(SMA(VAR32,2,1),2,1),3,1), , COLOR0099FF;
J: (3*SMA(SMA(VAR32,2,1),2,1)-2*SMA(SMA(SMA(VAR32,2,1),2,1),3,1)), , COLORRED,LINETHICK2;
VAR33:=IF(OPEN<=REF(OPEN,1),0,MAX(HIGH-OPEN,OPEN-REF(OPEN,1)));
VAR34:=IF(OPEN>=REF(OPEN,1),0,MAX(OPEN-LOW,OPEN-REF(OPEN,1)));
VAR35:=SUM(VAR8,3);
VAR36:=SUM(VAR9,3);
VAR37:=IF(VARA>VARB,(VARA-VARB)/VARA,IF(VARA=VARB,0,(VARA-VARB)/VARB));
VAR38:=MA(VARC,3);
STICKLINE(REF(山,1)=0 AND 山>0,0,-1,2,0), , COLORBLUE;
DRAWTEXT(REF(火,3)>0 AND REF(火,2)>0 AND REF(火,1)>0 AND 火=0 AND REF(火,1)>山,REF(火,1),'S'),COLOR238E23 , ;

-----8主力資金----------
{//------【參數定義】}
ZLCM:=EMA(WINNER(CLOSE)*70,3);{//主力籌碼估算}
SHCM:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,3);{//散戶籌碼估算}
ZSHTL:=SHCM/(ZLCM+SHCM)*100;{//散戶套牢籌碼比率}
ZZLKP:=ZLCM/(ZLCM+SHCM)*100;{//主力控盤籌碼比率}
ZCMZL:=MA(ZLCM+SHCM,13);{//市場籌碼總量}
ZZNTS:=BARSLAST(ZSHTL<90 AND REF(ZSHTL,1)>90);{//走牛天數}
ZSHJJ:=EMA(ZSHTL,89);{//散戶警戒}
ZZLJJ:=EMA(ZZLKP,89);{//主力警戒}
ZJLRQD:=INTPART(ZZLKP-ZZLJJ);{//資金流入強度}
SH8:=EMA(ZSHTL,8);
DKB:=IF(ZZLKP-REF(ZZLKP,1)>ZSHTL-REF(ZSHTL,1),1,0);
{散戶套牢籌碼}
STICKLINE(C>0,ZSHTL,ZZLKP,0,0),COLORBLUE;
{散戶籌碼警戒}
STICKLINE(ZSHJJ>REF(ZSHJJ,1),ZSHTL,ZSHJJ,1,0),COLOR238E23;
{主力控盤籌碼}
STICKLINE(C>0,ZZLKP,0,0,0),COLORRED;
{鑄頂風險區}
STICKLINE(ZZLKP>75,ZZLKP,0,2,0),COLORFFFFFF;
{頂部:(ZZLKP>75),COLORFFFFFF;}
{主力籌碼警戒}
STICKLINE(ZZLJJ>REF(ZZLJJ,1),ZZLKP,ZZLJJ,4,0),COLORRED;
{筑底散兵坑}
STICKLINE(ZSHTL>=90,ZZLKP,0,5,0),COLORGREEN;
{底部:(ZSHTL>=90),COLOR66FFCC;}
{籌碼總量上升}
IF(ZCMZL,ZCMZL>REF(ZCMZL,1),DRAWNULL),COLOR0066FF,LINETHICK1;
{增量資金};
{//------【數值顯示】}
散戶套牢系數:INTPART(ZSHTL),COLORBLUE;
主力控盤系數:INTPART(ZZLKP),COLORRED;
資金流入強度:ZJLRQD,LINETHICK2,COLORRED;
市場籌碼總量:INTPART(ZCMZL),COLORBLUE,NODRAW;

--------▲★8主游大8------
A:=V*100/CAPITAL;
主力:MA(A,4),COLORRED,POINTDOT;
游資:MA(A,9),COLORBLUE,POINTDOT;
大戶:MA(A,17),COLORFF00FF,POINTDOT;
散戶:MA(A,34),COLOR238E23,POINTDOT;
關注線:MA(A,180),COLORBLUE,LINETHICK1;
STICKLINE(主力>0,0,主力,1,0),COLORRED;
STICKLINE(游資>0,0,游資,1,0),COLORBLUE;
STICKLINE(大戶>0,0,大戶,1,0),COLORFF00FF;
STICKLINE(散戶>0,0,散戶,1,0),COLOR238E23;

--------------▲★莊家控盤---------
VAR1:=EMA(EMA(CLOSE,9),9);
控盤:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;
STICKLINE(控盤<0,控盤,0,1,0),COLOR238E23;
A10:=CROSS(控盤,0);
無莊控盤:IF(控盤<0,控盤,0),COLOR238E23,NODRAW;
開始控盤:IF(A10,5,0),LINETHICK3,COLORRED;
STICKLINE(控盤>REF(控盤,1) AND 控盤>0,控盤,0,1,0),COLORRED;
有莊控盤:IF(控盤>REF(控盤,1) AND 控盤>0,控盤,0),COLORRED,NODRAW;
VAR2:=100*WINNER(CLOSE*0.95);
STICKLINE(VAR2>50 AND COST(85)<CLOSE AND 控盤>0,控盤,0,1,0),COLORFF00FF;
高度控盤:IF(VAR2>50 AND COST(85)<CLOSE AND 控盤>0,控盤,0),COLORFF00FF,NODRAW;
STICKLINE(控盤<REF(控盤,1) AND 控盤>0,控盤,0,1,0),COLORBLUE;
主力出貨:IF(控盤<REF(控盤,1) AND 控盤>0,控盤,0),COLORBLUE,NODRAW;
------

-------▲★8快走8---------

Q2:=(CLOSE-LLV(LOW, 18))/(HHV(HIGH, 18)-LLV(LOW, 18))*100;
Q3:=SMA(Q2, 9, 1);
Q4:=SMA(Q3, 3, 1);
長趨勢:3*Q3-2*Q4,COLORBLUE,LINETHICK2;
趨勢線:EMA(Q3, 3),COLORRED,LINETHICK3;
DRAWTEXT(CROSS(趨勢線, 長趨勢) AND REF(長趨勢,1)>80, REF(長趨勢,3), '*頂'),COLORRED,LINETHICK5;
★逢低買入: DRAWTEXT(REF(CROSS(趨勢線,長趨勢),82) AND 趨勢線>1.3*長趨勢,長趨勢,'B'),LINETHICK1;
★低買: DRAWTEXT(REF(CROSS(長趨勢,趨勢線),1) AND 長趨勢>1.3*趨勢線,趨勢線,'B'),COLORRED,LINETHICK1;
VAR3:=PEAKBARS(3,15,1)<10;
VAR5:=IF(VAR3=1,2,0);
頂:= IF(VAR5=2,2,0);
頂A:IF(頂>REF(頂,1),50,0),COLOR238E23,LINETHICK3;
DRAWTEXT(頂A=50,45,'S'),COLORBLUE;
---------------------
金牌逃頂
VAR1:=(HHV(HIGH,9)-CLOSE)/(HHV(HIGH,9)-LLV(LOW,9))*100-70;
VAR2:=SMA(VAR1,9,1)+100;
VAR3:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
VAR4:=SMA(VAR3,3,1);
VAR5:=SMA(VAR4,3,1)+100;
VAR6:=VAR5-VAR2;
趨勢: IF(VAR6>45,VAR6-45,0);
STICKLINE(REF(趨勢,1)< 趨勢, 趨勢,REF(趨勢,1),5,0),COLORFF00FF;
STICKLINE(REF(趨勢,1)> 趨勢, 趨勢,REF(趨勢,1),5,0),COLOR00FF00;
強弱分界:50,POINTDOT,COLORRED;
0,COLOR00FFFF;
20,POINTDOT,COLORFFAA66,LINETHICK1;
80,POINTDOT,COLORFFAA66,LINETHICK1;
100,COLORFFFF33;
V1:=LLV(LOW,10);
V2:=HHV(H,25);
價位線:=EMA((C-V1)/(V2-V1)*4,4);
DRAWTEXT(CROSS(價位線,0.3),7,'●'),COLORFFFFFF;
DRAWTEXT(CROSS(3.5,價位線),102,'●'),COLORFFFFFF;
VAR2Q:=REF(LOW,1);
VAR3Q:=SMA(ABS(LOW-VAR2Q),3,1)/SMA(MAX(LOW-VAR2Q,0),3,1)*100;
VAR4Q:=EMA(IF(CLOSE*1.3,VAR3Q*10,VAR3Q/10),3);
VAR5Q:=LLV(LOW,30);
VAR6Q:=HHV(VAR4Q,30);
VAR7Q:=IF(MA(CLOSE,58),1,0);
VAR8Q:=EMA(IF(LOW<=VAR5Q,(VAR4Q+VAR6Q*2)/2,0),3)/618*VAR7Q;
VAR9Q:=IF(VAR8Q>100,100,VAR8Q);
吸籌:STICKLINE(VAR9Q>-120,0,VAR9Q,6,1),COLORRED;
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));
AA6:=SMA(AA3,21,8);
賣臨界:STICKLINE(走勢-AA6>85,103,100,15,1),COLOR0000FF,LINETHICK2;

殷保華的殷氏定率：線上陰線買，線下陽線賣

殷氏k線形態

工作線:EMA(CLOSE,50),COLOR238E23,LINETHICK2;
工作線2:EMA(CLOSE,17),COLORRED,LINETHICK2;
九號線:=EMA(CLOSE,99);
暴漲線:=MA(CLOSE,181);
牛:=EMA(CLOSE,144)>=REF(EMA(CLOSE,144),1);
DRAWTEXT((工作線2>=REF(工作線2,1) AND
L<工作線2 AND C>工作線2) ,L, '買'),COLORRED;
DRAWTEXT((九號線>=REF(九號線,1) AND 牛 AND L<九號線 AND H>九號線)
AND ((CLOSE<REF(CLOSE,1) OR O>C)),L*0.98 , '●九號'),COLORRED;
DRAWTEXT((工作線>=REF(工作線,1) AND 牛 AND L<工作線 AND H>工作線)
{AND ((CLOSE<REF(CLOSE,1) OR O>C))},L*0.96 , '◆工作'),COLORRED;
DRAWTEXT( (暴漲線>=REF(暴漲線,1) AND 牛 AND L<暴漲線 AND H>暴漲線)
AND ((CLOSE<REF(CLOSE,1) OR O>C)),L*0.94 , '★暴漲'),COLORRED;
黃昏之星:=((((((REF(CLOSE,2) / REF(OPEN,2)) > 1.03) AND (REF(OPEN,1) >
REF(CLOSE,2))) AND ((ABS((REF(OPEN,1) - REF(CLOSE,1))) /
REF(CLOSE,1)) < 0.02)) AND ((CLOSE / OPEN) < 0.97)) AND (CLOSE <REF(CLOSE,2)));
射擊之星:=(((MIN(OPEN,CLOSE) = LOW) AND ((HIGH - LOW) > (3 *
(MAX(OPEN,CLOSE) - LOW)))) AND (CLOSE > MA(CLOSE,5)));
錘頭:=(((HIGH = MAX(OPEN,CLOSE)) AND ((HIGH - LOW) > (3 * (HIGH -
MIN(OPEN,CLOSE))))) AND (CLOSE < MA(CLOSE,5)));
吊頸:=(( (HIGH = MAX(OPEN,CLOSE)) AND ((HIGH - LOW) > (3 * (HIGH -
MIN(OPEN,CLOSE))))));

穿頭破腳:=((((((REF(CLOSE,1) / REF(OPEN,1)) > 1.03) AND ((CLOSE / OPEN)
< 0.96)) AND (CLOSE < REF(OPEN,1))) AND (OPEN > REF(CLOSE,1))) OR
(((((REF(CLOSE,1) / REF(OPEN,1)) < 0.97) AND ((CLOSE / OPEN) >
1.04)) AND (CLOSE > REF(OPEN,1))) AND (OPEN < REF(CLOSE,1))));
身懷六甲:=(((((ABS((REF(CLOSE,1) - REF(OPEN,1))) / REF(CLOSE,1)) > 0.04)
AND ((ABS((CLOSE - OPEN)) / CLOSE) < 0.005)) AND (MAX(CLOSE,OPEN) <
MAX(REF(CLOSE,1),REF(OPEN,1)))) AND (MIN(CLOSE,OPEN) > MIN(REF(CLOSE,1),REF(OPEN,1))));

烏云蓋頂:=(((((REF(CLOSE,1) / REF(OPEN,1)) > 1.03) AND ((CLOSE / OPEN) <
0.97)) AND (OPEN > REF(CLOSE,1))) AND (CLOSE < REF(CLOSE,1)));
曙光初現:=(((((REF(CLOSE,1) / REF(OPEN,1)) < 0.97) AND ((CLOSE / OPEN) >
1.03)) AND (OPEN < REF(CLOSE,1))) AND (CLOSE > REF(CLOSE,1)));
傾盆雨:=(((((REF(CLOSE,1) / REF(OPEN,1)) >= 1.03) AND (OPEN <
REF(CLOSE,1))) AND (OPEN > REF(OPEN,1))) AND (CLOSE < REF(OPEN,1)));
DRAWTEXT(傾盆雨,H*1.03,'傾盆大雨'),COLORBLUE;
DRAWTEXT(黃昏之星,H*1.02,'黃昏之星'),COLORBLUE;
DRAWTEXT(射擊之星,H*1.03,'射擊之星可能見頂'),COLORBLUE;
DRAWTEXT(錘頭,L-L*0.02,'錘頭可能見底'),COLORBLUE;
DRAWTEXT(吊頸,H*1.03,'吊頸'),COLORBLUE;
DRAWTEXT(穿頭破腳,H*1.05,'穿頭破腳'),COLORBLUE;
DRAWTEXT(烏云蓋頂,H*1.03,'烏云蓋頂'),COLORBLUE;
DRAWTEXT(曙光初現,L-L*0.02,'曙光初現(放量)'),COLORBLUE;
DRAWTEXT(身懷六甲,L-L*0.02,'身懷六甲,底升頂落'),COLORBLUE;

波段寶塔線

VAR2:=LLV(LOW,10);
VAR3:=HHV(HIGH,25);
階段賣出: 3.2,;
3.5,COLOR0088FF;
清倉賣出: 3.5;
動力線:= EMA((CLOSE-VAR2)/(VAR3-VAR2)*4,4);
STICKLINE(動力線>REF(動力線,1) ,動力線 ,REF(動力線,1),8 ,1),COLORRED;
STICKLINE(動力線<=REF(動力線,1) ,動力線 ,REF(動力線,1),8 ,1),COLORGREEN;
底部介入:0.2,COLORGREEN;
重點關注:0.5, COLORYELLOW;
DRAWICON( FILTER(CROSS(動力線,重點關注),20),動力線+0.02 ,1);
DRAWICON( FILTER(CROSS(清倉賣出,動力線),20),動力線+0.02,2);
DRAWICON( FILTER(CROSS(動力線,底部介入),20),動力線+0.02 ,1);
DRAWICON( FILTER(CROSS(階段賣出,動力線),20),動力線+0.02,2);
強弱分界線:1.75,POINTDOT,LINETHICK2,COLORDDDDDD;

1☆機構減倉

上市日期:FINANCE(42)/100, NODRAW ;
VAR1:=MA(CLOSE,5),COLOR00FFFF;
VAR2:MA(CLOSE,13),COLOR00FF33;
VAR5:MA(CLOSE,34),COLORFF9900;
VAR6:=MA(CLOSE,54),COLORFF9900;
VAR7:((EMA(CLOSE,5)*7+EMA(CLOSE,5)*3)/10),COLORBBBBBB;
VAR8:= DMA(EMA(CLOSE,12),SUM(VOL/CAPITAL,5)/3),LINETHICK2;
VARA:=REF(CLOSE,1);
VARE:=SMA(MAX(CLOSE-VARA,0),6,1)/SMA(ABS(CLOSE-VARA),6,1)*100;
DRAWTEXT(DATE>700101 AND CROSS(84,VARE),HIGH,'☆機構減倉'),COLORRED;
VARF:=(2*CLOSE+HIGH+LOW)/4;
VAR10:=LLV(LOW,34);
VAR11:=HHV(HIGH,34);
VAR12:=EMA((VARF-VAR10)/(VAR11-VAR10)*100,6);
VAR13:=EMA(0.667*REF(VAR12,1)+0.333*VAR12,4);
VAR14:=LLV(LOW,120);
VAR15:=HHV(HIGH,120);
VAR16:=VAR15-VAR14;
DRAWTEXT(IF(COUNT(CLOSE<REF(CLOSE,1),8)/8>0.3 AND COUNT(VAR12>VAR13,3) AND REF(LOW,1)=LLV(LOW,120) AND CLOSE>OPEN,1,0),LOW,'★機構進場'),COLORRED;
STICKLINE(VAR7>VAR2,VAR2,VAR7,0.01,1),COLORFF00FF;
STICKLINE(VAR7<VAR2,VAR2,VAR7,0.01,1),COLOR33FF33;
RSV:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
RSV12:=(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*100;
K12:=SMA(RSV12,3,1);
D12:=SMA(K12,3,1);
J12:=3*K12-2*D12;
RSV24:=(CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100;
K24:=SMA(RSV24,3,1);
D24:=SMA(K24,3,1);
J24:=3*K24-2*D24;
壓力位:IF(CROSS(J24,J),H,REF(H,BARSLAST(CROSS(J24,J)))),COLOR00FF33,LINETHICK1;
支撐位:IF(CROSS(J,J24),L,REF(L,BARSLAST(CROSS(J,J24)))),COLORCC33CC,LINETHICK1;
支撐價:LLV(LOW,19) , COLOR009900,LINETHICK2;
阻力價:HHV(HIGH,19),COLORFF9900, LINETHICK2;
VAR4:EMA(C,21),COLOR0000FF, LINETHICK2;

▲1波浪頂底
MA1:EMA(CLOSE,6),COLOR00FF00;
MA2:EMA(CLOSE,25),COLORRED ;
頂:MA(CLOSE,20) + 2*STD(CLOSE,55), COLORYELLOW,POINTDOT, LINETHICK2 ;
底:MA(CLOSE,20) - 2*STD(CLOSE,55) ,COLORYELLOW ,POINTDOT, LINETHICK2;
STICKLINE(MA1>MA2,MA1,MA2,1,0),COLORFF66FF ;
STICKLINE(MA2>MA1,MA1,MA2,1,0),COLOR00FF00 ;
DRAWICON(MA2-MA1>0 AND MA1/LOW>1.15,LOW,1);
DRAWICON(MA1-MA2>0 AND HIGH/MA1>1.15,HIGH,2);
轉向:ZIG(3,14), COLORFF3300 ;

1黃買－藍賣
買線:=EMA(C,2);
賣線:=EMA(SLOPE(C,21)*20+C,42);
STICKLINE(買線>=賣線,REFDATE(HHV(H,130),DATE),REFDATE(LLV(L,130),DATE),5,0),
COLORYELLOW;
STICKLINE(買線<賣線,REFDATE(HHV(H,130),DATE),REFDATE(LLV(L,130),DATE),5,0),
COLORD9D919; DRAWKLINE(H,O,L,C);
指導線:EMA((EMA(CLOSE,4)+EMA(CLOSE,6)+EMA(CLOSE,12)+EMA(CLOSE,24))/4,2),,COLORFFFFFF;
界:MA(CLOSE,27),COLOR00FFFF;
B買:IF(CROSS(指導線,界) OR CROSS(買線,賣線),C,DRAWNULL),COLORMAGENTA,NODRAW;
持倉:IF(買線>=賣線,C,DRAWNULL),COLORRED,NODRAW;
S賣:IF(CROSS(界,指導線) OR CROSS(賣線,買線),C,DRAWNULL),COLORLIGRAY,NODRAW;
空倉:IF(買線<賣線,C,DRAWNULL),COLORGREEN,NODRAW;
DRAWICON(CROSS(買線,賣線),L,1);
DRAWICON(CROSS(賣線,買線),H,2);

新百萬指標好就頂呀
多:EMA(C,3),COLORRED,LINETHICK3;
空:EMA(C,5),COLOR00FF00;
均衡:EMA(空,5),COLORWHITE,;
VARF1:=COUNT(CROSS(多,均衡),2)=1;
VARF2:=COUNT(CROSS(空,均衡),2)=1;
ZAI:=FILTER(VARF1 AND VARF2,2);
DRAWTEXT(ZAI,均衡*0.985,' ▲'),COLORRED;
DRAWTEXT(ZAI,均衡*0.958,' 波段上行'),COLORRED;
VV2:=REF(CLOSE,1);
VV3:=SMA((CLOSE-VV2),6,1)/SMA(ABS(CLOSE-VV2),6,1)*100;
DRAWICON(REF(VV3,1)>81 AND VV3<80,HIGH,2);
VF1:=MA(CLOSE,60)-MA(CLOSE,5)/3.2;
DRAWTEXT(IF(CLOSE<VF1 AND VOL/240>MA(VOL,5)/240 AND CLOSE>=REF(CLOSE,1)

*1.08 AND CLOSE<MA(CLOSE,13)*1.3,1,0),LOW,'☆'),COLORRED;
VARA:=(CLOSE-REF(OPEN,29))/REF(OPEN,29)*100;
VARB:=EMA(0.667*REF(VARA,1)+0.333*VARA,5);
DRAWTEXT(IF(VOL>=1.3*MA(VOL,5) AND COUNT(VARA>=VARB AND VARA<-17,3) AND

REF(LOW,1)=LLV(LOW,120),1,0),LOW,'★買');
VARR1:=SMA(MAX(CLOSE-REF(C,1),0),6,1)/SMA(ABS(CLOSE-REF(C,1)),6,1)*100;
DRAWICON(CROSS(82,VARR1),HIGH,2);
DRAWTEXT(CROSS(82,VARR1),HIGH,''),COLORRED;
VAR1:=(HIGH+LOW+OPEN+2*CLOSE)/5;
VAR2:=REF(VAR1,1);
VAR3:=SMA(MAX(VAR1-VAR2,0),10,1)/SMA(ABS(VAR1-VAR2),10,1)*100;
HY3:=IF(COUNT(VAR3<20,5)>=1 AND COUNT(VAR1=LLV(VAR1,10),10)>=1 AND

CLOSE>=OPEN*1.038 AND VOL>MA(VOL,5)*1.2,1,0);
DRAWTEXT(HY3,LOW,' ★買'),COLORRED;
S:=MA(VOL,5)/MA(VOL,60),COLORRED,,LINETHICK2;
A:=MA(S,5),COLORGREEN,,LINETHICK2;
BIAS:=(CLOSE-MA(CLOSE,5))/MA(CLOSE,5)*100;
F:=MA(S,121);
RSV:=(CLOSE-LLV(LOW,45))/(HHV(HIGH,45)-LLV(LOW,45))*100;
K:=SMA(RSV,15,1);
D:=SMA(K,15,1);
J:=3*K-2*D;
LC:=REF(CLOSE,1);
RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
DRAWTEXT(CROSS(84,RSI) , HIGH*1.02,'出局!'),COLORBLUE ;
S1:=IF((J<11 AND BIAS>-11 AND CROSS( S,F) AND (S-F)

>0.010),2,0),STICK,LINETHICK3,COLOR00FF00;
DRAWTEXT(S1=2,LOW,'關注!'), COLORGREEN;
中軌:HHV(MA(H,13),13),COLORBLUE,LINETHICK2;
趨勢:LLV(MA(H,13),1),COLORGREEN,LINETHICK2;

-----------------
5持股天數
BIAS20:=(CLOSE-MA(CLOSE,20))/MA(CLOSE,20)*100;
Q7:=(C-REF(C,1))/REF(C,1)*100;
持股天數:BARSLAST(BARSLAST(BIAS20>0 AND REF(BIAS20,1)>0)>0),STICK,COLORRED;
持幣天數:BARSLAST(BARSLAST(BIAS20<0 AND REF(BIAS20,1)<0)>0),STICK,COLORBLUE;
累計利潤:SUM(IF(持股天數>0,Q7,0),0),COLORRED;
IF(持股天數>0,持股天數,0),COLORRED;
IF(持幣天數>0,持幣天數,0),COLORBLUE;
--------55滑頭逃頂----------------

VAR1:=(2*CLOSE+HIGH+LOW)/4;
VAR2:=LLV(LOW,34);
VAR3:=HHV(HIGH,34);
波: EMA((VAR1-VAR2)/(VAR3-VAR2)*100, 13) ,LINETHICK2,COLORRED ;
段: EMA(0.667*REF(波,1)+0.333*波,4) ,COLORBLUE LINETHICK2;
STICKLINE(CROSS(波,段) AND 波<20,0,20,5,0),LINETHICK2,COLORRED ;
STICKLINE(CROSS(段,波) AND 段>60,100,80,5,0),COLORBLUE LINETHICK2;
DRAWTEXT(CROSS(波,段) AND 波<20,35,'抄底'),COLORRED,LINETHICK2;
DRAWTEXT(CROSS(段,波) AND 段>60,65,'逃頂'),COLORBLUE LINETHICK2;
-------------
55波段買賣出
A0:=HHV(H,9)-LLV(L,9);
A1:=HHV(H,9)-C;
A2:=C-LLV(L,9);
A3:= A1/A0*100-70;
A4:=(C-LLV(L,60))/(HHV(H,60)-LLV(L,60))*100;
A5:=(2*C+H+L)/4;
A6:=SMA(A2/A0*100,3,1);
A7:=LLV(L,34);
A8:=SMA(A6,3,1)-SMA(A3,9,1);
A9:=IF(A8>100,A8-100,0);
AA:=HHV(H,34);
AB:=A9*2;
AC:=EMA((A5-A7) / (AA-A7)*100,13);
AD:= EMA(0.667*REF(AC,1)+0.333*AC,2);
AE:=SMA(A4,20,1);
AF:=SMA(AB,2,1)-AB;
B0:=EMA(0.667*REF(AC,1)+0.333*AC,2)-AC;
B1:=(HHV(H,9)-C)/(HHV(H,9)-LLV(LOW,9))*100- 70;
B2:=SMA(B1,9,1)+100;
B3:=(C-LLV(L,9))/(HHV(H,9)- LLV(L,9))*100;
B4:=SMA(B3,3,1);
B5:=SMA(B4,3,1)+100;
B6:=B5-B2;
B7:IF(B6>60,B6-60,0);
持有:STICKLINE(REF(B7,1)<B7,B7,REF(B7,1),5,0);
出貨:STICKLINE(REF(B7,1)>B7,B7,REF(B7,1),5,0);
DRAWTEXT(B7>REF(B7,1) AND REF(B7,1)<=REF(B7,2) AND B7<=40,B7+5,'★買入'),COLORRED,LINETHICK2;
DRAWTEXT(B7<REF(B7,1) AND REF(B7,1)>REF(B7,2),B7,'▼賣出'),COLOR009900;
-----------------------
5★私募波段
V1:=(POW(MA(CLOSE,5),2) + MA(CLOSE,5));
V2:=(POW(MA(LOW,5),2) + MA(LOW,5));
V3:=(POW(MA(HIGH,5),2) + MA(HIGH,5));
V4:=((((V1 - LLV(V2,9)) / (HHV(V3,9) - LLV(V2,9))) * 150) + 65);
DK: (SMA(V4,3,1) * 1.5),COLORRED;
DD:=SMA(DK,3,1);
DJ: ((3 * DK) - (2 * DD)),COLORBLUE;
C1:=(REF(CLOSE,2) * 0.865);
C2:=(REF(CLOSE,13) * 0.772);
C3:=((100 * VOL) / CAPITAL);
波段介入:IF(((((CLOSE - MIN(C1,C2)) / CLOSE) < 0.1) AND ((SUM(C3,5) / 5) < 1.8)),160,100),COLORRED;
FXQ:=(HHV(HIGH,4) = HHV(HIGH,120));
STICKLINE((FXQ > 0),305,295,8,0),COLORFFFFFF;

VV1:=((((2 * CLOSE) + HIGH) + LOW) / 4);
VV2:=LLV(LOW,5);
VV3:=HHV(HIGH,4);
VV4:=EMA((((VV1 - VV2) / (VV3 - VV2)) * 100),4);
VV5:=EMA(((0.667 * REF(VV4,1)) + (0.333 * VV4)),2);
DRAWTEXT(((CROSS(VV4,VV5) AND (VV4 < 50)) AND (VV4 > 29)),DK,'短進'),COLORRED;
DRAWTEXT((CROSS(VV4,VV5) AND (VV4 < 30)),DK,'低吸'),COLORRED;
DRAWTEXT((CROSS(VV5,VV4) AND (VV4 > 70)),DJ,'短出'),COLORBLUE;
W1:=(EMA(CLOSE,12) - EMA(CLOSE,26));
W2:=EMA(W1,9);
W3:=(2 * (W1 - W2));
W4:=REF(W3,1);
W5:=(CROSS(W4,W3) AND (W4 > 0));
DRAWTEXT(W5,DJ,'減磅'),COLORBLUE;
XX1:=(MA(((100 * (CLOSE - LLV(CLOSE,34))) / (HHV(HIGH,34) - LLV(LOW,34))),5) - 20);
XX2:=(((HIGH + LOW) + CLOSE) / 3);
XX3:=((XX2 - MA(XX2,10)) / (0.015 * AVEDEV(XX2,10)));
XX4:=((XX2 - MA(XX2,30)) / (0.015 * AVEDEV(XX2,30)));
XX5:=IF(((((XX3 >= 150) AND (XX3 < 200)) AND (XX4 >= 150)) AND (XX4 < 200)),10,0);
XX6:=IF(((((XX3 <= (0 - 150)) AND (XX3 > (0 - 200))) AND (XX4 <= (0 - 150))) AND (XX4 > (0 - 200))),(0 - 10),XX5);
XX7:=IF((XX1 > 0),XX1,0);
預警系統: (IF((((XX4 >= 200) AND (XX3 >= 150)) OR CROSS(65,XX7)),10,IF(((XX4 <= (0 - 200)) AND (XX3 <= (0 - 150))),(0 - 15),XX6)) + 200),COLORE4D444;
300,COLORFF00F8;
100,COLORFF0000;
----58波段吸籌2--------
VAR1:=(HHV(HIGH,9)-CLOSE)/(HHV(HIGH,9)-LLV(LOW,9))*100-70;
VAR2:=SMA(VAR1,9,1)+100;
VAR3:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
VAR4:=SMA(VAR3,3,1);
VAR5:=SMA(VAR4,3,1)+100;
VAR6:=VAR5-VAR2;
趨勢: IF(VAR6>45,VAR6-45,0);
STICKLINE(REF(趨勢,1)< 趨勢, 趨勢,REF(趨勢,1),5,0),COLORFF00FF;
STICKLINE(REF(趨勢,1)> 趨勢, 趨勢,REF(趨勢,1),5,0),COLOR00FF00;
強弱分界:50,POINTDOT,COLORRED;
0,COLOR00FFFF;
20,POINTDOT,COLORFFAA66,LINETHICK1;
80,POINTDOT,COLORFFAA66,LINETHICK1;
100,COLORFFFF33;
V1:=LLV(LOW,10);
V2:=HHV(H,25);
價位線:=EMA((C-V1)/(V2-V1)*4,4);
DRAWTEXT(CROSS(價位線,0.3),7,'●'),COLORRED;
DRAWTEXT(CROSS(3.5,價位線),102,'●'),COLORRED;
VAR2Q:=REF(LOW,1);
VAR3Q:=SMA(ABS(LOW-VAR2Q),3,1)/SMA(MAX(LOW-VAR2Q,0),3,1)*100;
VAR4Q:=EMA(IF(CLOSE*1.3,VAR3Q*10,VAR3Q/10),3);
VAR5Q:=LLV(LOW,30);
VAR6Q:=HHV(VAR4Q,30);
VAR7Q:=IF(MA(CLOSE,58),1,0);
VAR8Q:=EMA(IF(LOW<=VAR5Q,(VAR4Q+VAR6Q*2)/2,0),3)/618*VAR7Q;
VAR9Q:=IF(VAR8Q>100,100,VAR8Q);
吸籌:STICKLINE(VAR9Q>-120,0,VAR9Q,6,1),COLORRED;
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));
AA6:=SMA(AA3,21,8);
賣臨界:STICKLINE(走勢-AA6>85,103,100,15,1),COLORRED,LINETHICK2;

-------m 3 100 60--- n-3 100 30---
5★波段吸籌1
散戶線: 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),COLORRED,LINETHICK3;
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)),COLOR238E23,LINETHICK3;
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);
-----------88跟莊建倉----------------

A01:=DYNAINFO(7);
A03:=BARSCOUNT(CLOSE);
A04:=(SMA((CLOSE / HHV(HIGH,120)),3,1) * 100);
A05:=IF((A03 > 20),A04,0);
A06:=IF((LOW > A01),0,IF((HIGH < A01),1,(((A01 - LOW) + 0.009) / ((HIGH - LOW) + 0.009))));
A07:=DMA(A06,(VOL / CAPITAL)) * 60;
A09:=IF((((A07 > 0) AND (A07 > REF(A07,1))) AND (A05 <= 88)),A07,0);
VAR1:=3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1);
VAR2:=EMA(VAR1,1);
VAR3:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA(SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1),3,1);
趨勢:EMA(VAR3,3)-10,COLORRED,LINETHICK3;
K1:=BACKSET(趨勢<REF(趨勢,1),2);
IF(K1,趨勢,DRAWNULL),COLOR238E23,LINETHICK3;
機構建倉區:=0,LINETHICK0,COLORFFFF00;
VAR4:=(趨勢-REF(趨勢,1))/REF(趨勢,1)*100;
STICKLINE(趨勢<=13 AND VAR4>13,0,50,1,0),COLOR0099FF;
VAR5:=FILTER((趨勢<=13 AND VAR4>13),10);
DRAWTEXT(VAR5,60,'買入'),COLOR0099FF;
STICKLINE(趨勢>=90 AND VAR4,0,30,2,0),COLORGRAY;
VAR6:=FILTER((趨勢>=90 AND VAR4),10);
DRAWTEXT(VAR6,40,'清倉'),COLORGRAY;
VAR7:=LLV(LOW,30);
VAR8:=HHV(HIGH,30);
VAR9:=EMA((CLOSE-VAR7)/(VAR8-VAR7)*4,4)*25;
STICKLINE(VAR9>90,100,105,5,2),COLOR00FF00;
VAR10:=(VAR9-LLV(VAR9,4))/(HHV(VAR9,4)-LLV(VAR9,4))*100;
DRAWTEXT(IF(CROSS(VAR9,VAR10) AND VAR9>87,95,0),88,'險'),COLOR00FF00,;
VAR11:=SMA(ABS(L-REF(L,1)),3,1)/SMA(MAX(L-REF(L,1),0),3,1)*100;
VAR12:=HHV(VAR11,30)*8;
火焰山:EMA(IF(LOW<=VAR7 AND 趨勢<40,(VAR11+VAR12),0),3)/618,COLORRED,LINETHICK2;
STICKLINE(火焰山>0,0 ,火焰山*1.2,4,0 ),COLORRED;
VAR13:=(MA(C,1)+MA(C,3)+MA(C,5)+MA(C,7)+MA(C,9))/5;
VAR14:=(MA(C,2)+MA(C,4)+MA(C,6)+MA(C,8)+MA(C,10))/5;
趨勢線:= 趨勢,COLOR00FF00;
VAR16:=MAX(EMA(VAR13,2)-EMA(VAR14,5),0)*200;
VAR17:=EMA(VAR16,5);
波浪峰:VAR17,STICK,COLORFF66FF;
STICKLINE(VAR17<REF(VAR17,1),0,VAR17,1,0),COLOR00FF00;
VAR18:MA(趨勢線,8),COLORBLUE,LINETHICK1;

－－－－－－－－－－－－－－－－－－

一品KDJ
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:(SMA(RSV,3,1)-50)*4,COLOR00FF00;
漲:CROSS(K,0),COLOR0000FF;
強:CROSS(K,50),COLORYELLOW;
回:CROSS(50,K) AND K>0,COLORWHITE;
{以下設置副圖顯示方式}
STICKLINE(漲,0,50,4,0),COLORYELLOW;
DRAWTEXT(漲,30,'漲'),COLOR0000FF;
STICKLINE(強,50,100,4,0),COLORFF00FF;
DRAWTEXT(強,90,'強'),COLOR00FF00;
STICKLINE(回,0,30,4,0),COLORWHITE;
DRAWTEXT(回,20,'回'),COLOR00FF00;
STICKLINE(K>=50,50,80,4,0),COLORYELLOW;
STICKLINE(K>=100,80,100,4,0),COLORRED;
STICKLINE(K<=-100,-100,-120,4,0),COLORFF6600;
平衡:0,COLOR00FF00;
強勢:50,POINTDOT,COLORYELLOW;
風險:100,POINTDOT,COLOR0000FF;

－私募機構進場－－

AA:=WINNER(C+C*15/100)*100;
BB:=WINNER(C+C*0/100)*100;
CC:=AA-BB;
DD:=(WINNER(C-C*0.1/100)-WINNER(C-C*15/100))*100;
EE:=CC<3 AND DD<0.5 AND O!=L;
A1:=DYNAINFO(6);
A2:=IF(L>A1,0,IF(H<A1,1,(A1-L+0.01)/(H-L+0.01)));
A3:=V/WINNER(L);
A4:=REF(HHV(C,120),1);
A5:=REF(LLV(C,120),1);
A6:=100*(C-A5)/(A4-A5);
A7:=A2>0 OR A2=1;
A8:=A7 AND A3/REF(A3,3)>=3 AND A6<80 ;
A9:=REF(A8,1) OR REF(A8,2) OR REF(A8,3) OR REF(A8,4);
A10:=A8 AND A9;
進場:FILTER(A8,3);
加倉:FILTER(A10,3) OR EE;
私募機構進場日:STICKLINE(進場,0,0.5,4,0),COLORYELLOW;
私募機構加倉日:STICKLINE(加倉,0,1,4,0),COLORFF00FF;
DRAWTEXT(進場,0.8,'進場'),COLORYELLOW;
DRAWTEXT(加倉,1.3,'加倉'),COLORWHITE;－－－－－－－－－－－－－－－－

莊見愁,之絕密公式

VAR1:=(VOL / (((HIGH - LOW) * 2) - ABS((CLOSE - OPEN))));
成交:=VOL;
買盤:=IF((CLOSE > OPEN),(VAR1 * (HIGH - LOW)),IF((CLOSE < OPEN),(VAR1 * ((HIGH - OPEN) + (CLOSE - LOW))),(VOL / 2)));
賣盤:=IF((CLOSE > OPEN),(0 - (VAR1 * ((HIGH - CLOSE) + (OPEN - LOW)))),IF((CLOSE < OPEN),(0 - (VAR1 * (HIGH - LOW))),(0 - (VOL / 2))));
買賣差:=(買盤 + 賣盤);
STICKLINE((VOL > 0),VOL,0,4,1),colorFFFFFF;
STICKLINE((買賣差 > 0),0,買賣差,4,0),color0000FF;
STICKLINE((買賣差 < 0),0,買賣差,2,0),LINETHICK3,color33FF33;
量比1:=(VOL / MA(VOL,5));
VAR10:=買盤;
VAR20:=賣盤;
JX1:=BARSSINCE(買盤);
JY1:=IF(((121 > JX1) AND (JX1 > 0)),JX1,120);
JY2:=IF(((4 > JX1) AND (JX1 > 0)),JX1,3);
VAR30:=MA(VOL,JY2);
動神:=買盤;
鬼力:=VAR20;
神比:=(動神 / VAR30);
鬼比:=(鬼力 / VAR30);
VAR2:=(HIGH - LOW);
VAR3:=ABS((OPEN - CLOSE));
VAR4:=(HIGH - IF((CLOSE > OPEN),CLOSE,OPEN));
VAR5:=(IF((CLOSE > OPEN),OPEN,CLOSE) - LOW);
VAR6:=((VAR3 / VAR2) * VOL);
VAR7:=((VAR4 / VAR2) * VOL);
VAR8:=((VAR5 / VAR2) * VOL);
VAR9:=IF(((VOL / CAPITAL) > 0.001),1,EXP(ABS(LOG(((VOL / CAPITAL) * 100)))));

VARA:=(((CLOSE - MA(CLOSE,5)) / MA(CLOSE,5)) * 100);
VARB:=(((MA(CLOSE,5) > MA(CLOSE,10)) AND (MA(CLOSE,10) > MA(CLOSE,30))) AND (MA(CLOSE,30) > MA(CLOSE,60)));
VARC:=((MA(CLOSE,5) < MA(CLOSE,10)) AND (MA(CLOSE,10) < MA(CLOSE,30)));
VARD:=REF(CLOSE,1);
VARE:=((SMA(MAX((CLOSE - VARD),0),6,1) / SMA(ABS((CLOSE - VARD)),6,1)) * 100);
VAR40:=((IF((((VAR6 >= VAR7) AND (VAR6 >= VAR8)) AND (CLOSE > OPEN)),VAR6,動神) + 動神) / 2);
VAR41:=((IF(((VAR7 > VAR6) AND (VAR7 > VAR8)),VAR7,動神) + 動神) / 2);
VAR42:=((IF(((VAR8 > VAR6) AND (VAR8 > VAR7)),VAR8,動神) + 動神) / 2);
VAR50:=((IF((((VAR6 >= VAR7) AND (VAR6 >= VAR8)) AND (CLOSE < OPEN)),VAR6,鬼力) + 鬼力) / 2);
三日上攻:=MA((((VAR40 + VAR41) + VAR42) / 3),JY2);
三日下攻:=MA(VAR50,JY2);
多頭:STICKLINE((CLOSE > MA(CLOSE,30)),0,VOL,4,1),color0000FF;
空頭:STICKLINE((CLOSE < MA(CLOSE,30)),0,VOL,4,1),color00FF00;
STICKLINE((鬼力 > 0),鬼力,0,4,0),colorFF3399;
加倉:STICKLINE((((VAR6 >= VAR7) AND (VAR6 >= VAR8)) AND (CLOSE > OPEN)),0,VAR6,4,0),color00FFFF;
減倉:STICKLINE((((VAR6 >= VAR7) AND (VAR6 >= VAR8)) AND (CLOSE < OPEN)),0,VAR6,4,0),colorFF0000;
洗盤:STICKLINE(((VAR8 > VAR6) AND (VAR8 > VAR7)),0,VAR8,4,0),colorFFFFFF;
高賣:STICKLINE(((VAR7 > VAR6) AND (VAR7 > VAR8)),0,VAR7,4,0),colorFF00FF;
相對地量:=STICKLINE(((VAR9 > 2) AND (VOL < (MA(VOL,5) / 2))),0,VOL,3,0);

------------
選好股，挑好莊；等大勢，看起航。
跟上了，看著莊；他撤退，我清倉。
破趨勢，急離場；等著跌，莫手癢。
白色燭，紅芯長，莊家找底在振蕩，俺也伺機建點倉。
　　
黃色燭，紅芯長；莊家進貨強，俺也進貨等起航。
粉色燭，紅芯長，莊家高拋低吸操作忙，俺也去逐浪。
藍色燭，紅芯短，巨量綠尾長，莊家撤退，俺也清倉。
巨量綠，藍燭長，趨勢破，急離場；等著跌，莫手癢。

私募機構進場加倉日
AA:=WINNER(C+C*15/100)*100;
BB:=WINNER(C+C*0/100)*100;
CC:=AA-BB;
DD:=(WINNER(C-C*0.1/100)-WINNER(C-C*15/100))*100;
EE:=CC<3 AND DD<0.5 AND O<L;{>}
A1:=DYNAINFO(6);
A2:=IF(L>A1,0,IF(H<A1,1,(A1-L+0.01)/(H-L+0.01)));
A3:=V/WINNER(L);
A4:=REF(HHV(C,120),1);
A5:=REF(LLV(C,120),1);
A6:=100*(C-A5)/(A4-A5);
A7:=A2>0 OR A2=1;
A8:=A7 AND A3/REF(A3,3)>=3 AND A6<80 ;
A9:=REF(A8,1) OR REF(A8,2) OR REF(A8,3) OR REF(A8,4);
A10:=A8 AND A9;
A11:=IF(FILTER(A8,3),5,0);
A12:=IF(FILTER(A10,3) OR EE,10,0);
私募機構進場日:STICKLINE(A11,0,5,5,0),COLORFF7700;
私募機構加倉日:STICKLINE(A12,0,15,5,0),COLORFF00FF;
STICKLINE(A11,0,5,5,0),COLORFF7700;
STICKLINE(A11,0,5,4.5,0),COLORFF8800;
STICKLINE(A11,0,5,4,0),COLORFF9900;
STICKLINE(A11,0,5,3.5,0),COLORFFAA00;
STICKLINE(A11,0,5,3,0),COLORFFBB00;
STICKLINE(A11,0,5,2.5,0),COLORFFCC00;
STICKLINE(A11,0,5,2,0),COLORFFDD00;
STICKLINE(A11,0,5,1,0),COLORFFEE00;
STICKLINE(A12,0,15,4.5,0),COLOR102099;
STICKLINE(A12,0,15,4,0),COLOR1020AA;
STICKLINE(A12,0,15,3.5,0),COLOR1020BB;
STICKLINE(A12,0,15,3,0),COLOR1020CC;
STICKLINE(A12,0,15,2.5,0),COLOR1020DD;
STICKLINE(A12,0,15,2,0),COLOR1020EE;
{STICKLINE(A12,0,15,1,0),COLOR1020FF;{COLOR1020FF}
{DRAWTEXT(A11,LOW,'進場'),COLORYELLOW;
DRAWTEXT(A12,LOW,'加倉'),COLORWHITE;};
－－－－－－－－－－－－－－－－－

0803-主力控盤{資金流向}----------------
{資金流向}
ZLCM:=EMA(WINNER(CLOSE)*70,3);
SHCM:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,3);
ZSHTL:=SHCM/(ZLCM+SHCM)*100;
ZZLKP:=ZLCM/(ZLCM+SHCM)*100;
ZCMZL:=MA(ZLCM+SHCM,13);
ZSHJJ:=EMA(ZSHTL,89);
ZZLJJ:=EMA(ZZLKP,89);
ZJLRQD:=(ZZLKP-ZZLJJ);
SH8:=EMA(ZSHTL,8);
DKB:=IF(ZZLKP-REF(ZZLKP,1)>ZSHTL-REF(ZSHTL,1),1,0);
散戶套牢系數:(ZSHTL),LINETHICK1,COLOR009900;
主力控盤系數:(ZZLKP),LINETHICK1,COLORRED;
資金強度:ZJLRQD>0,COLORRED,LINETHICK1;
籌碼總量:(ZCMZL),COLOR0066FF,LINETHICK2;
STICKLINE(ZCMZL<EMA(ZCMZL,2),ZCMZL,ZCMZL,4,0),COLORFF0000,LINETHICK3;
{神秘風洞}
STICKLINE(REF(ZSHTL,1)>90 AND ZSHTL<90,ZSHTL,0,8,0),COLOR9966FF;
{散戶套牢籌碼}
STICKLINE(CLOSE>0,ZSHTL,ZZLKP,0,0),COLOREEEEEE;
{散戶籌碼警戒}
STICKLINE(ZSHJJ>REF(ZSHJJ,1),ZSHTL,ZSHJJ,1,0),COLORGREEN;
{散戶線}
散戶線:ZSHTL,LINETHICK3,COLORBLUE;
{主力控盤籌碼}
STICKLINE(CLOSE>0,ZZLKP,0,7,0),COLORCYAN;
{鑄頂風險區}
STICKLINE(ZZLKP>75,ZZLKP,0,7,0),COLORFFFFFF;
{主力籌碼警戒}
STICKLINE(ZZLJJ>REF(ZZLJJ,1),ZZLKP,ZZLJJ,7,0),LINETHICK2,COLORRED;
{筑底散兵坑}
STICKLINE(ZSHTL>=90,ZZLKP,0,7,0),COLORBLUE;
{增量資金}
DRAWTEXT(ZCMZL>REF(ZCMZL,1) AND SH8<REF(SH8,1) AND ZCMZL,100,'▲'),LINETHICK2,COLORRED;
-------------

資金流向2008080808

ZLCM:=EMA(WINNER(CLOSE)*70,3);{//主力籌碼估算}
SHCM:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,3);{//散戶籌碼估算}
ZSHTL:=SHCM/(ZLCM+SHCM)*100;{//散戶套牢籌碼比率}
ZZLKP:=ZLCM/(ZLCM+SHCM)*100;{//主力控盤籌碼比率}
ZCMZL:=MA(ZLCM+SHCM,13);{//市場籌碼總量}
ZZNTS:=BARSLAST(ZSHTL<90 AND REF(ZSHTL,1)>90);{//走牛天數}
ZSHJJ:=EMA(ZSHTL,89);{//散戶警戒}
ZZLJJ:=EMA(ZZLKP,89);{//主力警戒}
ZJLRQD:=INTPART(ZZLKP-ZZLJJ);{//資金流入強度}
SH8:=EMA(ZSHTL,8);
DKB:=IF(ZZLKP-REF(ZZLKP,1)>ZSHTL-REF(ZSHTL,1),1,0);
{散戶套牢籌碼}
STICKLINE(C>0,ZSHTL,ZZLKP,0,0),COLORGREEN;
{散戶籌碼警戒}
STICKLINE(ZSHJJ>REF(ZSHJJ,1),ZSHTL,ZSHJJ,1,0),COLORGREEN;
{主力控盤籌碼}
STICKLINE(C>0,ZZLKP,0,0,0),COLORRED;
{鑄頂風險區}
STICKLINE(ZZLKP>75,ZZLKP,0,2,0),COLORWHITE;
{頂部:(ZZLKP>75),COLORWHITE;}
{主力籌碼警戒}
STICKLINE(ZZLJJ>REF(ZZLJJ,1),ZZLKP,ZZLJJ,4,0),COLORRED;
{筑底散兵坑}
STICKLINE(ZSHTL>=90,ZZLKP,0,5,0),COLORBLUE;
{底部:(ZSHTL>=90),COLORWHITE;}
{籌碼總量上升}
IF(ZCMZL,ZCMZL>REF(ZCMZL,1),DRAWNULL),COLOR0066FF,LINETHICK1;
{增量資金};
{//------【數值顯示】}
散戶套牢系數:INTPART(ZSHTL),COLORBLUE,LINETHICK3;
主力控盤系數:INTPART(ZZLKP),COLORFF00FF,LINETHICK3;
資金流入強度:ZJLRQD,LINETHICK3,COLORRED;
市場籌碼總量:INTPART(ZCMZL),COLORBLUE,NODRAW;
散兵坑:ZSHTL>=90,COLORBLUE;
DRAWICON((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)),LOW*0.98,1) ;
DRAWICON((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)),HIGH*1.01,2);

-------------------------------

----------------
8機構買進賣出
{N:1,100,8;}

RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:=SMA(RSV,3,1),COLORYELLOW;
D:=SMA(K,3,1),COLOR009900,;
買進:IF(D<25 AND CROSS(K,D) ,50,0),,,COLORRED,STICK;
IF(D<25 AND CROSS(K,D) ,50,0),,,COLORRED,CIRCLEDOT;
IF(D<25 AND CROSS(K,D) ,40,0),,,COLORRED,CIRCLEDOT,LINETHICK3;
IF(D<25 AND CROSS(K,D) ,35,0),,,COLORRED;
IF(D<25 AND CROSS(K,D) ,0,0),COLORRED,CIRCLEDOT;
賣出:IF(D>75 AND CROSS(D,K) ,60,0),COLOR009900,STICK;
IF(D>75 AND CROSS(D,K) ,60,0),COLOR009900,CIRCLEDOT;
IF(D>75 AND CROSS(D,K) ,48,0),COLOR009900,CIRCLEDOT;
IF(D>75 AND CROSS(D,K) ,45,0),COLOR009900;
IF(D>75 AND CROSS(D,K) ,0,0),COLORRED,CIRCLEDOT;
STICKLINE(K>D,K,D,5,0),COLORRED;
STICKLINE(D>K,K,D,5,0),COLORBLUE;

VAR1:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;
VAR2:=(CLOSE-MA(CLOSE,26))/MA(CLOSE,21)*100;
VAR3:=(CLOSE-MA(CLOSE,90))/MA(CLOSE,34)*100;
VAR4:=(VAR1+3*VAR2+9*VAR3)/13;
VAR5:=(100-ABS(VAR4));
VAR6:=ABS((COST(40)-CLOSE)/CLOSE*100);
買:COUNT(WINNER(C)<0.05 AND VAR6>0.5*VAR5,3)>=1;
VAR10:=LLV(LOW,10);
VAR13:=HHV(HIGH,25);
M:EMA((CLOSE-VAR10)/(VAR13-VAR10)*4,4)*25,COLORRED,LINETHICK3;
RSV10:= (HHV(HIGH,11)-CLOSE)/(HHV(HIGH,11)-LLV(LOW,11))*100;
LWR1:SMA(RSV10,3,1),COLORMAGENTA,LINETHICK2;
LWR2:SMA(LWR1,3,1),COLOR009900,LINETHICK1;

----------------

8累計漲幅
VAR1:=EMA(CLOSE,10);
VAR2:=(VAR1-EMA(CLOSE,5)<0);
VAR3:=(VAR1-EMA(CLOSE,5)>0);
持幣:BARSLAST(VAR2),LINESTICK,COLORBLUE;
持股:BARSLAST(VAR3),LINESTICK,COLORRED;
VAR4:=IF((持股>0),((CLOSE-REF(CLOSE,1))/(REF(CLOSE,1)))*(100),0);
累計漲幅:SUM(VAR4,0),COLORRED;
VAR5:=IF((持幣>0),(-2),0);
VAR6:=IF((REF(VAR5,1)=(-2)) AND (VAR5=0),5,0);
VAR7:=IF((REF(持股,1)>0) AND (持股=0),8,0);
VAR8:=IF((持股>0),SUM((CLOSE-REF(CLOSE,1))/(REF(CLOSE,1)),持股),0);
VAR9:=(VAR8)/(持股);
VARA:=0;

－－－－－－－－－－－－

本色k線－－－－－－－－好用
M5:MA(CLOSE,5),COLORRED,LINETHICK5;
IF(M5<REF(M5,1),M5,DRAWNULL),COLORBLUE,LINETHICK5;
M13:MA(CLOSE,13),COLORMAGENTA,LINETHICK3;
IF(M13<REF(M13,1),M13,DRAWNULL),COLORGREEN,LINETHICK5;
M20:MA(CLOSE,20),COLORRED,LINETHICK3;
IF(M20<REF(M20,1),M20,DRAWNULL),COLOR009900,LINETHICK5;
M60:MA(CLOSE,60),COLORBLUE,LINETHICK2;
------------------------

短期趨勢: ZIG(3,4.5),LINETHICK2, COLORBLACK;
DRAWTEXT(CROSS(ZIG(3,8),REF(ZIG(3,8),1)),LOW*1.02,'★B') ,COLORRED;
DRAWTEXT(CROSS(REF(ZIG(3,10),1),ZIG(3,10)),HIGH*1.02,'●S'), COLORBLUE;
VAR1:=ZIG(3,10)<REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)>REF(ZIG(3,10),2);
VAR2:=ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)<REF(ZIG(3,10),2);

----紅財神均線------
m1 2 1000 5
m2 2 1000 10
m3 2 1000 20
m4 2 1000 60

-------
M5:MA(CLOSE,5),COLORRED,LINETHICK5;
IF(M5<REF(M5,1),M5,DRAWNULL),COLORBLUE,LINETHICK5;
M13:MA(CLOSE,13),COLORMAGENTA,LINETHICK3;
IF(M13<REF(M13,1),M13,DRAWNULL),COLORGREEN,LINETHICK5;
M20:MA(CLOSE,20),COLORRED,LINETHICK3;
IF(M20<REF(M20,1),M20,DRAWNULL),COLOR009900,LINETHICK5;
M60:MA(CLOSE,60),COLORBLUE,LINETHICK2;
DRAWICON((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)),LOW*0.98,1) ;
DRAWICON((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)),HIGH*1.01,2);

DRAWTEXT(VARA=20,LOW*0.95,'底') COLORRED;

－－1★操盤箱體－－－－
n      3   30 10
m1   2 1000 3
m2   2 1000 13

－－－－
MA1:MA(CLOSE,M1);
MA2:MA(CLOSE,M2);

【箱頂】:PEAK(CLOSE,N,1)*0.98;
【箱底】:TROUGH(CLOSE,N,1)*1.02;
【箱高】:100*(【箱頂】-【箱底】)/【箱底】,NODRAW;

{操盤手}
VAR3:=LLV(HIGH,240);
VAR4:=100*(CLOSE-VAR3)/VAR3;
VAR5:=(CLOSE-LLV(LOW,528))/(HHV(HIGH,528)-LLV(LOW,528))*100;
VAR6:=(CLOSE-LLV(CLOSE,530))/(HHV(CLOSE,530)-LLV(CLOSE,530))*100;
VAR7:=0;
VAR8:=SMA(MAX(CLOSE-REF(CLOSE,1),0),34,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),7,1)*100;
VAR9:=SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100;
VAR10:=IF(TROUGHBARS(3,16,1)=0 AND HIGH>LOW+0.04,4,0);
VAR11:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3);
VAR12:=ZIG(3,6)<REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3);
VAR13:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3);
VAR14:=ZIG(3,22)<REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3);
VAR15:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3);
VAR16:=ZIG(3,51)<REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3);
VAR17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3);
VAR18:=ZIG(3,72)<REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3);
VAR19:=EMA(CLOSE,2)-EMA(CLOSE,150);
買１:=VAR10;
買２:=(VAR11+VAR13+VAR15+VAR17);
賣１:=(VAR12+VAR14+VAR16+VAR18);
B:IF(買１>0 OR 買２>0,LOW*0.99,DRAWNULL),CROSSDOT,LINETHICK4,COLORRED;
S:IF(賣１>0,HIGH*1.01,DRAWNULL),CROSSDOT,LINETHICK4,COLORBLUE;
{利多方舟}
VAR100:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20))));
VAR200:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20))));
VAR300:=(100 - MA(((100 * (HHV(HIGH,5) - CLOSE)) / (HHV(HIGH,5) - LLV(LOW,5))),34));
F:IF(CROSS(VAR200,MA(VAR300,5)),LOW * 0.98,DRAWNULL),CROSSDOT,LINETHICK3,COLOREE00EE;
年:MA(CLOSE,22), COLOR00FF00;
--------------

----1亮哥哥精心----------------------------
M5:MA(CLOSE,5),COLORRED,LINETHICK5;
IF(M5<REF(M5,1),M5,DRAWNULL),COLORBLUE,LINETHICK5;
M13:MA(CLOSE,13),COLORMAGENTA,LINETHICK3;
IF(M13<REF(M13,1),M13,DRAWNULL),COLORGREEN,LINETHICK5;
M20:MA(CLOSE,20),COLORRED,LINETHICK3;
IF(M20<REF(M20,1),M20,DRAWNULL),COLOR009900,LINETHICK5;
M60:MA(CLOSE,60),COLORBLUE,LINETHICK2;

VAR3:=LLV(HIGH,240);
VAR4:=100*(CLOSE-VAR3)/VAR3;
VAR5:=(CLOSE-LLV(LOW,528))/(HHV(HIGH,528)-LLV(LOW,528))*100;
VAR6:=(CLOSE-LLV(CLOSE,530))/(HHV(CLOSE,530)-LLV(CLOSE,530))*100;
VAR7:=0;
VAR8:=SMA(MAX(CLOSE-REF(CLOSE,1),0),34,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),7,1)*100;
VAR9:=SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100;
VARA:=BARSCOUNT(CLOSE);
VARB:=VAR8<20 AND VAR9<23 AND VARA>35;
VARC:=VARB AND COUNT(VARB,1)=1;
VARD:=EMA(CLOSE,21)-EMA(CLOSE,8);
VARE:=EMA(VARD,5);
VARF:=TROUGHBARS(3,6,1)<4 AND CROSS(VARD,VARE);
VAR10:=IF(TROUGHBARS(3,16,1)=0 AND HIGH>LOW+0.04,4,0);
VAR11:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3);
VAR12:=ZIG(3,6)<REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3);
VAR13:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3);
VAR14:=ZIG(3,22)<REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3);
VAR15:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3);
VAR16:=ZIG(3,51)<REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3);
VAR17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3);
VAR18:=ZIG(3,72)<REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3);
VAR19:=EMA(CLOSE,2)-EMA(CLOSE,150);
VAR1A:=EMA(VAR19,100);
VAR1B:=2*(VAR19-VAR1A);
VAR1C:=POW(VAR1B,3)*0.1+POW(VAR1B,1);
VAR1D:=SQRT(SQRT(LOW*HIGH*OPEN*CLOSE));
VAR1E:=EMA(VAR1D*0.97,3);
VAR1F:=(HIGH+LOW+CLOSE)/3;
VAR20:=(VAR1F-MA(VAR1F,14))/(0.015*AVEDEV(VAR1F,14));
VAR21:=CROSS(VAR1E,LOW);

買１:=VAR10;
買２:=(VAR11+VAR13+VAR15+VAR17);
賣１:=(VAR12+VAR14+VAR16+VAR18);
VAR22:=買１ AND VARF AND VARC AND VAR21 AND VAR4<0 AND VAR5=0 AND VAR6=0 AND VAR20<(-110);
VAR1:=MA(CLOSE,5);
VAR2:=MA(CLOSE,10);
VAR3A:=MA(CLOSE,30);
VAR4A:=MA(CLOSE,60);
VAR5A:=EMA(COST(85),7);
VAR6A:=EMA(COST(15),7);
VAR7A:=SUM(CLOSE*VOL*100,4)/SUM(VOL*100,4);
VAR8A:=INTPART(VAR7*100)/100;
VAR9A:=SUM(CLOSE*VOL*100,7)/SUM(VOL*100,7);
VARA1:=INTPART(VAR9*100)/100;
VARB1:=SUM(CLOSE*VOL*100,28)/SUM(VOL*100,28);
VARC1:=INTPART(VARB*100)/100;
VARD1:=EMA(CLOSE,5)-EMA(CLOSE,10);
VARE1:=EMA(VARD,9);
VARF1:=(-100)*(HHV(CLOSE,5)-CLOSE)/(HHV(CLOSE,5)-LLV(LOW,5))+100;
VAR10A:=(-100)*(HHV(CLOSE,10)-CLOSE)/(HHV(CLOSE,10)-LLV(LOW,10))+100;
VAR11A:=(-100)*(HHV(CLOSE,20)-CLOSE)/(HHV(CLOSE,20)-LLV(LOW,20))+100;
VAR12A:=(-100)*(HHV(CLOSE,30)-CLOSE)/(HHV(CLOSE,30)-LLV(LOW,30))+100;
VAR13A:=REF(VARE,1);
VAR14A:=VARE;
VAR15A:=VAR14-VAR13;
VAR16A:=REF(VARD,1);
VAR17A:=VARD;
VAR18A:=VAR17-VAR16;
VAR19A:=OPEN;
VAR1AA:=CLOSE;
買３:=IF(VAR19<=VAR1 AND VAR19<=VAR2 AND VAR19<=VAR3 AND VAR1A>=VAR1 AND VAR1A>=VARC AND VAR15>0 AND VAR18>0,0.5,0);
DRAWICON(買３>0,LOW-0.01,4);
買:IF(買１>0 OR 買２>0,LOW-0.02,DRAWNULL),CROSSDOT,LINETHICK3,COLORRED;
賣:IF(賣１>0,HIGH+0.02,DRAWNULL),CROSSDOT,LINETHICK3,COLORBLUE;
買線:=EMA(CLOSE,2);
賣線:=EMA(SLOPE(CLOSE,21)*20+CLOSE,42);
買1:IF(CROSS(買線,賣線),L-0.02,DRAWNULL),CROSSDOT,LINETHICK3,COLORMAGENTA;
賣2:IF(CROSS(賣線,買線),H+0.02,DRAWNULL),CROSSDOT,LINETHICK3,COLORBLUE;
C2:=REF(C,1);
漲停:=IF((C-C2)*100/C2>=(10-0.01*100/C2),1,0);
STICKLINE(漲停,OPEN,CLOSE,2,0),COLORRED;
STICKLINE(漲停,H,L,0,0),COLORRED;
跌停:=IF((C2-C)*100/C2>=(10-0.01*100/C2),1,0);
STICKLINE(跌停,OPEN,CLOSE,2,0),COLORBLUE;
STICKLINE(跌停,H,L,0,1),COLORBLUE;

------------------

－1價托主圖－－－－－－
MA5:MA(C,5),COLORMAGENTA,LINETHICK3;
MA10:MA(C,10),COLORRED,LINETHICK3;
MA20:MA(C,20),COLORGREEN,LINETHICK3;
MA40:MA(C,40),COLOR009900,LINETHICK3;
MA60:MA(C,60),COLORBLUE,LINETHICK3;
STICKLINE(MA5>=MA60 AND MA60>=MA10,MA10,MA60,4,0),COLORBLUE;
STICKLINE(MA5>=MA10 AND MA5<=MA60,MA10,MA5,4,0),COLORBLUE;
STICKLINE(MA20>=MA60 AND MA60>=MA40,MA40,MA60,4,0),COLORFF00FF;
STICKLINE(MA20>=MA40 AND MA20<MA60,MA40,MA20,4,0),COLORFF00FF;
STICKLINE(MA5>=MA20 AND MA20>=MA10,MA10,MA20,4,0),COLORRED;
STICKLINE(MA5>=MA10 AND MA5<MA20,MA10,MA5,4,0),COLORRED;
STICKLINE(C>=O,H,L,0,0),COLORRED;
STICKLINE(C<O,H,L,0,0),COLOR238E23;
STICKLINE(C>=O,C,O,4,1),COLORRED;
STICKLINE(C<O,C,O,4,0),COLOR238E23;
------------

－－81操盤利多8－－－－－
M5:MA(CLOSE,5),COLORRED,LINETHICK5;
IF(M5<REF(M5,1),M5,DRAWNULL),COLORBLUE,LINETHICK5;
M13:MA(CLOSE,13),COLORMAGENTA,LINETHICK3;
IF(M13<REF(M13,1),M13,DRAWNULL),COLORGREEN,LINETHICK5;
M20:MA(CLOSE,20),COLORRED,LINETHICK3;
IF(M20<REF(M20,1),M20,DRAWNULL),COLOR009900,LINETHICK5;
M60:MA(CLOSE,60),COLORBLUE,LINETHICK2;
MA120:MA(CLOSE,120),COLORMAGENTA,LINETHICK2;
MA250:MA(CLOSE,250),COLORRED,LINETHICK2;
{操盤手}
VAR3:=LLV(HIGH,240);
VAR4:=100*(CLOSE-VAR3)/VAR3;
VAR5:=(CLOSE-LLV(LOW,528))/(HHV(HIGH,528)-LLV(LOW,528))*100;
VAR6:=(CLOSE-LLV(CLOSE,530))/(HHV(CLOSE,530)-LLV(CLOSE,530))*100;
VAR7:=0;
VAR8:=SMA(MAX(CLOSE-REF(CLOSE,1),0),34,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),7,1)*100;
VAR9:=SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100;
VAR10:=IF(TROUGHBARS(3,16,1)=0 AND HIGH>LOW+0.04,4,0);
VAR11:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3);
VAR12:=ZIG(3,6)<REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3);
VAR13:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3);
VAR14:=ZIG(3,22)<REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3);
VAR15:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3);
VAR16:=ZIG(3,51)<REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3);
VAR17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3);
VAR18:=ZIG(3,72)<REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3);
VAR19:=EMA(CLOSE,2)-EMA(CLOSE,150);
買１:=VAR10;
買２:=(VAR11+VAR13+VAR15+VAR17);
賣１:=(VAR12+VAR14+VAR16+VAR18);
買:IF(買１>0 OR 買２>0,LOW*0.99,DRAWNULL),CROSSDOT,LINETHICK3,COLORRED;
賣:IF(賣１>0,HIGH*1.01,DRAWNULL),CROSSDOT,LINETHICK3,COLORBLUE;
{利多方舟}
VAR100:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20))));
VAR200:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20))));
VAR300:=(100 - MA(((100 * (HHV(HIGH,5) - CLOSE)) / (HHV(HIGH,5) - LLV(LOW,5))),34));
F:IF(CROSS(VAR200,MA(VAR300,5)),LOW * 0.98,DRAWNULL),CROSSDOT,LINETHICK3,COLOREE00EE;
年:MA(CLOSE,22),COLORRED,LINETHICK2;