感覺不錯

周玨 2009-03-06

展開全文

主圖

KS:=((CLOSE-EMA(CLOSE,13))/EMA(CLOSE,13))*(-100);
趨勢線:=EMA(KS/10+EMA(CLOSE,10),3);
AA:= -100*(趨勢線-CLOSE)/趨勢線;
AC:=EMA(AA,5);
{STICKLINE(CLOSE>=OPEN AND AA>=0 AND AA>=AC,OPEN,CLOSE,2.8,1),COLOR0000FF;
STICKLINE(OPEN>CLOSE AND AA>=0 AND AA>=AC,CLOSE,OPEN,2.8,0),COLOR0000FF;
STICKLINE(CLOSE>=OPEN AND AA>=0 AND AA<AC,OPEN,CLOSE,2.8,1),COLORFF00FF;
STICKLINE(OPEN > CLOSE AND AA >= 0 AND AA < AC,CLOSE,OPEN,2.8,0),COLORFF00FF;
STICKLINE(CLOSE>=OPEN AND AA<0,OPEN,CLOSE,2.8,0),COLORD38784;
STICKLINE(OPEN>CLOSE AND AA<0,CLOSE,OPEN,2.8,0),COLORD38784;}
AG:=SUM((VOL/FINANCE(7)),1);
{STICKLINE(((((((CLOSE >= OPEN) AND (DATATYPE < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA >= 0)),OPEN,(OPEN * 1.008),10,0),COLOR0000FF;
STICKLINE(((((((OPEN > CLOSE) AND (DATATYPE < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA >= 0)),(OPEN * 1.008),OPEN,10,0),COLOR0000FF;
STICKLINE(((((((CLOSE >= OPEN) AND (DATATYPE < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA < 0)),OPEN,(OPEN * 0.998),10,0),COLOR0000FF;
STICKLINE(((((((OPEN > CLOSE) AND (DATATYPE < 7)) ) AND (AG >= 8)) AND (AG < 15)) AND (AA < 0)),(OPEN * 0.998),OPEN,10,0),COLOR0000FF;
STICKLINE((((((CLOSE >= OPEN) AND (DATATYPE < 7)) ) AND (AG >= 15)) AND (AA >= 0)),OPEN,(OPEN * 1.008),15,0),COLORFFFFFF;
STICKLINE((((((OPEN > CLOSE) AND (DATATYPE < 7)) ) AND (AG >= 15)) AND (AA >= 0)),(OPEN * 1.008),OPEN,15,0),COLORFFFFFF;
STICKLINE((((((CLOSE >= OPEN) AND (DATATYPE < 7)) ) AND (AG >= 15)) AND (AA < 0)),OPEN,(OPEN * 0.998),15,0),COLORFFFFFF;
STICKLINE((((((OPEN > CLOSE) AND (DATATYPE < 7)) ) AND (AG >= 15)) AND (AA < 0)),(OPEN * 0.998),OPEN,15,0),COLORFFFFFF;}
SSL:=EMA(CLOSE,3);
MMV:=EMA(SLOPE(CLOSE,22)*20+CLOSE,55);
MM:=1;
{(IF(((DATATYPE > 7) AND (DATATYPE < 11)),MA(MMV,1),IF((DATATYPE = 7),MA(MMV,4),IF((DATATYPE = 6),MA(MMV,8),IF((DATATYPE = 5),MA(MMV,16),IF((DATATYPE = 4),MA(MMV,32),0))))) );}
SA:=0.985;
SS:=MA(CLOSE,5);
DD:=MA(CLOSE,13);
GG:=MA(CLOSE,21);
短趨勢:IF(SS>MM,SSL,SA),LINETHICK1,COLORWHITE;
空方:IF(SSL>MM,MA(MMV,8),SA),LINETHICK1,COLORFFFFFF;
多方:IF(SSL>MM,MA(MMV,16),SA),LINETHICK2,COLORFF00FF;{
IF(SA,SSL<=MM,DRAWNULL),LINETHICK3,COLORFF0000;}
VAR2Y:=((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1))*100;
VAR3Y:=((CLOSE - REF(OPEN,29)) / REF(OPEN,29))*100;
VAR4Y:=REF(CLOSE,1);
VAR5Y:=((SMA(MAX((CLOSE - VAR4Y),0),6,1) / SMA(ABS((CLOSE - VAR4Y)),6,1)) * 100);
VAR6Y:=((SMA(MAX((CLOSE - VAR4Y),0),12,1) / SMA(ABS((CLOSE - VAR4Y)),12,1)) * 100);
VAR7Y:=((SMA(MAX((CLOSE - VAR4Y),0),24,1) / SMA(ABS((CLOSE - VAR4Y)),24,1)) * 100);
VAR8Y:=(((CLOSE - LLV(LOW,45)) / (HHV(HIGH,45) - LLV(LOW,45))) * 100);
VAR9Y:=SMA(VAR8Y,3,1);
VARAY:=SMA(VAR9Y,3,1);
VARBY:=((3 * VAR9Y) - (2 * VARAY));
VARCY:=CROSS(VAR5Y,10) AND VAR3Y<-28*20;
VARDY:=((100 - CROSS(76,VAR5Y)) AND VAR3Y>5*20);
DRAWICON(CROSS(76,VAR5Y) AND VAR3Y>5,HIGH*1.0099,5),COLORFFFFFF;
VAREY:=(CROSS(VAR9Y,VARAY) AND VARAY<10 AND VAR3Y<-30 AND VAR2Y>3)*30;
VARFY:= -((VARAY<11 AND VAR5Y<15 AND VAR3Y<-26)*10);
DRAWICON(CROSS(VARFY,-9),LOW*0.998,4);
能量線:=DMA((CLOSE+OPEN)/2,(VOL/(SMA(VOL,4,1)*4)));
VAR3C:=EMA(能量線,1);
VAR4C:=REF(能量線,1);
STICKLINE(VAR3C>VAR4C,VAR3C,VAR4C,2.5,0),COLOR00FFFF;
X:=EMA(((SLOPE(CLOSE,21) * 20) + CLOSE),68);
Y:=EMA(CLOSE,10);
LL:=REF(CLOSE,2);
MM1:=((SMA(MAX((CLOSE - LL),0),6,1) / SMA(ABS((CLOSE - LL)),6,1)) * 100);
DB:=IF(MM1<REF(MM1,1) AND MM1>79,MM1,0);
DRAWICON(CROSS(Y,X),(LOW * 0.985),1),LINETHICK3,COLORRED;
DRAWICON(CROSS(X,Y),(HIGH * 1.02),2),LINETHICK2,COLOR00FF00;{
DRAWTEXT(DB,(HIGH * 1.02),'↓頂'),LINETHICK2,COLOR00FF00;}
VAR1:=LLV(LOW,21);
VAR2:=HHV(HIGH,21);
AK1:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 100),5);
AK:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 50),13);
DD1:=EMA(((0.667 * REF(AK1,1)) + (0.333 * AK1)),2);
VAR3:=LLV(LOW,55);
VAR4:=HHV(HIGH,34);
VAR5:=EMA((((CLOSE - VAR3) / (VAR4 - VAR3)) * 100),3);
VAR6:=((AK + VAR5) / 2);
VAR7:=EMA(((0.667 * REF(VAR5,1)) + (0.333 * AK1)),2);
VAR8:=EMA(VAR6,5);
BB:=EMA(((0.667 * REF(VAR8,1)) + (0.333 * VAR8)),2);
AB:=CROSS(AK1,AK);
BB1:=(CROSS(AK1,BB) AND (BB < 30));
CD:=(BB1 * 0.6);
DRAWTEXT(CD=0.6,LOW*0.99,'↑底2'),LINETHICK1,COLOR33CC99;
DRAWTEXT(AB=1,LOW*0.99,'↑底1'),LINETHICK1,COLORWHITE;
C1:=(CLOSE+LOW+HIGH)/3;
C2:=EMA(C1,6);
C3:=EMA(C2,5);
C4:=CROSS(C2,C3);
DRAWTEXT(C4,LOW/1.01,'★'),LINETHICK3,COLORRED;
C5:=CROSS(C3,C2);
DRAWTEXT(C5,HIGH*1.03,'★'),LINETHICK3,COLORBLUE;
STICKLINE(CLOSE<OPEN AND REF(CLOSE,1)>REF(OPEN,1),REF(CLOSE,1),REF(CLOSE,1),20,0),COLORFFFFFF;
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)))),COLORGREEN,LINETHICK2;
支撐位:IF(CROSS(J,J24),L,REF(L,BARSLAST(CROSS(J,J24))))
,COLOR77AAFF,LINETHICK2;

幅圖
T1:=5;
T2:=4;
P:=((2)*(CLOSE) + HIGH + LOW + OPEN)/(5);
BB:=MA(P,3);
CC:=(SUM(IF((P > REF(P,1)),(P)*(VOL),0),4))/(SUM(IF((P < REF(P,1)),(P)*(VOL),0),4));
DD:=REF(100 - (100)/(1 + CC),1);
A1:=HHV(P,15);
A2:=LLV(P,15);
A3:=A1 - A2;
A4:=(EMA((P - A2)/(A3),2))*(100);
B1:=HHV(P,60);
B2:=LLV(P,60);
B3:=B1 - B2;
B4:=(EMA((P - B2)/(B3),2))*(100);
C1:=HHV(P,240);
C2:=LLV(P,240);
C3:=C1 - C2;
C4:=(EMA((P - C2)/(C3),2))*(100);
長風險:C4,LINETHICK2,COLOR443434;
中風險:B4,COLORAA7755;
短風險:A4,COLOR44AABB;
IF(FILTER((中風險 < REF(中風險,1)) AND (中風險 > 90) AND (BB < REF(BB,1)),5),92,100),LINETHICK2,COLOR44BB00;
IF(FILTER((中風險 > REF(中風險,1)) AND (中風險 < 5) AND (CLOSE > REF(CLOSE,1)),5),14,0),LINETHICK2,COLOR2222FF;
VAR4:=LLV(LOW,T1);
VAR5:=HHV(HIGH,T2);
散戶:EMA(((P - VAR4)/(VAR5 - VAR4))*(100),T2),LINETHICK2,COLOR3333DD;
莊家:EMA((0.667)*(REF(散戶,1)) + (0.333)*(散戶),2),LINETHICK2,COLORDDCC00;
VAR6:=((HHV(HIGH,4) - P)/(HHV(HIGH,4) - LLV(LOW,4)))*(100) - 72;
VAR7:=((P - LLV(LOW,4))/(HHV(HIGH,4) - LLV(LOW,4)))*(100);
VAR8:=SMA(VAR7,2,1);
{DRAWTEXT(CROSS(散戶,莊家) AND (散戶 < 50) AND (29 < 散戶),20,'▲'),COLORRED;
DRAWTEXT(CROSS(莊家,散戶) AND (散戶 > 40) AND (71 > 散戶),70,'▼'),COLORFF0000;
DRAWTEXT(CROSS(散戶,莊家) AND (散戶 < 30),30,'吸'),COLORRED;}
{DRAWICON(CROSS(散戶,莊家) AND (散戶 < 30),20,1),COLORYELLOW;
DRAWICON(CROSS(莊家,散戶) AND (散戶 > 70),80,2),COLORFF00FF;}
VAR9:=CLOSE - REF(CLOSE,5);
VARA:=((EMA(EMA(VAR9,5),5))/(EMA(EMA(ABS(VAR9),5),5)))*(100);
VARB:=((EMA(EMA(VAR9,10),10))/(EMA(EMA(ABS(VAR9),10),10)))*(100);
VARC:=((EMA(EMA(VAR9,20),20))/(EMA(EMA(ABS(VAR9),20),20)))*(100);
賣出:=IF((VARA > 0) AND CROSS(VARC,VARA),10,0);
DRAWICON((賣出 > 0),60,2),COLOR00FF00;
CCI:=((P - MA(P,14))*(100))/((1.5)*(AVEDEV(P,14)));
RSI1:=((SMA(MAX(CLOSE - REF(CLOSE,1),0),6,1))/(SMA(ABS(CLOSE - REF(CLOSE,1)),6,1)))*(100);
STICKLINE((CCI > 100),106,100,3,0),COLOR00AC00;
STICKLINE((RSI1 > 80),105,102,3,0),COLOR00FE00;
STICKLINE((CCI < (-100)),(-6),0,3,0),COLORYELLOW;
STICKLINE((RSI1 < 25),(-6),(-2),3,0);
D1:=(中風險 > REF(中風險,1)) AND (短風險 > REF(短風險,1)) AND (長風險 > REF(長風險,1)) AND (長風險 < 8) AND (中風險 < 10) AND (短風險 < 15);
D2:=CROSS(短風險,中風險) AND (中風險 < 8);
D3:=CROSS(短風險,長風險) AND (長風險 < 8) AND (中風險 < 20);
DRAWICON(FILTER(D1 OR D2 OR D3 AND (DD < 15) AND (CLOSE > REF(CLOSE,1)),5),8,1),COLORFF0000;
DRAWICON(FILTER((中風險 < REF(中風險,1)) AND (短風險 < REF(短風險,1)) AND (長風險 < REF(長風險,1)) AND (中風險 > 95) AND (短風險 > 85) OR (長風險 > 100) AND (中風險 > 100) AND (短風險 > 100),5),95,2);
警戒:80,COLORDCDCDC;
啟動:20,COLORYELLOW;