神秘乾坤 （源码）
C/C++ www.gszb.com 股票公式指标网提供 Code复制内容到剪贴板
- MA1:MA(CLOSE,5),COLOR0000FF;
- MA2:MA(CLOSE,10);
- MA3:MA(CLOSE,20);
- MA4:MA(CLOSE,60);
- MA5:MA(CLOSE,120);
- MA6:MA(CLOSE,250);
- A:=BARSCOUNT(CLOSE);
- AH:=HHV(HIGH,200);
- AL:=LLV(LOW,200);
- B0:=(AH-AL)/40;
- B1:=HIGH+B0;
- B2:=LOW-B0;
- DRAWTEXT((A+0)/34=FLOOR((A+0)/34),B2-2.2*B0*1.1,'←窗,变盘'),COLORRED;
- LC:=REF(CLOSE,1);
- RSI:=SMA(MAX(CLOSE-LC,0),4.1,1)/SMA(ABS(CLOSE-LC),4.1,1)*100;
- DRAWICON(CROSS(RSI,11) ,L*0.99,1);
- VAR28:=SMA(MAX(CLOSE-LC,0),5.5,1)/SMA(ABS(CLOSE-LC),6,1)*100;
- DRAWTEXT(FILTER(EMA(CLOSE,60)-EMA(CLOSE,12)>0 AND EMA(CLOSE,12)/LOW>1.15,5),LOW,'买'),COLORFF00FF;
- VARA:=((AMOUNT)/(VOL))/(100);
- VARB:=((3)*(HIGH)+LOW+OPEN+(2)*(CLOSE))/(7);
- VARC:=((SUM(AMOUNT,7))/(VARA))/(100);
- VARD:=DMA(VARB,(VOL)/(VARC));
- VARE:=((CLOSE-VARD)/(VARD))*(100);
- VARF:=((CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)))*(100);
- VARJ:=MA(VARE,20)+STD(VARE,20);
- BIAS18:=((CLOSE-MA(CLOSE,18))/(MA(CLOSE,18)))*(100);
- AA:=SMA(VARF,3,1);
- SS:=(REF(BIAS18,1)>=5) AND CROSS(VARJ,VARE) AND (AA>79);
- LC1:=REF(CLOSE,1);
- RSI1:=((SMA(MAX((CLOSE - LC1),0),3,1) / SMA(ABS((CLOSE - LC1)),3,1)) * 100);
- FF:=EMA(CLOSE,3);
- MA15:=EMA(CLOSE,21);
- DRAWTEXT(CROSS(FF,MA15),(LOW * 0.85),'←底背离'),COLORYELLOW;
- VAR2S:=(2*CLOSE+HIGH+LOW)/4;
- VAR3S:=IF(YEAR>=2099 AND MONTH>2,0,1);
- VAR4S:=LLV(LOW,5); VAR5S:=HHV(HIGH,4);
- 散户:=EMA((VAR2S-VAR4S)/(VAR5S-VAR4S)*100,4)*VAR3S;
- 庄家:=EMA(0.667*REF(散户,1)+0.333*散户,2)*VAR3S;
- DRAWTEXT(CROSS(散户,庄家) AND 散户<30,L-0.05,'←吸'),COLORRED;
- MA20:=MA(C,20);
- MA90:=MA(C,90);
- Y1:=BARSLAST(CROSS(MA5,MA20)) AND MA5>MA20;
- Y2:=Y1 AND BARSLAST(CROSS(MA5,MA90));
- Y3:=Y2 AND CROSS(MA20,MA90);
- STICKLINE(Y3,O,C,3,0),COLORYELLOW;
- DRAWTEXT(Y3,L-0.40,'←黑马'),COLORWHITE;
- F0:=BARSLAST(CROSS(MA(C,5),MA(C,90)));
- F1:=F0 AND BARSLAST(CROSS(MA(C,20),MA(C,90)));
- F2:=F1 AND CROSS(MA(C,5),MA(C,20)) AND MA(C,20)>MA(C,90);
- DRAWICON(F2,L-0.10,1);
- DRAWTEXT(F2,L-0.40,'←黑马'),COLORFF00FF;
- M:=OPEN;
- M1:=MA(C,1);
- M2:=REF(M1,1);
- M3:=REF(M2,1);
- 保护价:(M2+M3+M)/3,COLORWHITE,LINETHICK0;
- STICKLINE(L<EMA(EMA(L,8),6)*0.799,B2,B2-0.8*B0,3,0),COLORYELLOW;
- 波动回调提示图:=MA(CLOSE,10000);
- DRAWICON(CROSS(FF,MA15),(LOW -0.49),9);
- VAR1:=1;
- VAR2:=LLV(LOW,10);
- VAR3:=HHV(HIGH,25);
- X:=EMA(((SLOPE(CLOSE,21) * 20) + CLOSE),68);
- Y:=EMA(CLOSE,10);
- LL:=REF(CLOSE,2);
- MM:=((SMA(MAX((CLOSE - LL),0),6,1) / SMA(ABS((CLOSE - LL)),6,1)) * 100);
- DB:=IF(((MM < REF(MM,1)) AND (MM > 79)),MM,0);
- DRAWTEXT(CROSS(Y,X),(LOW * 0.985),'▲'),LINETHICK2,COLORRED;
- DRAWTEXT(CROSS(X,Y),(HIGH * 1.02),'◆'),LINETHICK2,COLOR00FF00;
- DRAWTEXT(DB,(HIGH * 1.02),'●'),LINETHICK2,COLOR00FF00;
- VAR11:=LLV(LOW,21);
- VAR21:=HHV(HIGH,21);
- AK1:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 100),5);
- AK:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 50),13);
- DD:=EMA(((0.667 * REF(AK1,1)) + (0.333 * AK1)),2);
- VAR31:=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);
- BBA:=EMA(((0.667 * REF(VAR8,1)) + (0.333 * VAR8)),2);
- AB:=CROSS(AK1,AK);
- BB1:=(CROSS(AK1,BBA) AND (BBA < 30));
- CD:=(BBA * 0.6);
- DRAWTEXT((CD = 0.6),(LOW * 0.99),'□'),LINETHICK2,COLOR33CC99;
- DRAWTEXT((AB = 1),(LOW * 0.99),'□'),LINETHICK2,COLORWHITE;
- C1:=(CLOSE+LOW+HIGH)/3;
- C2:=EMA(C1,6);
- C3:=EMA(C2,5);
- C4:=CROSS(C2,C3);
- DRAWTEXT(C4,LOW/1.01,'★'),COLORRED;
- C5:=CROSS(C3,C2);
- DRAWTEXT(C5,HIGH*1.03,'★'),COLORBLUE;
- JG:=CROSS(MA1,MA2);
- VOLUME:=VOL,VOLSTICK;
- MAVOL1:=MA(VOLUME,5);
- MAVOL2:=MA(VOLUME,10);
- NL:=CROSS(MAVOL1,MAVOL2);
- DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
- DEA:=EMA(DIF,9);
- MACD:=(DIF-DEA)*2,COLORSTICK;
- NA:=CROSS(DIF,DEA);
- RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
- K:=SMA(RSV,9,1);
- D:=SMA(K,9,1);
- J:=3*K-2*D;
- KD:=CROSS(K,D) AND CROSS(J,D);
- 定乾坤:DRAWTEXT((JG AND NL AND NA) OR (JG AND NL AND KD) OR
- (JG AND NA AND KD) OR (NL AND NA AND KD),L*0.93,'←定乾坤'),COLORYELLOW;
- X1:=LLV(J,2)=LLV(J,8);
- DRAWTEXT(CROSS(J,REF(J+0.01,1)) AND X1 AND J<20,LOW*0.98,'←进'),COLORLIMAGENTA;
- JH9:=SMA(MAX(C-REF(C,1),0),5,1)/SMA(ABS(C-REF(C,1)),5,1)*100;
- DRAWTEXT(CROSS(84,JH9),H*1.02,'★S'),COLORGREEN;
- 空:=EMA(C,5);
- 均衡:=EMA(空,5),COLORWHITE;
- 中轨:=HHV(MA(H,13),13),COLORRED,LINETHICK2;
- VAR55:=FILTER(均衡>REF(均衡,1)AND 中轨<REF(中轨,1)AND C>REF(C,1),11);
- DRAWTEXT(VAR55,L*0.98,'←追'),COLORYELLOW;
