|
[分享]大陸指標原碼
大陸指標原碼如下
鄭重說明：指標未用於實戰，有些有用到未來函數；請自行根據需要斟酌修改成自己適合的
有些指標看似很準；大部分有用到未來函數；敢用你可以把它當作預警，不敢用就請捨棄 特此說明
預測明天OK--副圖
E:=(H+L+O+2*C)/5;
次日突破價位:E+(H-L);
次日阻力價位:2*E-L;
次日支撐價位:2*E-H;
次日下跌反轉價:E-(H-L);
次日心理價位:(E+次日突破價位+次日阻力價位+次日支撐價位+次日下跌反轉價)/5;
DIFF1:=EMA(C,3)-EMA(C,13);
DEA1:=EMA(DIFF1,9);
MACD1:=2*(DIFF1-DEA1)*10;
DIFF2:=EMA(C,5)-EMA(C,21);
DEA2:=MA(DIFF2,9);
MACD2:=2*(DIFF2-DEA2)*10;
DIFF3:=EMA(C,5)-EMA(C,89);
DEA3:=EMA(DIFF3,21);
MACD3:=2*(DIFF3-DEA3)*10;
STICKLINE(C>0,0,22,10,0),Color8BA400;
STICKLINE(C>0,0,10,10,0),Color8BA411;
STICKLINE(C>0,0,9.5,10,0),Color8BA422;
STICKLINE(C>0,0,9,10,0),Color8BA433;
STICKLINE(C>0,0,8.5,10,0),Color8BA444;
STICKLINE(C>0,0,8,10,0),Color8BA455;
STICKLINE(C>0,0,7.5,10,0),Color8BA466;
STICKLINE(C>0,0,7,10,0),Color8BA477;
STICKLINE(C>0,0,6.5,10,0),Color8BA488;
STICKLINE(C>0,0,6,10,0),Color8BA499;
STICKLINE(C>0,0,5.5,10,0),Color8BA4aa;
STICKLINE(C>0,0,5,10,0),Color8BA4cc;
STICKLINE(C>0,0,4,10,0),Color8BA4ee;
STICKLINE(C>0,0,3,10,0),Color8BA4ff;
STICKLINE(C>0,0,-15,10,0),Color8BA433;
STICKLINE(C>0,0,-10,10,0),Color8BA444;
STICKLINE(C>0,0,-5,10,0),Color8BA455;
STICKLINE(C>0,0,-1,10,0),Color8BA466;
STICKLINE(macd3>=0,0,macd3,8,0),color009e3a;
STICKLINE(macd3<0,0,-macd3,8,0),color646464;
STICKLINE(macd2>=0,0,macd2,8,0),color007d19;
STICKLINE(macd2<0,0,-macd2,8,0),color555555;
STICKLINE(macd1>=0,0,macd1,8,0),color006400;
STICKLINE(macd1<0,0,-macd1,8,0),color414141;
STICKLINE(macd3,0,-abs(macd3)*0.6,8,0),color232323;
STICKLINE(macd1,0,-abs(macd1)*0.6,8,0),color0f0f0f;
x1:=MA(LLV(C,8)*1.1,13);
x2:=MA(HHV(C,21)*0.9,13);
x3:=MA(LLV(INDEXC,8)*1.1,13);
x4:=MA(HHV(INDEXC,21)*0.9,13);
資金進出:=3*(MA(C,1)-(x1+x2)/2-(x1+x2)/2*((x3+x4)/2-EMA(INDEXC,3))/((x3+x4)/2));
STICKLINE(資金進出<0,資金進出,0,0.5,0),COLORFFFF00;
STICKLINE(資金進出>=0,資金進出,0,0.5,0),ColorFF8BFF;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
FASTK:=SMA(RSV,3,1);
K:=SMA(FASTK,3,1);
D:=SMA(K,5,1);
DRAWTEXT(K<23,-10,'ц'),ColorDBDBDB;
DRAWTEXT(K<23,-10,'︼'),Color688EC1;
DRAWTEXT(K<23 AND CROSS(K,D),8,'$'),COLORRED,LINETHICK7;
DRAWTEXT(CROSS(MACD3,MACD2) and MACD3>ref(MACD3,1),MACD3+2,'$'),COLORRED,LINETHICK7;
MA20:=MA(C,20);
MA40:=MA(C,40);
MA60:=MA(C,60);
aa:=BARSLAST(ma60>ma40 and (ma40=ma20 or ma40>ma20));
bb:=ref(count(c<ma60,aa)=aa,1);
cc:=cross(c,ma60) and vol>ma(vol,5) and (c-ref(c,1))/ref(c,1)*100>3;
芙蓉出水:=bb and cc,color00ff00;
drawtext(芙蓉出水,8,'$'),COLORRED;
k2:=EMA(c,5),colorffff00;
k3:=EMA(c,10),colorffff00;
k5:=EMA(c,30),colorffff00;kk5:=EMA(indexc,30),colorffff00;
k6:=2*(k2-k5);k7:=2*(k2-k3);k8:=2*(k7+k6),COLORRED;
STICKLINE(CROSS(k8,0),0,50,8,0) ,COLORRED;
k1:=IF(k8>ref(k8,5) and k3<ref(k3,5) ,1,0 ),COLORYELLOW;
k21:=IF(k8>ref(k8,7) and k3<ref(k3,7) ,1,0 ),COLORYELLOW;
k31:=IF(k8>ref(k8,9) and k3<ref(k3,9) ,1,0 ),COLORYELLOW;
k4:=IF(k8>ref(k8,11) and k3<ref(k3,11) ,1,0 ),COLORYELLOW;
nday := 3;
down := close/llv(low,60)<=1.2;
pma1 := ma(close,2);
pma2 := ma(close,5);
diff :=ema(close,12) - ema(close,26),colorwhite;
dea :=ema(diff,9),colorgreen;
vma1:=ma (vol,2)/100000,colorred;
vma2:=ma(vol,5)/100000,coloryellow;
ppday := barslast(cross(pma1,pma2));
barslast(cross(vma1,vma2));
macdday := barslast(cross(diff,dea));
A1:=BARSLAST(ref(cross("macd.diff"(5,12,9),"macd.dea"(5,12,9)),1));
背離、W底、金叉:=ref(c,A1+1)>c and ref("macd.diff"(5,12,9),A1+1)<"macd.diff"(5,12,9) and
cross("macd.diff"(5,12,9),"macd.dea"(5,12,9)),,colorred;
sjcjd:= if((ppday<=nday and day<=nday and macdday<=nday ) and (diff<0),1,0);
STICKLINE(sjcjd,50,60,6,0),colorwhite,linethick2;
MACD:= 2*(diff-dea), COLORSTICK;
短趨勢:=((3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1)-50)*1.032+50),COLORRED;
Vara2:=(2*CLOSE+HIGH+LOW+OPEN)/5;
Vara3:=LLV(LOW,34);
Vara4:=HHV(HIGH,34);
長趨勢:=EMA((Vara2-Vara3)/(Vara4-Vara3)*100,13),color00ff00;
判斷底:=SQRT(SQRT(FLOOR(SQRT(MA(1/WINNER(CLOSE)*100,4)/10000))))*5;
Vara5:=CROSS(短趨勢,長趨勢)AND 長趨勢<25;
Vara6:=CROSS(短趨勢,長趨勢)AND 長趨勢<50;
STICKLINE(Vara5,60,70,8,0) ,colorgreen;
XX:=((((CLOSE - MA(CLOSE,34)) / MA(CLOSE,34)) * 100)* 5);
B001:=(((((CLOSE - MA(CLOSE,42)) / MA(CLOSE,42)) ) * 100) * 5);
B002:=(((((CLOSE - MA(CLOSE,67)) / MA(CLOSE,67)) ) * 100) * 5);
B003:=(((XX + B001) / 2) - (B002 ));
B004:=(((0 - 100) * (HHV(HIGH,34) - CLOSE)) / (HHV(HIGH,34) - LLV(LOW,34)));
B005:=(((0 - 100) * (HHV(HIGH,42) - CLOSE)) / (HHV(HIGH,42) - LLV(LOW,42)));
B006:=(((0 - 100) * (HHV(HIGH,72) - CLOSE)) / (HHV(HIGH,72) - LLV(LOW,72)));
B007:=EMA((((B004 + B005) / 2) - B006),6);
B008:=REF(CLOSE,1);
B009:=((((SMA(MAX((CLOSE - B008),0),19,1) / SMA(ABS((CLOSE - B008)),19,1)) * 100) - 50) * 1.25);
B010:=((((SMA(MAX((CLOSE - B008),0),34,1) / SMA(ABS((CLOSE - B008)),34,1)) * 100) - 50) * 1.25);
B011:=((((SMA(MAX((CLOSE - B008),0),72,1) / SMA(ABS((CLOSE - B008)),72,1)) * 100) - 50) * 1.25);
B012:=EMA(((((B009 + B010) / 2) - B011) * 5),6);
B013:=((((0 - 1) * ((B007 + B003) + B012)) / 3) * 1.5);
B014:=B012;
B015:=B013;
B016:=EMA(B012,4);
B017:=B012;
KKM1:=B013;
DPM1:=EMA(B013,4);
多頭:=B017,color0000FF;
空頭:=KKM1,color00FF00;
多均:=B016;
空均:=DPM1;
B018:=IF(CROSS(B017,KKM1),28,0);
xd:=5 ;
VARX:=B017;
C023:=KKM1;
C024:=B016;
C025:=DPM1;
C026:=WINNER(CLOSE);
W:=(DMA(C026,((VOL / CAPITAL) * 1)) * 100);
HWXWINNER:=W;
XD1:=EMA(W,6);
XWXMH:=XD1;
XD2:=MA(W,14);
莊家控盤:=((HWXWINNER - XWXMH) * 10),COLORSTICK,LINETHICK2;
STICKLINE(cross(多頭,空均),80,70,8,0) ,COLORYELLOW;
Varb1:=(2*CLOSE+HIGH+LOW)/4;
Varb2:=LLV(LOW,34);
Varb3:=HHV(HIGH,34);
Varb4:=ma(HIGH,8);
xx1:=EMA((Varb1-Varb2)/(Varb3-Varb2)*100,13);
yy:=EMA(0.667*REF(xx1,1)+0.333*xx1,2) , ;
STICKLINE(CROSS(xx1,20) AND yy<xx1 and Varb4>ref(Varb4,1),80,90,6,0),COLORFF0000;
逃頂:=IF(FILTER(CROSS(YY,XX) AND xx>80 ,3),60,90),COLORFF0000;
 附件: 預測明天OK.ALG
此文件已被下載 343 次。
|
2008-06-15 10:34
