FZ南方炎天.ALG
{N:7 P:5 X:8 Q:6 M:20 M1:7 M2:79}
LC:=REF(CLOSE,1);
RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
DRAWTEXT(CROSS(84,RSI) , h*1.05,'賣出') ,colorblue;
SK:=EMA(((2*C+H+L)/4-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*100,n);
SD:=EMA(0.667*REF(SK,1)+0.333*SK,p);
DRAWTEXT(IF(count(close<ref(close,1),x)/x>q/10 and vol>=1.5*ma(vol,5) and
count(sk>=sd,3) and ref(low,1)=LLV(Low,120),1,0),l*0.95,'買進') ,colorblue;
DRAWTEXT(IF(count(close<ref(close,1),13)/13>6/10 and
count(sk>sd,6) and ref(low,5)=LLV(Low,120) and ref(close>=open,4) and
ref(close>open,3) and REF(CLOSE>OPEN,2) AND ref(open>close,1) and
open>ref(close,1),1,0),l*0.95,'買進'),colorblue;
DRAWTEXT(if(CLOSE<MA(CLOSE,80)-MA(CLOSE,10)/3 and VOL/240>MA(VOL,5)/240 AND CLOSE>REF(CLOSE,1)*1.08
AND CLOSE<MA(CLOSE,13)*1.3,1,0),l*0.95,'抄底'),colorblue;
var1:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,5);
買入1:=(var1<6 AND CLOSE/MA(CLOSE,40)<0.85 AND (CLOSE-OPEN)/OPEN*100>4)*90,LINETHICK3,COLORFFAA66;
買入2:=(var1<6 AND CLOSE/MA(CLOSE,40)<0.76 AND LOW*1.051<HIGH AND COUNT(LOW*1.051<HIGH,5)>1)*70,LINETHICK2,COLORGREEN;
買入3:=(var1<6 AND INDEXC*1.03<MA(INDEXC,5) AND INDEXC*1.13<MA(INDEXC,20))*60,LINETHICK2,COLORblue;
DRAWICON(var1<6 AND CLOSE/MA(CLOSE,40)<0.85 AND (CLOSE-OPEN)/OPEN*100>4,l*0.9,10);
DRAWTEXT(var1<6 AND CLOSE/MA(CLOSE,40)<0.85 AND (CLOSE-OPEN)/OPEN*100>4,l*0.85,'--->買入1'),colorred;
DRAWICON(var1<6 AND CLOSE/MA(CLOSE,40)<0.76 AND LOW*1.051<HIGH AND COUNT(LOW*1.051<HIGH,5)>1,l*0.9,10);
DRAWTEXT(var1<6 AND CLOSE/MA(CLOSE,40)<0.76 AND LOW*1.051<HIGH AND COUNT(LOW*1.051<HIGH,5)>1,l*0.85,'--->買入2'),colorred;
DRAWICON(var1<6 AND INDEXC*1.03<MA(INDEXC,5) AND INDEXC*1.13<MA(INDEXC,20),l*0.9,10);
DRAWTEXT(var1<6 AND INDEXC*1.03<MA(INDEXC,5) AND INDEXC*1.13<MA(INDEXC,20),l*0.85,'--->買入3'),colorred;
Var4:=EMA((EMA(CLOSE,95)-EMA(CLOSE,120)),35);
Var5:=((EMA(CLOSE,95)-EMA(CLOSE,120))-Var4)*2;
DRAWICON(FILTER(Var5>0.3,30),h*1.05,9);
DRAWTEXT(FILTER(Var5>0.3,30),h*1.05,'--->頂'),colorred;
Var6:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100;
Var7:=SMA(Var6,5,1);
Var8:=SMA(Var6,10,1);
Var9:=Var8>80 OR Var7>80;
DRAWICON(CROSS(Var8,Var7) AND Var9,h*1.1,11),ALIGN0;
DRAWTEXT(CROSS(Var8,Var7) AND Var9,HIGH*1.11,'-->賣出'), colorblue;
D1:=((AMOUNT)/(VOL))/(100);
D2:=((3)*(HIGH)+LOW+OPEN+(2)*(CLOSE))/(7);
D3:=((SUM(AMOUNT,13))/(D1))/(100);
D4:=DMA(D2,(VOL)/(D3));
D5:=((CLOSE-D4)/(D4))*(100);
D6:=((INDEXC-LLV(INDEXL,10))/(HHV(INDEXH,10)-LLV(INDEXL,10)))*(100);
KK:=SMA(D6,3,1);
DD:=SMA(KK,3,1);
DRAWICON(CROSS(KK,DD) AND (KK<50) AND (COUNT((D5<=(-17)),5)>=1),LOW,1),Color00FF00;
AA1:=((CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15)))*(100);
AA2:=SMA(AA1,5,1);
K:=SMA(AA2,3,1);
D:=SMA(K,3,1);
S:=IF(CROSS(K,D) AND (K<20),100,0);
S1:=IF(CROSS(D,K) AND (K>40),100,0);
DRAWTEXT(FILTER(S,30),LOW,'買'),ColorFFFFFF;
A6:=REF(CLOSE,1);
A7:=((SMA(MAX(CLOSE-A6,0),6,1))/(SMA(ABS(CLOSE-A6),6,1)))*(100);
A8:=EMA(((((2)*(CLOSE)+HIGH+LOW)/(4)-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)))*(100),6);
A9:=EMA((0.66699999)*(REF(A8,1))+(0.333)*(A8),4);
DRAWTEXT(IF(((COUNT((CLOSE<REF(CLOSE,1)),8))/(8)>0.30000001) AND COUNT((A8>A9),3) AND (REF(LOW,1)=LLV(LOW,120)) AND (CLOSE>OPEN),1,0),LOW,'-->買'),Color0000FF;
DRAWTEXT(CROSS(85,A7),HIGH,'-進入風險'),Color0000FF;
Var51:=EMA(EMA(EMA(CLOSE,8),13),62);
Var52:=(REF(HIGH,1)+REF(LOW,1))/2;
Var53:=MA(CLOSE,m)+2*STD(CLOSE,m);
DRAWICON(CROSS(Var52,Var53),HIGH*1.035,11);
DRAWTEXT(CROSS(Var52,Var53),HIGH*1.04,'-->賣出'), COLORGREEN;
Var54:=SMA(MAX(CLOSE-REF(CLOSE,1),0),m1,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),m1,1)*100;
Var55:=FILTER(CROSS(m2,Var54),4);
DRAWICON(Var55,HIGH*1.035,11);
DRAWTEXT(Var55,HIGH*1.04,'-->賣出'), COLORblue;
Var56:=EMA(((2*CLOSE+HIGH+LOW)/4-Var51)/(Var52-Var51)*100,7);
Var57:=EMA(0.667*REF(Var56,1)+0.333*Var56,5);
DRAWTEXT(IF(COUNT(CLOSE<REF(CLOSE,1),8)/8>0.6 AND VOL>=1.5*MA(VOL,5) AND COUNT(Var56>=Var57,3) AND REF(LOW,1)=LLV(LOW,120),1,0),LOW,'●買進');
DRAWTEXT(IF(COUNT(CLOSE<REF(CLOSE,1),13)/13>0.6 AND COUNT(Var56>Var57,6) AND REF(LOW,5)=LLV(LOW,120) AND REF(CLOSE>=OPEN,4) AND REF(CLOSE>OPEN,3) AND REF(CLOSE>OPEN,2) AND REF(OPEN>CLOSE,1) AND OPEN>REF(CLOSE,1),1,0),LOW,'●買進'), , COLORblue;
Var58:=MA(CLOSE,80)-MA(CLOSE,10)/3;
DRAWTEXT(IF(CLOSE<Var58 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;
DRAWICON(CROSS(MA(CLOSE,5),MA(CLOSE,30)),LOW-LOW*0.01,8);
ma5:ma(c,5);
bb5:=ma5-ref(ma5,1);
ma10:ma(c,10);
bb10:=ma10-ref(ma10,1);
PARTLINE(bb5>0,MA5),colorcc00ff,LINETHICK2;
PARTLINE(bb5<=0,MA5),colorff9999,LINETHICK2;
PARTLINE(bb10>0,MA10),color0066ff,LINETHICK2;
PARTLINE(bb10<=0,MA10),color00ff33,LINETHICK2;
MA5速率:bb5*100,LINETHICK0;
MA10速率:bb10*100,LINETHICK0;
BB:=MA(((CLOSE-LLV(LOW,10))/(HHV(HIGH,10)-LLV(LOW,10)))*(100),20);
VAR61:=(REF(HIGH,1))*(1.1);
VAR62:=(HIGH)*(1.1);
VAR63:=((VAR62)*(VOL)+(VAR61)*(CAPITAL-VOL))/(CAPITAL);
VAR64:=(REF(LOW,1))*(0.89999997);
VAR65:=(LOW)*(0.89999997);
VAR66:=((VAR65)*(VOL)+(VAR64)*(CAPITAL-VOL))/(CAPITAL);
VAR67:=EMA(VAR66,30);
VAR68:=EMA(VAR63,30);
VAR69:=VAR68-2;
VAR70:=IF((CLOSE<=VAR67),VAR69,VAR68);
底:VAR70,,linethick2,ColorA5E2E;
趨:VAR69,,pointdot,linethick4,Color10578C;
【趨勢線】:=(SMA(BB,30,1))/(20),linethick2,Colorblue;
【底部線】:=(HHV(HIGH,30))/(LLV(LOW,30)),linethick2,ColorFFFF00;
STICKLINE(CROSS(【底部線】,【趨勢線】),底*1.15,底*1.2,8,0),color972E6E;
DRAWTEXT(CROSS(【底部線】,【趨勢線】),底,'【進入底部】'),Color972E6E;
STICKLINE(CROSS(【趨勢線】,【底部線】),底*1.15,底*1.2,8,0),color395558;
DRAWTEXT(CROSS(【趨勢線】,【底部線】),底,'【沖出底部】'),Color395558;
{籌碼空間}
STICKLINE(c and WINNER(C)>ref(WINNER(C),1),WINNER(C)*100,0,5,1),COLORRED;
STICKLINE(c and WINNER(C)<ref(WINNER(C),1),WINNER(C)*100,0,5,0),COLORCYAN;
K: EMA((C-LLV(L,21))/(HHV(H,21)-LLV(L,21))*100,8),COLORGREEN;
Vx1:=EMA((C-LLV(L,55))/(HHV(H,34)-LLV(L,55))*100,3);
D: EMA(0.667*REF(K,1)+0.333*K,2),COLORYELLOW;
籌碼快線:ema(WINNER(C)*100,13),COLORMAGENTA;
籌碼慢線:ema(WINNER(C)*100,55),COLORBLUE;
已改:FXJ可用的{籌碼空間}
STICKLINE(C AND WINNER(C)>REF(WINNER(C),1),WINNER(C)*100,0,5,1),COLORRED;
STICKLINE(C AND WINNER(C)<REF(WINNER(C),1),WINNER(C)*100,0,5,0),COLORCYAN;
K: EMA((C-LLV(L,21))/(HHV(H,21)-LLV(L,21))*100,8),COLORGREEN;
VX1:=EMA((C-LLV(L,55))/(HHV(H,34)-LLV(L,55))*100,3);
D: EMA(0.667*REF(K,1)+0.333*K,2),COLORYELLOW;
籌碼快線:EMA(WINNER(C)*100,13),COLORMAGENTA;
籌碼慢線:EMA(WINNER(C)*100,55),COLORBLUE;
析家原碼的----------作者:無名山人
<奇妙撐壓>--分析家原碼.
<奇妙撐壓>--原作MACD----ahfyxl.我只稍稍的動了一下有關(guān)部分算是國慶送禮吧
謝謝無名山人??!
INPUT:N(13,1,100),P(3,1,10),Q(3,1,35);
DRAWGBK(C,STRIP(RGB(100,50,0),RGB(100,100,0),0));
X1:=REF(C,1);
X2:=SMA(MAX(C-X1,0),N,1)/SMA(ABS(C-X1),N,1)*100;
X3:=((3*SMA((C-LLV(L,27))/(HHV(H,27)-LLV(L,27))*100,5,1)-2*SMA(SMA((C-LLV
(L,27))/(HHV(H,27)-LLV(L,27))*100,5,1),3,1)-50)*1.032+50);
X4:=(X2+X3)/2;
奇妙線:C+(X4/50-1)*(MA(C,30)/20)*P,COLORFFEEBB;
AA1:=EMA(C,2); { 短指數(shù)平滑移動平均線 }
BB1:=EMA(AA1,2); { 平滑 }
A:=MA(BB1,3); { 平均 }
AA2:=EMA((H+C+O)/3,18); { 長指數(shù)平滑移動平均線 }
DD3:=A>=AA2 AND C>AA2; { 短>長,且收>長 }
DD4:=A<AA2 ; { 短<長 }
DD5:=A>AA2 ; { 短>長 }
STICKLINE((DD4 OR DD5)AND O<=C,C,O,6,0),COLORFF88CC; {跌勢陽線}
STICKLINE((DD4 OR DD5)AND O<=C,H,L,0.5,0),COLORFF88CC; {跌勢陽線}
STICKLINE((DD4 OR DD5)AND O>=C,C,O,6,0),COLORCYAN; {跌勢陰線}
STICKLINE((DD4 OR DD5)AND O>=C,H,L,0.5,0),COLORCYAN; {跌勢陰線}
STICKLINE((DD3 OR C>AA2)AND O<=C,C,O,6,0),COLORRED; {漲勢陽線}
STICKLINE((DD3 OR C>AA2)AND O<=C,H,L,0.5,0),COLORRED; {漲勢陽線}
STICKLINE((DD3 OR C>AA2)AND O>=C,C,O,6,0),COLOR00CC99; {漲勢陰線}
STICKLINE((DD3 OR C>AA2)AND O>=C,H,L,0.5,0),COLOR00CC99; {漲勢陰線};
RSV1:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
KK:=SMA(RSV1,3,1);
DD:=SMA(KK,3,1);
JJ:=3*KK-2*DD;
M:=BARSLAST(CROSS(DD,JJ));
警示線:REF(H,M),POINTDOT,COLORYELLOW;{進場; 止贏; 止損; 黃}
STICKLINE(警示線,警示線,警示線,3.8,1),COLORYELLOW;
A1:=BACKSET(REF(H,2)=HHV(H,5),3);
A2:=BACKSET(REF(L,2)=LLV(L,5),3);
A3:=CROSS(A1,0.9);
A4:=CROSS(A2,0.9);
上沿:REF(H,BARSLAST(A3)),POINTDOT,COLORFF8918;
STICKLINE(C,REF(H,BARSLAST(A3)),REF(H,BARSLAST(A3)),5,1),COLORFF8918;
下沿:REF(L,BARSLAST(A4)),POINTDOT,COLORMAGENTA;
STICKLINE(C,REF(L,BARSLAST(A4)),REF(L,BARSLAST(A4)),5,1),COLORMAGENTA;
XX:=DISPSTATUS=2;
DRAWTEXT(XX,上沿,'上沿:'+NUMTOSTRN(上沿,2)),ALIGN2,VALIGN2,COLORGREEN;
DRAWTEXT(XX,下沿,'下沿:'+NUMTOSTRN(下沿,2)),ALIGN2,VALIGN0,COLORYELLOW;
{一線定輸贏}
DRAWGBK(CLOSE>0, COLORRGB(00,30,40), COLORRGB(70,90,99),3);
VARA32:=MA(CLOSE,27);
VARA33:=((CLOSE-VARA32)/(VARA32))*(100);
VARA34:=MA(VARA33,3);
VARA35:=BARSLAST((CROSS((-10),VARA34)=1));
VARA36:=BARSLAST((CROSS(VARA34,10)=1));
VARA37:=(VARA34<(-10)) AND (VARA35>3);
趨勢線:VARA34,LINETHICK2,Colorgreen;
PARTLINE(趨勢線>REF(趨勢線,1),趨勢線),LINETHICK2,colorred;