源碼如下：
LC:=REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
RSI3:=SMA(MAX(CLOSE-LC,0),24,1)/SMA(ABS(CLOSE-LC),24,1)*100;
買3:=CROSS(RSI1,RSI2) AND CROSS("RSI.RSI1",50);
TYP:=(HIGH+LOW+CLOSE)/3;
CCI:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));
買1:=CROSS(CCI,100);
HP:=HHV(H,9);
LP:=LLV(L,9);
R:=(C-LP)/(HP-LP)*100;
K:=SMA(R,3,1),COLORYELLOW,LINETHICK2;
D:=SMA(K,3,1),COLORWHITE,LINETHICK2;
J:=3*K-2*D,COLORFF9999,LINETHICK2;
買2:=CROSS(K,D);
DIF1:=EMA(CLOSE,5)-EMA(CLOSE,9),COLOR00FFFF,LINETHICK2;
DEA1:=EMA(DIF1,5),COLORFFFF00,LINETHICK2;
MACD:=2*(DIF1-DEA1);
RSV:= (HHV(HIGH,9)-CLOSE)/(HHV(HIGH,9)-LLV(LOW,9))*100;
LWR1:=SMA(RSV,3,1);
LWR2:=SMA(LWR1,3,1);
買5:=CROSS(LWR2,LWR1);
買4:=CROSS(DIF1,DEA1) AND DIF1<0.3;
買6:=CROSS("PAVE.CV","PAVE.MCV");
買7:=CROSS("KD.K","KD.D") AND K<45;
買8:=CROSS("ADVOL.ADVOL","ADVOL.MA1") AND K<45;
VAR1:=HHV(HIGH,25);
VAR2:=LLV(LOW,25);
阻力線:=EMA((CLOSE-VAR2)/(VAR1-VAR2)*100,20),COLOR00FF00;
突破線:=EMA((CLOSE-VAR2)/(VAR1-VAR2)*100,5);
操作線:=突破線,COLORYELLOW,LINETHICK1;
買點(diǎn):=CROSS(操作線,阻力線);
JM:=CROSS("KDJ.K"(5,3,3),"KDJ.D"(5,3,3));
JMCOUNT:=COUNT(JM,BARSLAST("KDJ.D"(5,3,3)>=30));
JMTJ:=28*("KDJ.D"(5,3,3)<30 AND COUNT(JMCOUNT=1,21)=1);
VAR11:=(HIGH+LOW+OPEN+CLOSE)/4;
生命線:=MA(3*VAR11-2*SMA(VAR11,2,1),12),,;
VAR22:=IF(VAR11<生命線,VAR11,生命線);
VAR33:=2*EMA(LLV(VAR11,7),10)-VAR11;
多空線:=3*VAR33-2*SMA(VAR33,10,1),COLORGREEN;
買9:=CROSS(生命線,多空線);
VAR01:=IF(CLOSE>=REF(CLOSE,1),VOL,0);
VAR02:=IF(CLOSE<=REF(CLOSE,1),VOL,0);
VAR03:=SUM(VAR01,10);
VAR04:=SUM(VAR02,10);
VAR05:=IF(CLOSE>=MA(CLOSE,5),VOL,0);
VAR06:=IF(CLOSE<=MA(CLOSE,5),VOL,0);
VAR07:=SUM(VAR05,10);
VAR08:=SUM(VAR06,10);
VAR09:=IF(MA(CLOSE,5)>=REF(MA(CLOSE,5),1),VOL,0);
VAR0A:=IF(MA(CLOSE,5)<=REF(MA(CLOSE,5),1),VOL,0);
VAR0B:=SUM(VAR09,10);
VAR0C:=SUM(VAR0A,10);
VAR0D:=IF(EMA(CLOSE,10)>=REF(EMA(CLOSE,10),1),VOL,0);
VAR0E:=IF(EMA(CLOSE,10)<=REF(EMA(CLOSE,10),1),VOL,0);
VAR0F:=SUM(VAR0D,10);
VAR010:=SUM(VAR0E,10);
主力:=(VAR03+VAR07+VAR0B+VAR0F)/100;
DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA);
A2:=BARSLAST(REF(CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)),1));
B2:=REF(C,A2+1)>C AND REF("KDJ.K"(9,3,3),A2+1)<"KDJ.K"(9,3,3) AND CROSS ("KDJ.K"(9,3,3),"KDJ.D"(9,3,3));
A3:=BARSLAST(REF(CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1));
B3:=REF(C,A3+1)>C AND REF("RSI.RSI1"(6,12,24),A3+1)<"RSI.RSI1"(6,12,24) AND CROSS ("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24));
B4:=CROSS(DIFF,DEA) AND CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3));
KDJ_K:="KDJ.K"(9,3,3);KDJ_D:="KDJ.D"(9,3,3);KDJ_J:="KDJ.J"(9,3,3);
買11:=CROSS(KDJ_J,0) OR (CROSS(KDJ_J,KDJ_K) AND KDJ_D<26);
買21:=CROSS("RSI.RSI1"(6,2,2),20) OR CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24));
買31:=CROSS("MACD.DIF","MACD.DEA") OR CROSS("MACD.MACD",0);
買0:=買1+買2+買3;
買A:=CROSS("VR.VR","VR.MAVR");
散戶:=EMA(0.667*REF(主力,1)+0.333*主力,2),LINETHICK2,COLORFF9933;
買:=(買0 + 買A + 買1 + 買2 + 買3 + 買4 + 買5 + 買6 + 買7 +買7 + 買9 + JMTJ + 買點(diǎn)) + ( B1 OR B2 OR B3 OR B4) + CROSS(主力,散戶);
XG:買>8;
|
|
|
|
