N:=25;天機線:EMA(EMA(C,N),N),COLORRED,LINETHICK1;B:=天機線>REF(天機線,1);IF(B-1,天機線,NULL),COLORGREEN,LINETHICK1; AA:=EMA(C,N) > EMA(C,N);BB:=EMA(C,N) < EMA(C,N);CC:= EMA(C,N) > EMA(C,N);CC1:=EMA(C,N) < EMA(C,N);DD:=CLOSE<=OPEN;DD1:=CLOSE>OPEN; E:=EMA(EMA(C,10),10),COLORRED,LINETHICK2;//PARTLINE1(REF(E,1)>E,E),LINETHICK2,COLOR00FF00;//PARTLINE1(REF(E,1)<E,E),LINETHICK2,COLORRED; TY:=CLOSE;HD:=FILTER(BACKSET(FILTER(REF(TY,10)=HHV(TY,2*10+1),10),10+1),10);LD:=FILTER(BACKSET(FILTER(REF(TY,10)=LLV(TY,2*10+1),10),10+1),10);A:=REF(CLOSE,BARSLAST(HD));B1:=REF(CLOSE,BARSLAST(LD));T1:=BARSLAST(HD)<BARSLAST(LD) AND NOT(HD) ;T2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);VAR3:=LLV(H,240);VAR4:=100*(C-VAR3)/VAR3;VAR5:=(C-LLV(L,528))/(HHV(H,528)-LLV(L,528))*100;VAR6:=(C-LLV(C,530))/(HHV(C,530)-LLV(C,530))*100;VAR7:=0;VAR8:=MA(HHV(C-REF(C,1),0),34)/MA(ABS(C-REF(C,1)),7)*100;VAR9:=MA(HHV(C-REF(C,1),0),13)/MA(ABS(C-REF(C,1)),13)*100;VARA:=BARSCOUNT(C);VARB:=VAR8<20 AND VAR9<23 AND VARA>35;VARC:=VARB AND COUNT(VARB,1)=1;VARD:=EMA(C,21)-EMA(C,8);VARE:=EMA(VARD,5);VARF:=(361)<4 AND CROSS(VARD,VARE);VAR10:=IF((3161)=0 AND H>L+0.04,4,0); LC:=REF(CLOSE,1);WRSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;DRAWICON(CROSS(WRSI,15),L,4),VALIGN0;DRAWICON(CROSS(85,WRSI),H,5),VALIGN2;
只要紅綠線， 不要附帶的小紅色綠色方塊了。??
?
?來源:程序化99
文華技術人員：?參考： ?X1:=(C+L+H)/3;X2:=EMA(X1,1);X3:=EMA(X2,3);X4:=EMA(X3,13);X5:=EMA(X4,3); N:=25;天機線:EMA(EMA(C,N),N),COLORRED,LINETHICK1;B:=天機線>REF(天機線,1);IF(B-1,天機線,NULL),COLORGREEN,LINETHICK1; AA:=EMA(C,N) > EMA(C,N);BB:=EMA(C,N) < EMA(C,N);CC:= EMA(C,N) > EMA(C,N);CC1:=EMA(C,N) < EMA(C,N);DD:=CLOSE<=OPEN;DD1:=CLOSE>OPEN; E:=EMA(EMA(C,10),10),COLORRED,LINETHICK2;//PARTLINE1(REF(E,1)>E,E),LINETHICK2,COLOR00FF00;//PARTLINE1(REF(E,1)<E,E),LINETHICK2,COLORRED; TY:=CLOSE;HD:=FILTER(BACKSET(FILTER(REF(TY,10)=HHV(TY,2*10+1),10),10+1),10);LD:=FILTER(BACKSET(FILTER(REF(TY,10)=LLV(TY,2*10+1),10),10+1),10);A:=REF(CLOSE,BARSLAST(HD));B1:=REF(CLOSE,BARSLAST(LD));T1:=BARSLAST(HD)<BARSLAST(LD) AND NOT(HD) ;T2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);VAR3:=LLV(H,240);VAR4:=100*(C-VAR3)/VAR3;VAR5:=(C-LLV(L,528))/(HHV(H,528)-LLV(L,528))*100;VAR6:=(C-LLV(C,530))/(HHV(C,530)-LLV(C,530))*100;VAR7:=0;VAR8:=MA(HHV(C-REF(C,1),0),34)/MA(ABS(C-REF(C,1)),7)*100;VAR9:=MA(HHV(C-REF(C,1),0),13)/MA(ABS(C-REF(C,1)),13)*100;VARA:=BARSCOUNT(C);VARB:=VAR8<20 AND VAR9<23 AND VARA>35;VARC:=VARB AND COUNT(VARB,1)=1;VARD:=EMA(C,21)-EMA(C,8);VARE:=EMA(VARD,5);VARF:=(361)<4 AND CROSS(VARD,VARE);VAR10:=IF((3161)=0 AND H>L+0.04,4,0); LC:=REF(CLOSE,1);WRSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;DRAWICON(CROSS(WRSI,15),L,4),VALIGN0;DRAWICON(CROSS(85,WRSI),H,5),VALIGN2;
網友回復：?參考： X1:=(C+L+H)/3;X2:=EMA(X1,1);X3:=EMA(X2,3);X4:=EMA(X3,13);X5:=EMA(X4,3); N:=25;天機線:EMA(EMA(C,N),N),COLORRED,LINETHICK1;B:=天機線>REF(天機線,1);IF(B-1,天機線,NULL),COLORGREEN,LINETHICK1;DRAWCOLORKLINE(B&&C>天機線&&ISUP,COLORRED,1);DRAWCOLORKLINE(B&&C>天機線&&ISDOWN,COLORRED,0);DRAWCOLORKLINE(NOT(B)&&C<天機線&&ISUP,COLORGREEN,1);DRAWCOLORKLINE(NOT(B)&&C<天機線&&ISDOWN,COLORGREEN,0);
C>天機線&&B,SOUND('A');
C<天機線&&NOT(B),SOUND('A');AA:=EMA(C,N) > EMA(C,N);BB:=EMA(C,N) < EMA(C,N);CC:= EMA(C,N) > EMA(C,N);CC1:=EMA(C,N) < EMA(C,N);DD:=CLOSE<=OPEN;DD1:=CLOSE>OPEN; E:=EMA(EMA(C,10),10),COLORRED,LINETHICK2;//PARTLINE1(REF(E,1)>E,E),LINETHICK2,COLOR00FF00;//PARTLINE1(REF(E,1)<E,E),LINETHICK2,COLORRED; TY:=CLOSE;HD:=FILTER(BACKSET(FILTER(REF(TY,10)=HHV(TY,2*10+1),10),10+1),10);LD:=FILTER(BACKSET(FILTER(REF(TY,10)=LLV(TY,2*10+1),10),10+1),10);A:=REF(CLOSE,BARSLAST(HD));B1:=REF(CLOSE,BARSLAST(LD));T1:=BARSLAST(HD)<BARSLAST(LD) AND NOT(HD) ;T2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);VAR3:=LLV(H,240);VAR4:=100*(C-VAR3)/VAR3;VAR5:=(C-LLV(L,528))/(HHV(H,528)-LLV(L,528))*100;VAR6:=(C-LLV(C,530))/(HHV(C,530)-LLV(C,530))*100;VAR7:=0;VAR8:=MA(HHV(C-REF(C,1),0),34)/MA(ABS(C-REF(C,1)),7)*100;VAR9:=MA(HHV(C-REF(C,1),0),13)/MA(ABS(C-REF(C,1)),13)*100;VARA:=BARSCOUNT(C);VARB:=VAR8<20 AND VAR9<23 AND VARA>35;VARC:=VARB AND COUNT(VARB,1)=1;VARD:=EMA(C,21)-EMA(C,8);VARE:=EMA(VARD,5);VARF:=(361)<4 AND CROSS(VARD,VARE);VAR10:=IF((3161)=0 AND H>L+0.04,4,0); LC:=REF(CLOSE,1);WRSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;DRAWICON(CROSS(WRSI,15),L,4),VALIGN0;DRAWICON(CROSS(85,WRSI),H,5),VALIGN2;
?
打印本文
關閉窗口