beyond202104 发表于 2023-8-28 16:47:02

通达信操盘手主图+龙腾四海副图源码


龙腾四海副图源码{N 0 100 8}   

龙腾四海:100-100*(HHV(HIGH,5*N)-CLOSE)/(HHV(HIGH,5*N)-LLV(LOW,5*N));   

海面:20,COLORGREEN;   

海天分界线:50,COLORYELLOW;   

天际:80,COLORRED;   操盘手主图源码   

VAR1:=(100 - ((90 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14))));   

VAR2:=(100 - ((90 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14))));   

VAR3:=(100 - MA(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34));   

DIR1:=ABS(CLOSE-REF(CLOSE,5));   

VIR1:=SUM(ABS(CLOSE-REF(CLOSE,1)),5);   

ER1:=DIR1/VIR1;   

CS1:=ER1*(0.8-2/8)+2/8;   

CQ1:=CS1*CS1;   

AMA1:EMA(DMA(CLOSE,CQ1),2) ,COLORWHITE;   

DIR2:=ABS(CLOSE-REF(CLOSE,10));   

VIR2:=SUM(ABS(CLOSE-REF(CLOSE,1)),10);   

ER2:=DIR2/VIR2;   

CS2:=ER2*(0.8-2/24)+2/24;   

CQ2:=CS2*CS2;   

AMA2:EMA(DMA(CLOSE,CQ2),2),COLORGREEN,LINETHICK2;   

AMA3:IF(AMA2/REF(AMA2,1)>0.997,AMA2,DRAWNULL),COLORYELLOW,LINETHICK2;   

AMA4:IF(AMA2/REF(AMA2,1)>1.001,AMA2,DRAWNULL),COLORRED,LINETHICK2;   

STICKLINE((VAR2 < MA(VAR3,6)),CLOSE,OPEN,3,1),COLOR008000;   

STICKLINE((VAR2 > MA(VAR3,6)),OPEN,CLOSE,3,1),COLORRED;   

STICKLINE(((OPEN > CLOSE) AND (VAR2 > MA(VAR3,6))),(OPEN * 0.998),(CLOSE * 1.0001),2.3,0),COLOR008000;   

STICKLINE(((OPEN < CLOSE) AND (VAR2 < MA(VAR3,6))),(CLOSE * 0.998),(OPEN * 1.002),2.3,0),COLORRED;   

STICKLINE(((OPEN > CLOSE) AND (VAR2 < MA(VAR3,6))),CLOSE,OPEN,2.3,0),COLOR008000;   

DRAWICON(CROSS(VAR2,MA(VAR3,6)),(LOW - (LOW*0.02)),7);   

DRAWICON(CROSS(MA(VAR3,6),VAR1),(HIGH+(HIGH*0.02)),8);   

PT:=REF(H,1)-REF(L,1);   

CDP:=(REF(H,1)+REF(L,1)+REF(C,1)*2)/4;   

AH:=CDP+PT;   

AL:=CDP-PT;   

NH:=CDP*2-REF(L,1);   

NL:=CDP*2-REF(H,1);   

强:IF(AH>REF(C,1)*1.1,REF(C,1)*1.1,AH)NODRAW;   

阻:IF(NH>强,(强-CDP)*0.618+CDP,NH)NODRAW,COLORCYAN;   

M:=IF(AL<REF(C,1)/1.1,REF(C,1)/1.1,AL);   

撑:IF(NL<M,CDP-(CDP-M)*0.618,NL)NODRAW;   

底:IF(AL<REF(C,1)/1.1,REF(C,1)/1.1,AL)NODRAW;   



HH0:=CONST(HHV(H,120))*1;   

LL0:=CONST(LLV(L,120))*1;   

MM0:=CONST((HH0+LL0)/2);   

HH1:=IF(CONST(C)<MM0,LL0-(HH0-LL0)*0.4,LL0-(HH0-LL0)*0.4),COLORRED;   

LL1:=LL0;HLMAX:=MAX(HH1,LL1);   

HLMIN:=MIN(HH1,LL1);   

HLMN1:=(HLMAX+HLMIN)/2;   

HLMN2:=(HLMAX-HLMIN);   

HLMN3:=HHV(V,250)/2;   

HLMN4:=HHV(V,250);   

VZ:=(V-HLMN3)*HLMN2/HLMN4+HLMN1;   

STICKLINE(C>=O,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,2,0),COLORFF33BB;   

STICKLINE(C>=O,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,1,0),COLORFF55FF;   

STICKLINE(C>=O,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,0.2,0),COLORFF99FF;   

STICKLINE(C<O,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,2,0),COLORCC6600;   

STICKLINE(C<O,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,1,0),COLORFF8800;   

STICKLINE(C<O,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,0.2,0),COLORFFCC00;   

