beyond202104 发表于 2023-8-28 16:43:03

神秘乾坤最新升级版(主图源码)


TR:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));   

ATR:=MA(TR,5);   

多头操盘:HHV(H-2*ATR,10);   

空头操盘:=LLV(L+2*ATR,10);   

多空趋势线:EMA(C,60),COLORFF9900;   

MA1:MA(CLOSE,M1),COLOR0000FF;   

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,3);   

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);   

V7:=IF(CURRBARSCOUNT=1,VOL*240/FROMOPEN/REF(VOL,1)-1,VOL/REF(VOL,1)-1);   

STICKLINE(V7>=1,O,C,1,0),COLORYELLOW;   

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);   

AA1:=(HHV(HIGH,20) - (2 * ATR));   

BB:=CROSS(CLOSE,REF(HHV(HIGH,55),1));   

SSS:=CROSS(MIN(MA(CLOSE,13),AA1),CLOSE);   

BBB:=BARSLAST(BB);   

SSSB:=BARSLAST(SSS);   

B11:=((BBB = 0) AND (REF(SSSB,1) < REF(BBB,1)));   

B1B:=BARSLAST(B11);   

B21:=((((BB = 1) AND (B1B < SSSB)) AND (B1B > 0)) AND (COUNT(BB,SSSB) < 3));   

B2B:=BARSLAST(B21);   

B3:=((((BB = 1) AND (B2B < B1B)) AND (COUNT(BB,SSSB) < 4)) AND (COUNT(BB,SSSB) > 2));   

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);   

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;   

IF(MA1>REF(MA1,1),MA1,DRAWNULL),COLORRED,LINETHICK2;   

IF(MA1<REF(MA1,1),MA1,DRAWNULL),COLORGREEN,LINETHICK2;   

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;   




没手棋进负 发表于 2023-8-31 16:55:37

有道理。。。

爱的遗言橙 发表于 2024-1-21 11:44:33

学习了,谢谢分享、、、

123458268 发表于 2024-2-8 20:44:31

好人一生平安!

无所谓12345678x 发表于 2024-4-1 11:25:04

帮帮顶顶!!
页: [1]
查看完整版本: 神秘乾坤最新升级版(主图源码)