input:P1(28,20,32),P2(32,32,35),P3(35,35,38),n(3,0,20),m(20,0,100);
AAF:LLV(LOW,34),LINETHICK3,COLORgreen;
BBF:MA(AAF,4),LINETHICK3,COLORYELLOW;
ma5:ma(close,5),LINETHICK1;
ma10:ma(close,10),LINETHICK1;
ma20:ma(close,20),LINETHICK1;
ma30:ma(close,30),LINETHICK1,COLORWHITE;
ma60:ma(close,60),LINETHICK2,COLORRED;
VAR1:=IF(DATE<1500830ANDDATE>900101,1,0);
VAR2:=LLV(LOW,10);
VAR3:=HHV(HIGH,25);
K1:=(P1/10)*VAR1*100;
K2:=(P2/10)*VAR1*100;
K3:=(P3/10)*VAR1*100;
RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
X:=LLV(J,2)=LLV(J,8);
Y:=IF(CROSS(J,REF(J+0.01,1))ANDXANDJ<20,30,0);
主力:=EMA((CLOSE-MA(CLOSE,n))/MA(CLOSE,n)*4800,2);
散户:=EMA((CLOSE-MA(CLOSE,m))/MA(CLOSE,m)*4800,7);
动能趋势线:=100*EMA((CLOSE-VAR2)/(VAR3-VAR2)*4,4)*VAR1;
DRAWTEXT(CROSS(动能趋势线,K1),HIGH*1.01,'風險'),COLORGREEN;
DRAWTEXT(CROSS(动能趋势线,K2),HIGH*1.01,'减倉'),COLOR00FF00;
DRAWTEXT(CROSS(动能趋势线,K3),HIGH*1.02,'出局'),COLORWHITE;
DRAWTEXT(CROSS(J,REF(J+0.01,1))ANDXANDJ<20,LOW,'短进'),Color3032FF;
DRAWTEXT(CROSS(主力,散户)AND主力<0AND散户<0,LOW,'見底'),COLORRED;
DRAWICON(CROSS(主力,散户)AND主力<0AND散户<0,LOW,1);
RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
X:=LLV(J,2)=LLV(J,8);
Y:=IF(CROSS(J,REF(J+0.01,1))ANDXANDJ<20,30,0);
主力:=EMA((CLOSE-MA(CLOSE,n))/MA(CLOSE,n)*4800,2);
散户:=EMA((CLOSE-MA(CLOSE,m))/MA(CLOSE,m)*4800,7);
DRAWTEXT(CROSS(J,REF(J+0.01,1))ANDXANDJ<20,LOW,'進貨'),Color0000FD;
DRAWTEXT(CROSS(主力,散户)AND主力<0AND散户<0,LOW,'底'),Color6A00B5;
LC:=REF(CLOSE,1);
RSI:=((SMA(MAX((CLOSE-LC),0),3,1)/SMA(ABS((CLOSE-LC)),3,1))*100);
FF:=EMA(CLOSE,3);
MA15:=EMA(CLOSE,21);
{波動回調}
MA(CLOSE,10000);
STICKLINE((MA15>REF(MA15,1)),MA15,MA15,9,6),LINETHICK2,Color0000FF;
STICKLINE((MA15<REF(MA15,1)),MA15,MA15,9,6),LINETHICK2,Color00FF00;
DRAWTEXT(CROSS(FF,MA15),(LOW*0.99),'關注'),Color0E27FA;
DRAWTEXT(CROSS(88,RSI),(HIGH*1.01),'出貨'),ColorE4FF00;
K綫:=(SMA(HIGH,21,2)*1.05);
STICKLINE((OPEN>=CLOSE),CLOSE,OPEN,9,0),Color6E717F;{1}
STICKLINE((OPEN>=CLOSE),CLOSE,OPEN,8,0),Color82848C;{2}
STICKLINE((OPEN>=CLOSE),CLOSE,OPEN,7,0),Color90A3A1;{3}
STICKLINE((OPEN>=CLOSE),CLOSE,OPEN,6,0),Color9AA3A1;{4}
STICKLINE((OPEN>=CLOSE),CLOSE,OPEN,5,0),ColorA8A3A1;{5}
STICKLINE((OPEN>=CLOSE),CLOSE,OPEN,3.5,0),ColorABA3B2;{6}
STICKLINE((OPEN>=CLOSE),CLOSE,OPEN,1.5,0),ColorB4BEBE;{7}
STICKLINE((CLOSE>=OPEN),CLOSE,OPEN,9,0),Color8795A1;{1}
STICKLINE((CLOSE>=OPEN),CLOSE,OPEN,8,0),Color2200D6;{2}
STICKLINE((CLOSE>=OPEN),CLOSE,OPEN,7,0),Color2200E4;{3}
STICKLINE((CLOSE>=OPEN),CLOSE,OPEN,6,0),Color2B50F1;{4}
STICKLINE((CLOSE>=OPEN),CLOSE,OPEN,5,0),Color2B68F1;{5}
STICKLINE((CLOSE>=OPEN),CLOSE,OPEN,3,0),Color2B8CF1;{6}
STICKLINE((CLOSE>=OPEN),CLOSE,OPEN,1.5,0),ColorABB7B2;{7}
STICKLINE((CLOSE>=OPEN),CLOSE,OPEN,1,0),Color77BF30;{8}
STICKLINE((CLOSE>OPEN),OPEN,LOW,1,0),Color3357FF;
STICKLINE((CLOSE>OPEN),CLOSE,HIGH,1,0),Color3357FF;
STICKLINE((OPEN>CLOSE),CLOSE,LOW,1,0),ColorBBC7C7;
STICKLINE((OPEN>CLOSE),OPEN,HIGH,1,0),ColorBBC7C7;
STICKLINE(((((CLOSE/OPEN)>1.04)AND(CLOSE<K綫))AND((CLOSE-REF(CLOSE,2))>0)),CLOSE,OPEN,9,0),Color32A6FA;{1}
STICKLINE(((((CLOSE/OPEN)>1.04)AND(CLOSE<K綫))AND((CLOSE-REF(CLOSE,2))>0)),CLOSE,OPEN,8,0),Color03BBD8;{2}
STICKLINE(((((CLOSE/OPEN)>1.04)AND(CLOSE<K綫))AND((CLOSE-REF(CLOSE,2))>0)),CLOSE,OPEN,4,0),Color1DABCA;{3}
STICKLINE(((((CLOSE/OPEN)>1.04)AND(CLOSE<K綫))AND((CLOSE-REF(CLOSE,2))>0)),CLOSE,OPEN,2,0),Color1D93CA;{4}
STICKLINE(((((CLOSE/OPEN)>1.04)AND(CLOSE<K綫))AND((CLOSE-REF(CLOSE,2))>0)),OPEN,LOW,0.7,0),Color46E2FD;
STICKLINE(((((CLOSE/OPEN)>1.04)AND(CLOSE<K綫))AND((CLOSE-REF(CLOSE,2))>0)),CLOSE,HIGH,0.7,0),Color46E2FD;
STICKLINE(((((CLOSE<REF(CLOSE,1))AND(CLOSE<REF(CLOSE,1)))AND(HIGH>K綫))AND(CLOSE<K綫)),CLOSE,OPEN,9,0),Color8B6511;{1}
STICKLINE(((((CLOSE<REF(CLOSE,1))AND(CLOSE<REF(CLOSE,1)))AND(HIGH>K綫))AND(CLOSE<K綫)),CLOSE,OPEN,6,0),ColorB28E11;{2}
STICKLINE(((((CLOSE<REF(CLOSE,1))AND(CLOSE<REF(CLOSE,1)))AND(HIGH>K綫))AND(CLOSE<K綫)),CLOSE,OPEN,4,0),ColorB2A111;{3}
STICKLINE(((((CLOSE<REF(CLOSE,1))AND(CLOSE<REF(CLOSE,1)))AND(HIGH>K綫))AND(CLOSE<K綫)),CLOSE,OPEN,2,0),ColorCCB211;{4}
STICKLINE(((((CLOSE<REF(CLOSE,1))AND(CLOSE<REF(CLOSE,1)))AND(HIGH>K綫))AND(CLOSE<K綫)),OPEN,LOW,0.7,0),ColorA3429D;
STICKLINE(((((CLOSE<REF(CLOSE,1))AND(CLOSE<REF(CLOSE,1)))AND(HIGH>K綫))AND(CLOSE<K綫)),CLOSE,HIGH,0.7,0),Color0005FF; |