(MA(V,5)-HLMN3)*HLMN2/HLMN4+HLMN1,COLORFFFFFF;   

(MA(V,10)-HLMN3)*HLMN2/HLMN4+HLMN1,COLOR00FFFF;   

T:=V=LLV(V,20);   

STICKLINE(C/REF(C,1)>1.099,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,2,0),COLORRED;   

STICKLINE(C/REF(C,1)<0.901,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,2,0),COLORGREEN;   

VY:=(0-HLMN3)*HLMN2/HLMN4+HLMN1;   

STICKLINE(V>=2*REF(V,1),VZ,VY,0.9,0),COLORGREEN;   

STICKLINE(V>=3*REF(V,1),VZ,VY,0.6,0),COLOR3300CC;   

MA13:=MA(C,3);   

UU:=1,V<=LLV(V,13) AND MA13>REF(MA13,1);   

TJ:=1,REF(V,1)<=LLV(V,13) AND MA13>REF(MA13,1),COLORRED,LINETHICK3;   

地:=(0-HLMN3)*HLMN2/HLMN4+HLMN1-0.7,COLORBLACK;   

天:=CONST(HHV(C,120))*1+0.7,COLORBLACK;   

BIAS1:=(C-MA(C,6))/MA(C,6)*100;   

BIAS2:=(C-MA(C,12))/MA(C,12)*100;   

BIAS3:=(C-MA(C,24))/MA(C,24)*100;   

BIAS:=(BIAS1+2*BIAS2+3*BIAS3)/6;   

乖离:=MA(BIAS,3);   

DRAWTEXT(CROSS(BIAS,乖离)AND 乖离<-9,(V-HLMN3)*HLMN2/HLMN4+HLMN1+0.6,'*'),COLORRED;   



N33:=10;   

TT:=CONST(HHVBARS(V,N33));   

T0:IF(CURRBARSCOUNT<=N33+7,CONST(IF(TT=0,C,REF(C,TT))),DRAWNULL);   

IF(CURRBARSCOUNT=TT+1,T0,DRAWNULL),COLORMAGENTA;   

DRAWTEXT(ISLASTBAR,T0,' 平台');   



DMLJ:=HHV(HIGH,120);   

TY:=H;TY1:=L;   

HD:=FILTER(BACKSET(FILTER(REF(TY,10)=HHV(TY,2*10+1),10),10+1),10);   

LD:=FILTER(BACKSET(FILTER(REF(TY1,10)=LLV(TY1,2*10+1),10),10+1),10);   

AA:=REF(H,BARSLAST(HD));   

BB:=REF(L,BARSLAST(LD));   

T1:=BARSLAST(HD)<BARSLAST(LD) AND NOT(HD);   

T2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);   

波浪顶:IF(T1,AA,AA),COLORFF00FF,POINTDOT,LINETHICK2;   

波浪底:IF(T2,BB,BB),COLOR80FF00,POINTDOT,LINETHICK2;   



买线:=EMA(CLOSE,2);   

卖线:=EMA(SLOPE(CLOSE,21)*20+CLOSE,42);   

B1:IF(CROSS(买线,卖线),L-0.02,DRAWNULL),CROSSDOT,LINETHICK3,COLORMAGENTA;   

S1:IF(CROSS(80,RSI)*30,H+0.02,DRAWNULL),CROSSDOT,LINETHICK3,COLORYELLOW;   

A1AA:=9;   

A2AA:=(REF(CLOSE,A1AA+1)<CLOSE);   

DRAWTEXT(FILTER((A2AA>-0.5),84),(HIGH)*(1.0),'小心变盘'),COLORFFFFFF;   



V1:=DMA((((HIGH + LOW) + (CLOSE * 2)) / 4.15),0.9);   

HY1:=REF(EMA(V1,3),1);   

神秘线:HY1,COLOR000080;   



VAR21:=(CLOSE-LLV(LOW,36))/(HHV(HIGH,36)-LLV(LOW,36))*100;   

VAR22:=SMA(VAR21,3,1);   

VAR23:=SMA(VAR22,3,1);   

VAR24:=SMA(VAR23,3,1);   

VAR25:=CROSS(VAR23,VAR24) AND VAR23<20;   

DRAWTEXT(FILTER(VAR25,10)=1,LOW-0.1,'←抄底'),COLORRED;   


华哥827 发表于 2023-9-15 14:24:46

找了很久的东西！

公务蒂 发表于 2023-9-21 14:59:07

过来看看的

无为307 发表于 2023-11-5 10:39:09

帮帮顶顶！！

重姐伊很 发表于 2024-3-30 00:06:47

我是来挣鲜花的，嘿嘿
页: [1]
查看完整版本: 通达信操盘手主图+龙腾四海副图源码