通达信股票公式之黄金分割指标

N:=13;DO:=250612;DA:=250826;DB:=251117;DC:=260108; 高:IF(HIGH PEAK(1,N,1),HHV(HIGH,N),PEAK(1,N,1))LINETHICK2,COLORBLUE;{最高价} 低:IF(LOW TROUGH(2,N,1),LLV(LOW,N),TROUGH(2,N,1))LINETHICK2,COLORMAGENTA;{最低价} F0191:(高-低)*0.191+低,DOTLINE,COLORMAGENTA; F0382:(高-低)*0.382+低,DOTLINE,COLORCYAN; F0500:(高-低)*0.500+低,DOTLINE,COLORWHITE; F0618:(高-低)*0.618+低,DOTLINE,COLORCYAN; F0809:(高-低)*0.809+低,DOTLINE,COLORYELLOW; {三角背景} 下:DRAWLINE(H=HHV(H,N),H,L=LLV(L,N),L,0)LINETHICK2,COLORGREEN; SX:=REF(趋势下,1) SS:=DRAWLINE(SX,趋势下,REF(SX,1),REF(趋势下,1),1); DRAWBAND(SS,RGB(0,0,160),趋势下,RGB(0,0,0)); 趋势上:DRAWLINE(L=LLV(L,N),L,H=HHV(H,N),H,0)LINETHICK2,COLORMAGENTA; JX:=REF(趋势上,1) JJ:=DRAWLINE(JX,趋势上,REF(JX,1),REF(趋势上,1),1); DRAWBAND(JJ,RGB(0,0,0),趋势上,RGB(180,0,180)); DRAWKLINE(HIGH,OPEN,LOW,CLOSE); {大流向} 超B:=L2_AMO(0,2)/10000.0; 大B:=L2_AMO(1,2)/10000.0; 中B:=L2_AMO(2,2)/10000.0; 小B:=L2_AMO(3,2)/10000.0; 超S:=L2_AMO(0,3)/10000.0; 大S:=L2_AMO(1,3)/10000.0; 中S:=L2_AMO(2,3)/10000.0; 小S:=L2_AMO(3,3)/10000.0; 大资金流向:(超B+大B)-(超S+大S)COLORYELLOW,NODRAW; DRAWKLINE(HIGH,OPEN,LOW,CLOSE); STICKLINE(大资金流向 0,O,C,2,0),COLORFF3300; STICKLINE(大资金流向 0,O,C,1.2,0),COLORFF6600; STICKLINE(大资金流向 0,O,C,0.5,0),COLORFF9900; STICKLINE(大资金流向 0,O,C,2,0),COLOR0066FF; STICKLINE(大资金流向 0,O,C,1.2,0),COLOR099FFF; STICKLINE(大资金流向 0,O,C,0.5,0),COLOR00FFFF; TL:=1000000+DA; TH:=1000000+DB; TC:=1000000+DC; TO:=1000000+DO; AL:=IF(REFDATE(CLOSE,TL) REFDATE(CLOSE,TH),REFDATE(HIGH,TL),REFDATE(LOW,TL)); BH:=IF(REFDATE(CLOSE,TL) REFDATE(CLOSE,TH),REFDATE(LOW,TH),REFDATE(HIGH,TH)); CZF:=IF(REFDATE(CLOSE,TL) REFDATE(CLOSE,TH),REFDATE(HIGH,TC),REFDATE(LOW,TC)); DJB:=IF(REFDATE(CLOSE,TL) REFDATE(CLOSE,TH),REFDATE(LOW,TO),REFDATE(HIGH,TO)); OP:=BH-AL+CZF; COP:=0.618*(BH-AL)+CZF; XOP:=IF((1.618*(BH-AL)+CZF) 0,OP,1.618*(BH-AL)+CZF); TODAY:=DATE; STICKLINE(DATE=TC,CZF,XOP,0,-1),COLORYELLOW; DRAWLINE(DATE=TC,COP,DATE=TODAY,COP,1),DOTLINE,COLORYELLOW; DRAWLINE(DATE=TC,OP,DATE=TODAY,OP,1),DOTLINE,COLORYELLOW; DRAWLINE(DATE=TC,XOP,DATE=TODAY,XOP,1),DOTLINE,COLORYELLOW; DRAWTEXT(DATE=TC,COP*1.003,'(COP=0.618)'),COLORYELLOW; DRAWTEXT(DATE=TC,OP*1.003,'(OP=1.000)'),COLORYELLOW; DRAWTEXT(DATE=TC,XOP*1.003,'(XOP=1.618)'),COLORYELLOW; DRAWNUMBER(DATE=TC,COP,COP),COLORYELLOW; DRAWNUMBER(DATE=TC,OP,OP),COLORYELLOW; DRAWNUMBER(DATE=TC,XOP,XOP),COLORYELLOW; DRAWLINE(DATE=TO,DJB,DATE=TL,AL,0)CIRCLEDOT,COLORGREEN; DRAWLINE(DATE=TL,AL,DATE=TH,BH,0)LINETHICK2,COLORYELLOW; DRAWLINE(DATE=TH,BH,DATE=TC,CZF,0)LINETHICK2,COLORCYAN; {区间涨跌} 向上:=TROUGHBARS(2,N,1); 向下:=PEAKBARS(1,N,1); 涨％:=IF(向上向下,(C/低-1)*100,REF((C/低-1)*100,向下)); 跌％:=IF(向下向上,(C/高-1)*100,REF((C/高-1)*100,向上)); DRAWNUMBER(向上=0,低*0.99,ABS(高-低)),COLORGREEN; DRAWNUMBER(向下=0,高*1.02,ABS(高-低)),COLORRED; ZHSJ:=IF(向下向上,BACKSET(ISLASTBAR,向下),IF(向上向下,BACKSET(ISLASTBAR,向上),0)); DRAWTEXT(向下向上ANDCROSS(ZHSJ,0.1),高*1.004,'本高'),COLORGREEN; DRAWTEXT(向下向上ANDCROSS(ZHSJ,0.1),低*1.004,'本低'),COLORRED; DRAWTEXT(向下向上ANDCROSS(ZHSJ,0.1),F0191*1.003,'80.9%'),COLORYELLOW; DRAWTEXT(向下向上ANDCROSS(ZHSJ,0.1),F0382*1.003,'61.8%'),COLORCYAN; DRAWTEXT(向下向上ANDCROSS(ZHSJ,0.1),F0500*1.003,'50.0%'),COLORWHITE; DRAWTEXT(向下向上ANDCROSS(ZHSJ,0.1),F0618*1.003,'38.2%'),COLORGREEN; DRAWTEXT(向下向上ANDCROSS(ZHSJ,0.1),F0809*1.003,'19.1%'),COLORRED; DRAWNUMBER(向下向上ANDCROSS(ZHSJ,0.1),高,高)COLORGREEN; DRAWNUMBER(向下向上ANDCROSS(ZHSJ,0.1),F0191,F0191)COLORYELLOW; DRAWNUMBER(向下向上ANDCROSS(ZHSJ,0.1),F0382,F0382)COLORCYAN; DRAWNUMBER(向下向上ANDCROSS(ZHSJ,0.1),F0500,F0500)COLORGREEN; DRAWNUMBER(向下向上ANDCROSS(ZHSJ,0.1),F0618,F0618)COLORCYAN; DRAWNUMBER(向下向上ANDCROSS(ZHSJ,0.1),F0809,F0809)COLORMAGENTA; DRAWNUMBER(向下向上ANDCROSS(ZHSJ,0.1),低,低)COLORRED; DRAWTEXT(向下向上ANDCROSS(ZHSJ,0.1),高*1.003,'前高'),COLORGREEN; DRAWTEXT(向下向上ANDCROSS(ZHSJ,0.1),低*1.003,'前低'),COLORRED; DRAWTEXT(向下向上ANDCROSS(ZHSJ,0.1),F0191*1.003,'19.1%'),COLORRED; DRAWTEXT(向下向上ANDCROSS(ZHSJ,0.1),F0382*1.003,'38.2%'),COLORGREEN; DRAWTEXT(向下向上ANDCROSS(ZHSJ,0.1),F0500*1.003,'50.0%'),COLORWHITE; DRAWTEXT(向下向上ANDCROSS(ZHSJ,0.1),F0618*1.003,'61.8%'),COLORCYAN; DRAWTEXT(向下向上ANDCROSS(ZHSJ,0.1),F0809*1.003,'80.9%'),COLORYELLOW; DRAWNUMBER(向下向上ANDCROSS(ZHSJ,0.1),高,高)COLORGREEN; DRAWNUMBER(向下向上ANDCROSS(ZHSJ,0.1),F0809,F0809)COLORYELLOW; DRAWNUMBER(向下向上ANDCROSS(ZHSJ,0.1),F0618,F0618)COLORCYAN; DRAWNUMBER(向下向上ANDCROSS(ZHSJ,0.1),F0500,F0500)COLORGREEN; DRAWNUMBER(向下向上ANDCROSS(ZHSJ,0.1),F0382,F0382)COLORCYAN; DRAWNUMBER(向下向上ANDCROSS(ZHSJ,0.1),F0191,F0191)COLORMAGENTA; DRAWNUMBER(向下向上ANDCROSS(ZHSJ,0.1),低,低)COLORRED; input:N(5,1,100); EMA13:=EMA(C,13); ma30:=ma(c,30); ma72:=ma(c,72); {地心引力:(ma30+ma72)/2,POINTDOT,ColorFF7F93,LINETHICK3; 上引力:(ma30+ma72)/2*0.9,POINTDOT,ColorFF7F93,LINETHICK3; 下引力:(ma30+ma72)/2*1.1,POINTDOT,ColorFF7F93,LINETHICK3;} {DRAWGBKLAST(CLOSE 0,STRIP(RGB(95,95,95),RGB(0,0,0),0));} ema17:=ema(c,17); 主筹估算:=EMA(WINNER(c)*70,3); 散筹估算:=EMA((WINNER((c)*1.1)-WINNER((c)*0.9))*70,3); 锁定:=散筹估算-主筹估算; 动态底部:=EMA(IF(L =LLV(l,60),SMA(ABS(L-REF(L,1)),60,1)/SMA(MAX(L-REF(l,1),0),99,1),0)*5,3); 涨:=CROSS(主筹估算,筹码锁定); 强:=CROSS(主筹估算,散筹估算); {STICKLINE(涨,O,C,8,0),COLORYELLOW; STICKLINE(涨,O,H,0,0),COLORYELLOW; STICKLINE(涨,L,C,0,0),COLORYELLOW; STICKLINE(强,O,C,8,0),colormagenta; STICKLINE(强,O,H,0,0),colormagenta; STICKLINE(强,L,C,0,0),colormagenta; {黄金分割线} lhnh:=BARSLAST(DISPSTATUS=1)+1; nnl:=DISPSTATUS=2; Al:=BACKSET(nnl,hhvBARS(h,lhnh)+1); Bl:=Al REF(Al,1); Al2:=BACKSET(nnl,LLVBARS(L,lhnh)+1); Bl2:=Al2 REF(Al2,1); 前高:REF(H,BARSLAST(bl)),PRECIS2,COLORff00ff,LINETHICK2; DRAWTEXT(nnl,前高,'前高：'+前高),ALIGN2,COLORGREEN; 前低:REF(L,BARSLAST(Bl2)),PRECIS2,COLORGREEN,LINETHICK2; DRAWTEXT(nnl,前低*1.009,'前低：'+前低),ALIGN2,COLORGREEN; Fl1:((前高-前低)*0.191)+前低,POINTDOT,ColorFF7F93,LINETHICK3; DRAWTEXT(BARSLAST(Bl) BARSLAST(Bl2)andnnl,Fl1,'0.236：'+Fl1),Color938C93; Fl2:((前高-前低)*0.382)+前低,POINTDOT,Color5E8C93,LINETHICK3; DRAWTEXT(BARSLAST(Bl) BARSLAST(Bl2)andnnl,Fl2,'0.382：'+Fl2),ALIGN2,COLORGREEN; Fl3:((前高-前低)*0.5)+前低,POINTDOT,COLOR00ffff,LINETHICK4; DRAWTEXT(nnl,Fl3,'0.5：'+Fl3),ALIGN2,Color918C93; Fl4:((前高-前低)*0.618)+前低,POINTDOT,Color918C93,LINETHICK3; DRAWTEXT(BARSLAST(Bl) BARSLAST(Bl2)andnnl,Fl4,'0.618：'+Fl4),ALIGN2,COLORGREEN; Fl5:((前高-前低)*0.809)+前低,POINTDOT,Color918C67,LINETHICK3; DRAWTEXT(BARSLAST(Bl) BARSLAST(Bl2)andnnl,Fl5,'0.764：'+Fl5),ALIGN2,COLORGREEN; pp:=MAX(BARSLAST(bl),BARSLAST(Bl2))+1; k1:=pp-1; k2:=pp-3; k3:=pp-5; k4:=pp-8; k5:=pp-13; k6:=pp-21; k7:=pp-34; k8:=pp-55; k9:=pp-89; k10:=pp-144; k11:=pp-233; VERTLINE(FILTER(c=ref(c,k1),0),1); VERTLINE(FILTER(c=ref(c,k2),0),1); VERTLINE(FILTER(c=ref(c,k3),0),1); VERTLINE(FILTER(c=ref(c,k4),0),1); VERTLINE(FILTER(c=ref(c,k5),0),1); VERTLINE(FILTER(c=ref(c,k6),0),1); VERTLINE(FILTER(c=ref(c,k7),0),1); VERTLINE(FILTER(c=ref(c,k8),0),1); VERTLINE(FILTER(c=ref(c,k9),0),1); VERTLINE(FILTER(c=ref(c,k10),0),1); VERTLINE(FILTER(c=ref(c,k11),0),1); DRAWTEXT(FILTER(c=ref(c,k1),0),(HHV(h,80)+LLV(l,80))/2,'1'),COLORred,LINETHICK2; DRAWTEXT(FILTER(c=ref(c,k2),0),(HHV(h,80)+LLV(l,80))/2,'3'),COLORred,LINETHICK2; DRAWTEXT(FILTER(c=ref(c,k3),0),(HHV(h,80)+LLV(l,80))/2,'5'),COLORGREEN,LINETHICK2; DRAWTEXT(FILTER(c=ref(c,k4),0),(HHV(h,80)+LLV(l,80))/2,'8'),COLORred,LINETHICK2; DRAWTEXT(FILTER(c=ref(c,k5),0),(HHV(h,80)+LLV(l,80))/2,'13'),COLORred,LINETHICK2; DRAWTEXT(FILTER(c=ref(c,k6),0),(HHV(h,80)+LLV(l,80))/2,'21转'),COLORGREEN,LINETHICK2; DRAWTEXT(FILTER(c=ref(c,k7),0),(HHV(h,80)+LLV(l,80))/2,'34'),COLORred,LINETHICK2; DRAWTEXT(FILTER(c=ref(c,k8),0),(HHV(h,80)+LLV(l,80))/2,'55'),COLORred,LINETHICK2; DRAWTEXT(FILTER(c=ref(c,k9),0),(HHV(h,80)+LLV(l,80))/2,'89'),COLORGREEN,LINETHICK2; DRAWTEXT(FILTER(c=ref(c,k10),0),(HHV(h,80)+LLV(l,80))/2,'144'),COLORred,LINETHICK2; DRAWTEXT(FILTER(c=ref(c,k11),0),(HHV(h,80)+LLV(l,80))/2,'233'),COLORGREEN,LINETHICK2; A1:=ref(h,N)=hhv(h,2*N+1); B1:=filter(A1,N); C1:=backset(B1,N+1); D1:=filter(C1,n)orBARSTATUS=2;{高点} A2:=ref(l,N)=llv(l,2*N+1); B2:=filter(A2,N); C2:=backset(B2,N+1); D2:=filter(C2,N);{低点} E1:=(ref(llv(l,2*N),1)+ref(hhv(h,2*N),1))/2;E2:=(h+l)/2;{高低点出现在同一K线上时可作取舍} H1:=(D1ANDnot(D2ANDE1 =E2))ORbarstatus=2ORbarscount(c)=1; L1:=(D2ANDnot(D1ANDE1 E2));H2:=D1ANDnot(D2ANDE1 =E2); X1:=ref(barslast(H1),1)+1;F1:=backset(H1ANDcount(L1,X1) 0,llvbars (if(L1,l,10000),X1)); G1:=F1 ref(F1,1);I1:=backset(G1,2);LD:=I1 ref(I1,1);{过滤后低点} L2:=LDORbarstatus=2ORbarscount(c)=1; X2:=ref(barslast(L2),1)+1;F2:=backset(L2ANDcount(H2,X2) 0,hhvbars (if(H2,h,0),X2)); G2:=F2 ref(F2,1);I2:=backset(G2,2);HD:=I2 ref(I2,1);{过滤后高点} R1:=backset(barstatus=2,barslast(HD)+1);S1:=R1 ref(R1,1);{前一高} T1:=backset(barstatus=2,barslast(LD)+1);U1:=T1 ref(T1,1);{前一低} R2:=backset(S1,ref(barslast(HD),1)+2);S2:=R2 ref(R2,1);{前二高} T2:=backset(U1,ref(barslast(LD),1)+2);U2:=T2 ref(T2,1);{前二低} T3:=backset(U2,ref(barslast(LD),1)+2);U3:=T3 ref(T3,1);{前三低} T4:=backset(U3,ref(barslast(LD),1)+2);U4:=T4 ref(T4,1);{前四低} R3:=backset(S2,ref(barslast(HD),1)+2);S3:=R3 ref(R3,1);{前三高} R4:=backset(S3,ref(barslast(HD),1)+2);S4:=R4 ref(R4,1);{前四高} {短期组} EMA(C,3),colorff9966; EMA(C,5),colorff9966; EMA(C,8),colorff9966; EMA(C,10),colorff9966; EMA(C,12),colorff9966; EMA(C,15),colorff9966; {长期组} EMA(C,30),color0000ff; EMA(C,35),color0000ff; EMA(C,40),color0000ff; EMA(C,45),color0000ff; EMA(C,50),color0000ff; EMA(C,60),color0000ff; MA60:MA(CLOSE,60),colorgreen; MA120:MA(CLOSE,120),COLORMAGENTA; MA250:MA(CLOSE,250),color008364; I1:=0; flag1:=0; whileI1 BARSLAST(DISPSTATUS=1)-BARSLAST(DISPSTATUS=2) IFREF(H,I1) REF(L,I1+1)ANDREF(L,I1+1) HHV(H,I1+1) THENBEGINFLAG1:=1; S1:=I1; I1:=BARSLAST(DISPSTATUS=1); ENDELSEI1:=I1+1; STICKLINE(FLAG1,REF(L,S1+1),HHV(h,S1+1),(s1+1)*23,0),ColorC0C0C0,ALIGN1,LAYER7; DRAWTEXT(flag1,REF(L,s1+1),NUMTOSTRN(ref(l,s1+1),2)+'-'+NUMTOSTRN(hhV(h,S1+1),2)),ALIGN2,COLORgreen; ZT:=C/REF(C,1) 1.095; XH:=FILTER(ZT,13); BH:=BARSLAST(ZT); CZ:=REF(H,BH)-REF(L,BH); {STICKLINE(C,(REF(L,BH)+CZ*0.5),(REF(L,BH)+CZ*0.5),7,0),COLORRED,LINETHICK3; {STICKLINE(C,REF(L,BH),REF(L,BH),7,0),COLORBLUE,LINETHICK3;} STICKLINE(ZT,REF(O,BH),REF(C,BH),7,0),COLORYELLOW; DRAWTEXT(ZT,L*0.98,''),COLORF00FF0; X:=REF(L,BH)+CZ*0.5; Y:=REF(L,BH); VARZT:=BARSLAST(C/REF(C,1) 1.097); {STICKLINE(VARZT=2,L*0.97,L*0.98,8,0),COLOR0000FF;} DRAWTEXT(VARZT=2,L*0.95,'3天'),COLORYELLOW; {STICKLINE(VARZT=4,H*1.03,H*1.02,8,0),COLOR9966FF;} DRAWTEXT(VARZT=4,H*1.06,'5天'),COLORYELLOW; {STICKLINE(VARZT=7,L*0.97,L*0.98,8,0),COLOR00FFFF;} DRAWTEXT(VARZT=7,L*0.95,'8天'),COLORYELLOW; {STICKLINE(VARZT=12,H*1.03,H*1.02,8,0),COLORFF33FF;} DRAWTEXT(VARZT=12,H*1.06,'13天'),COLORYELLOW; {STICKLINE(VARZT=20,L*0.97,L*0.98,8,0),COLOR0066FF;} DRAWTEXT(VARZT=20,L*0.95,'21天'),COLORYELLOW; {STICKLINE(VARZT=33,H*1.03,H*1.02,8,0),COLOR9932CD;} DRAWTEXT(VARZT=33,H*1.06,'34天'),COLORYELLOW; {STICKLINE(VARZT=54,L*0.97,L*0.98,8,0),COLOR006600;} DRAWTEXT(VARZT=54,L*0.95,'55天'),COLORYELLOW; {STICKLINE(VARZT=88,H*1.03,H*1.02,8,0),COLOR00FF00;} DRAWTEXT(VARZT=88,H*1.06,'89天'),COLORYELLOW; {STICKLINE(VARZT=143,L*0.97,L*0.98,8,0),COLORCCFFFF;} DRAWTEXT(VARZT=143,L*0.95,'144天'),COLORYELLOW; {STICKLINE(VARZT=232,H*1.03,H*1.02,8,0),COLORFF0033;} DRAWTEXT(VARZT=232,H*1.06,'233天'),COLORYELLOW; {STICKLINE(VARZT=376,L*0.97,L*0.98,8,0),COLORFF9966;} DRAWTEXT(VARZT=376,L*0.95,'377天'),COLORYELLOW; 买线:=EMA(C,2); 卖线:=EMA(SLOPE(C,19)*5+C,9); BU:=CROSS(买线,卖线); SEL:=CROSS(卖线,买线); {DRAWTEXT(BU,LOW*0.996,'B'),COLORWHITE,LINETHICK3; DRAWTEXT(SEL,HIGH*1.028,'S'),COLORGREEN,LINETHICK3; {STICKLINE(买线 =卖线,LOW,HIGH,1,0),COLORRED; STICKLINE(买线 =卖线,CLOSE,OPEN,4.5,0),COLOR0000AA; STICKLINE(买线 =卖线,CLOSE,OPEN,4,0),COLOR0000CC; STICKLINE(买线 =卖线,CLOSE,OPEN,3,0),COLOR0000CC; STICKLINE(买线 =卖线,CLOSE,OPEN,2,0),COLOR0000EE; STICKLINE(买线卖线,CLOSE,OPEN,4.5,0),COLORAAAA00; STICKLINE(买线卖线,CLOSE,OPEN,4,0),COLORBBBB00; STICKLINE(买线卖线,CLOSE,OPEN,3,0),COLORCCCC00; STICKLINE(买线卖线,CLOSE,OPEN,2,0),COLOREEEE00; STICKLINE(买线卖线,LOW,HIGH,1,0),COLORFFFF00; STICKLINE(CROSS(买线,卖线)ORCROSS(卖线,买线),OPEN,CLOSE,3,0),COLOR00FFFF; {MA60:MA(CLOSE,60),colorgreen; MA120:MA(CLOSE,120),COLORMAGENTA; MA250:MA(CLOSE,250),color008364; {E3:EMA(C,3),COLORYELLOW; E5:EMA(C,5),COLORYELLOW; E8:EMA(C,8),COLORYELLOW; E10:EMA(C,10),COLORYELLOW; E12:EMA(C,12),COLORYELLOW; E15:EMA(C,15),COLORYELLOW; E30:EMA(C,30),COLORD1875A; E35:EMA(C,35),COLORD1875A; E40:EMA(C,40),COLORD1875A; E45:EMA(C,45),COLORD1875A; E50:EMA(C,50),COLORD1875A; E60:EMA(C,60),COLORD1875A; STICKLINE(C O,C,O,4,0),COLORRED; STICKLINE(C O,H,L,0,0),COLORRED; STICKLINE(C =O,C,O,4,0),COLORFFFF52; STICKLINE(C =O,H,L,0,0),COLORFFFF52; DRAWICON(EMA(C,8) EMA(C,15)ANDEMA(C,40) REF(EMA(C,40),1)ANDCROSS(EMA(C,3),EMA(C,35)),L-0.20,1); DRAWICON(EMA(C,15) EMA(C,40)ANDEMA(C,35) REF(EMA(C,35),1)ANDCROSS(EMA(C,3),EMA(C,5)),L-0.20,1); DRAWICON(ABS(EMA(C,15)-EMA(C,60))/C 0.01ANDEMA(C,15) EMA(C,30)ANDO EMA(C,3)ANDC EMA(C,3)ANDO EMA(C,15)ANDC EMA(C,15)ANDO EMA(C,30)ANDC EMA(C,30)ANDO EMA(C,60)ANDC EMA(C,60),L-0.20,1); DRAWICON(ABS(EMA(C,45)-EMA(C,30))/C 0.011ANDEMA(C,3) EMA(C,15)ANDEMA(C,15) EMA(C,40)ANDCROSS(EMA(C,5),EMA(C,60)),L-0.20,1); A1:=OPEN EMA(C,20)OROPEN EMA(C,40)OROPEN EMA(C,60); A2:=C MAX(EMA(C,20),MAX(EMA(C,40),EMA(C,60))); A3:=V/MA(V,10) A4:=C/REF(C,1) 1.049; 出水芙蓉:=A1ANDA2ANDA3ANDA4ANDO EMA(C,60)ANDC EMA(C,60); DRAWICON(出水芙蓉,L-0.20,1); {E3:EMA(C,3),COLORYELLOW; E5:EMA(C,5),COLORYELLOW; E8:EMA(C,8),COLORYELLOW; E10:EMA(C,10),COLORYELLOW; E12:EMA(C,12),COLORYELLOW; E15:EMA(C,15),COLORYELLOW; E30:EMA(C,30),COLORD1875A; E35:EMA(C,35),COLORD1875A; E40:EMA(C,40),COLORD1875A; E45:EMA(C,45),COLORD1875A; E50:EMA(C,50),COLORD1875A; E60:EMA(C,60),COLORD1875A; STICKLINE(C O,C,O,4,0),COLORRED; STICKLINE(C O,H,L,0,0),COLORRED; STICKLINE(C =O,C,O,4,0),COLORFFFF52; STICKLINE(C =O,H,L,0,0),COLORFFFF52; DRAWICON(EMA(C,8) EMA(C,15)ANDEMA(C,40) REF(EMA(C,40),1)ANDCROSS(EMA(C,3),EMA(C,35)),L-0.20,1); DRAWICON(EMA(C,15) EMA(C,40)ANDEMA(C,35) REF(EMA(C,35),1)ANDCROSS(EMA(C,3),EMA(C,5)),L-0.20,1); DRAWICON(ABS(EMA(C,15)-EMA(C,60))/C 0.01ANDEMA(C,15) EMA(C,30)ANDO EMA(C,3)ANDC EMA(C,3)ANDO EMA(C,15)ANDC EMA(C,15)ANDO EMA(C,30)ANDC EMA(C,30)ANDO EMA(C,60)ANDC EMA(C,60),L-0.20,1); DRAWICON(ABS(EMA(C,45)-EMA(C,30))/C 0.011ANDEMA(C,3) EMA(C,15)ANDEMA(C,15) EMA(C,40)ANDCROSS(EMA(C,5),EMA(C,60)),L-0.20,1); A1:=OPEN EMA(C,20)OROPEN EMA(C,40)OROPEN EMA(C,60); A2:=C MAX(EMA(C,20),MAX(EMA(C,40),EMA(C,60))); A3:=V/MA(V,10) A4:=C/REF(C,1) 1.049; 出水芙蓉:=A1ANDA2ANDA3ANDA4ANDO EMA(C,60)ANDC EMA(C,60); DRAWICON(出水芙蓉,L-0.20,1);}

通达信股票公式之黄金分割指标源码解读

N赋值:13 DO赋值:250612 DA赋值:250826 DB赋值:251117 DC赋值:260108 输出高:如果最高价 ,返回?,否则返回? 最高价N%之字转向的前1个波峰值,N日内最高价的最高值,最高价N%之字转向的前1个波峰值)线宽为2,画蓝色输出低:如果最低价 ,返回?,否则返回? 最低价N%之字转向的前1个波谷值,N日内最低价的最低值,最低价N%之字转向的前1个波谷值)线宽为2,画洋红色输出F0191:(高-低)*0.191+低,DOTLINE,画洋红色输出F0382:(高-低)*0.382+低,DOTLINE,画青色输出F0500:(高-低)*0.500+低,DOTLINE,画白色输出F0618:(高-低)*0.618+低,DOTLINE,画青色输出F0809:(高-低)*0.809+低,DOTLINE,画黄色输出趋势下:当满足条件最高价=N日内最高价的最高值时,在最高价位置画直线起点，当满足条件最低价=N日内最低价的最低值时,在最低价位置画直线终点,0表示是否延长.线宽为2,画绿色 SX赋值:1日前的趋势下 SS赋值:当满足条件SX时,在趋势下位置画直线起点，当满足条件1日前的SX时,在1日前的趋势下位置画直线终点,1表示是否延长. 画带状线输出趋势上:当满足条件最低价=N日内最低价的最低值时,在最低价位置画直线起点，当满足条件最高价=N日内最高价的最高值时,在最高价位置画直线终点,0表示是否延长.线宽为2,画洋红色 JX赋值:1日前的趋势上 JJ赋值:当满足条件JX时,在趋势上位置画直线起点，当满足条件1日前的JX时,在1日前的趋势上位置画直线终点,1表示是否延长. 画带状线超B赋值:成交额分档/10000.0 大B赋值:成交额分档/10000.0 中B赋值:成交额分档/10000.0 小B赋值:成交额分档/10000.0 超S赋值:成交额分档/10000.0 大S赋值:成交额分档/10000.0 中S赋值:成交额分档/10000.0 小S赋值:成交额分档/10000.0 输出大资金流向:(超B+大B)-(超S+大S)画黄色,NODRAW 当满足条件大资金流向时,在?和?位置之间画柱状线,宽度为?,?不为0则画空心柱. 0,开盘价,收盘价,2,0),COLORFF3300 当满足条件大资金流向时,在?和?位置之间画柱状线,宽度为?,?不为0则画空心柱. 0,开盘价,收盘价,1.2,0),COLORFF6600 当满足条件大资金流向时,在?和?位置之间画柱状线,宽度为?,?不为0则画空心柱. 0,开盘价,收盘价,0.5,0),COLORFF9900 当满足条件大资金流向时,在?和?位置之间画柱状线,宽度为?,?不为0则画空心柱. 0,开盘价,收盘价,2,0),COLOR0066FF 当满足条件大资金流向时,在?和?位置之间画柱状线,宽度为?,?不为0则画空心柱. 0,开盘价,收盘价,1.2,0),COLOR099FFF 当满足条件大资金流向时,在?和?位置之间画柱状线,宽度为?,?不为0则画空心柱. 0,开盘价,收盘价,0.5,0),COLOR00FFFF TL赋值:1000000+DA TH赋值:1000000+DB TC赋值:1000000+DC TO赋值:1000000+DO AL赋值:如果TL日收盘价 ,返回?,否则返回? TH日收盘价,TL日最高价,TL日最低价) BH赋值:如果TL日收盘价 ,返回?,否则返回? TH日收盘价,TH日最低价,TH日最高价) CZF赋值:如果TL日收盘价 ,返回?,否则返回? TH日收盘价,TC日最高价,TC日最低价) DJB赋值:如果TL日收盘价 ,返回?,否则返回? TH日收盘价,TO日最低价,TO日最高价) OP赋值:BH-AL+CZF COP赋值:0.618*(BH-AL)+CZF XOP赋值:如果(1.618*(BH-AL)+CZF) ,返回?,否则返回? 0,OP,1.618*(BH-AL)+CZF) TODAY赋值:日期当满足条件日期=TC时,在CZF和XOP位置之间画柱状线,宽度为0,-1不为0则画空心柱.,画黄色当满足条件日期=TC时,在COP位置画直线起点，当满足条件日期=TODAY时,在COP位置画直线终点,1表示是否延长.,DOTLINE,画黄色当满足条件日期=TC时,在OP位置画直线起点，当满足条件日期=TODAY时,在OP位置画直线终点,1表示是否延长.,DOTLINE,画黄色当满足条件日期=TC时,在XOP位置画直线起点，当满足条件日期=TODAY时,在XOP位置画直线终点,1表示是否延长.,DOTLINE,画黄色当满足条件日期=TC时,在COP*1.003位置书写文字,画黄色当满足条件日期=TC时,在OP*1.003位置书写文字,画黄色当满足条件日期=TC时,在XOP*1.003位置书写文字,画黄色当满足条件日期=TC时,在COP位置书写数字,画黄色当满足条件日期=TC时,在OP位置书写数字,画黄色当满足条件日期=TC时,在XOP位置书写数字,画黄色当满足条件日期=TO时,在DJB位置画直线起点，当满足条件日期=TL时,在AL位置画直线终点,0表示是否延长.CIRCLEDOT,画绿色当满足条件日期=TL时,在AL位置画直线起点，当满足条件日期=TH时,在BH位置画直线终点,0表示是否延长.线宽为2,画黄色当满足条件日期=TH时,在BH位置画直线起点，当满足条件日期=TC时,在CZF位置画直线终点,0表示是否延长.线宽为2,画青色向上赋值:最低价N%之字转向的前1个波谷位置向下赋值:最高价N%之字转向的前1个波峰位置涨％赋值:如果向上 ,返回?,否则返回? 向下,(收盘价/低-1)*100,向下日前的(收盘价/低-1)*100) 跌％赋值:如果向下 ,返回?,否则返回? 向上,(收盘价/高-1)*100,向上日前的(收盘价/高-1)*100) 当满足条件向上=0时,在低*0.99位置书写数字,画绿色当满足条件向下=0时,在高*1.02位置书写数字,画红色 ZHSJ赋值:如果向下 ,返回?,否则返回? 向上,若是否最后一个周期则将最近向下周期置为1,如果向上 ,返回?,否则返回? 向下,若是否最后一个周期则将最近向上周期置为1,0)) 当满足条件向下时,在?位置书写文字向上ANDCROSS(ZHSJ,0.1),高*1.004,'本高'),画绿色当满足条件向下时,在?位置书写文字向上ANDCROSS(ZHSJ,0.1),低*1.004,'本低'),画红色当满足条件向下时,在?位置书写文字向上ANDCROSS(ZHSJ,0.1),F0191*1.003,'80.9%'),画黄色当满足条件向下时,在?位置书写文字向上ANDCROSS(ZHSJ,0.1),F0382*1.003,'61.8%'),画青色当满足条件向下时,在?位置书写文字向上ANDCROSS(ZHSJ,0.1),F0500*1.003,'50.0%'),画白色当满足条件向下时,在?位置书写文字向上ANDCROSS(ZHSJ,0.1),F0618*1.003,'38.2%'),画绿色当满足条件向下时,在?位置书写文字向上ANDCROSS(ZHSJ,0.1),F0809*1.003,'19.1%'),画红色当满足条件向下时,在?位置书写数字向上ANDCROSS(ZHSJ,0.1),高,高)画绿色当满足条件向下时,在?位置书写数字向上ANDCROSS(ZHSJ,0.1),F0191,F0191)画黄色当满足条件向下时,在?位置书写数字向上ANDCROSS(ZHSJ,0.1),F0382,F0382)画青色当满足条件向下时,在?位置书写数字向上ANDCROSS(ZHSJ,0.1),F0500,F0500)画绿色当满足条件向下时,在?位置书写数字向上ANDCROSS(ZHSJ,0.1),F0618,F0618)画青色当满足条件向下时,在?位置书写数字向上ANDCROSS(ZHSJ,0.1),F0809,F0809)画洋红色当满足条件向下时,在?位置书写数字向上ANDCROSS(ZHSJ,0.1),低,低)画红色当满足条件向下时,在?位置书写文字向上ANDCROSS(ZHSJ,0.1),高*1.003,'前高'),画绿色当满足条件向下时,在?位置书写文字向上ANDCROSS(ZHSJ,0.1),低*1.003,'前低'),画红色当满足条件向下时,在?位置书写文字向上ANDCROSS(ZHSJ,0.1),F0191*1.003,'19.1%'),画红色当满足条件向下时,在?位置书写文字向上ANDCROSS(ZHSJ,0.1),F0382*1.003,'38.2%'),画绿色当满足条件向下时,在?位置书写文字向上ANDCROSS(ZHSJ,0.1),F0500*1.003,'50.0%'),画白色当满足条件向下时,在?位置书写文字向上ANDCROSS(ZHSJ,0.1),F0618*1.003,'61.8%'),画青色当满足条件向下时,在?位置书写文字向上ANDCROSS(ZHSJ,0.1),F0809*1.003,'80.9%'),画黄色当满足条件向下时,在?位置书写数字向上ANDCROSS(ZHSJ,0.1),高,高)画绿色当满足条件向下时,在?位置书写数字向上ANDCROSS(ZHSJ,0.1),F0809,F0809)画黄色当满足条件向下时,在?位置书写数字向上ANDCROSS(ZHSJ,0.1),F0618,F0618)画青色当满足条件向下时,在?位置书写数字向上ANDCROSS(ZHSJ,0.1),F0500,F0500)画绿色当满足条件向下时,在?位置书写数字向上ANDCROSS(ZHSJ,0.1),F0382,F0382)画青色当满足条件向下时,在?位置书写数字向上ANDCROSS(ZHSJ,0.1),F0191,F0191)画洋红色当满足条件向下时,在?位置书写数字向上ANDCROSS(ZHSJ,0.1),低,低)画红色输出INPUT:N(5,1,100) EMA13赋值:收盘价的13日指数移动平均 MA30赋值:收盘价的30日简单移动平均 MA72赋值:收盘价的72日简单移动平均 EMA17赋值:收盘价的17日指数移动平均主筹估算赋值:以收盘价计算的获利盘比例*70的3日指数移动平均散筹估算赋值:(以(收盘价)*1.1计算的获利盘比例-以(收盘价)*0.9计算的获利盘比例)*70的3日指数移动平均筹码锁定赋值:散筹估算-主筹估算动态底部赋值:如果最低价 ,返回?,否则返回?的?日指数移动平均 =60日内最低价的最低值,最低价-1日前的最低价的绝对值的60日[1日权重]移动平均/最低价-1日前的最低价和0的较大值的99日[1日权重]移动平均,0)*5,3) 涨赋值:主筹估算上穿筹码锁定强赋值:主筹估算上穿散筹估算 LHNH赋值:上次DISPSTATUS=1距今天数+1 NNL赋值:DISPSTATUS=2 AL赋值:若NNL则将最近LHNH日内最高价距今天数+1周期置为1 BL赋值:AL 1日前的AL AL2赋值:若NNL则将最近LHNH日内最低价距今天数+1周期置为1 BL2赋值:AL2 1日前的AL2 输出前高:上次BL距今天数日前的最高价,PRECIS2,COLORFF00FF,线宽为2 当满足条件NNL时,在前高位置书写文字,ALIGN2,画绿色输出前低:上次BL2距今天数日前的最低价,PRECIS2,画绿色,线宽为2 当满足条件NNL时,在前低*1.009位置书写文字,ALIGN2,画绿色输出FL1:((前高-前低)*0.191)+前低,POINTDOT,COLORFF7F93,线宽为3 当满足条件上次BL距今天数时,在?位置书写文字上次BL2距今天数ANDNNL,FL1,'0.236：'+FL1),COLOR938C93 输出FL2:((前高-前低)*0.382)+前低,POINTDOT,COLOR5E8C93,线宽为3 当满足条件上次BL距今天数时,在?位置书写文字上次BL2距今天数ANDNNL,FL2,'0.382：'+FL2),ALIGN2,画绿色输出FL3:((前高-前低)*0.5)+前低,POINTDOT,COLOR00FFFF,线宽为4 当满足条件NNL时,在FL3位置书写文字,ALIGN2,COLOR918C93 输出FL4:((前高-前低)*0.618)+前低,POINTDOT,COLOR918C93,线宽为3 当满足条件上次BL距今天数时,在?位置书写文字上次BL2距今天数ANDNNL,FL4,'0.618：'+FL4),ALIGN2,画绿色输出FL5:((前高-前低)*0.809)+前低,POINTDOT,COLOR918C67,线宽为3 当满足条件上次BL距今天数时,在?位置书写文字上次BL2距今天数ANDNNL,FL5,'0.764：'+FL5),ALIGN2,画绿色 PP赋值:上次BL距今天数和上次BL2距今天数的较大值+1 K1赋值:PP-1 K2赋值:PP-3 K3赋值:PP-5 K4赋值:PP-8 K5赋值:PP-13 K6赋值:PP-21 K7赋值:PP-34 K8赋值:PP-55 K9赋值:PP-89 K10赋值:PP-144 K11赋值:PP-233 VERTLINE(收盘价=K1日前的收盘价的历史过滤,1) VERTLINE(收盘价=K2日前的收盘价的历史过滤,1) VERTLINE(收盘价=K3日前的收盘价的历史过滤,1) VERTLINE(收盘价=K4日前的收盘价的历史过滤,1) VERTLINE(收盘价=K5日前的收盘价的历史过滤,1) VERTLINE(收盘价=K6日前的收盘价的历史过滤,1) VERTLINE(收盘价=K7日前的收盘价的历史过滤,1) VERTLINE(收盘价=K8日前的收盘价的历史过滤,1) VERTLINE(收盘价=K9日前的收盘价的历史过滤,1) VERTLINE(收盘价=K10日前的收盘价的历史过滤,1) VERTLINE(收盘价=K11日前的收盘价的历史过滤,1) 当满足条件收盘价=K1日前的收盘价的历史过滤时,在(80日内最高价的最高值+80日内最低价的最低值)/2位置书写文字,画红色,线宽为2 当满足条件收盘价=K2日前的收盘价的历史过滤时,在(80日内最高价的最高值+80日内最低价的最低值)/2位置书写文字,画红色,线宽为2 当满足条件收盘价=K3日前的收盘价的历史过滤时,在(80日内最高价的最高值+80日内最低价的最低值)/2位置书写文字,画绿色,线宽为2 当满足条件收盘价=K4日前的收盘价的历史过滤时,在(80日内最高价的最高值+80日内最低价的最低值)/2位置书写文字,画红色,线宽为2 当满足条件收盘价=K5日前的收盘价的历史过滤时,在(80日内最高价的最高值+80日内最低价的最低值)/2位置书写文字,画红色,线宽为2 当满足条件收盘价=K6日前的收盘价的历史过滤时,在(80日内最高价的最高值+80日内最低价的最低值)/2位置书写文字,画绿色,线宽为2 当满足条件收盘价=K7日前的收盘价的历史过滤时,在(80日内最高价的最高值+80日内最低价的最低值)/2位置书写文字,画红色,线宽为2 当满足条件收盘价=K8日前的收盘价的历史过滤时,在(80日内最高价的最高值+80日内最低价的最低值)/2位置书写文字,画红色,线宽为2 当满足条件收盘价=K9日前的收盘价的历史过滤时,在(80日内最高价的最高值+80日内最低价的最低值)/2位置书写文字,画绿色,线宽为2 当满足条件收盘价=K10日前的收盘价的历史过滤时,在(80日内最高价的最高值+80日内最低价的最低值)/2位置书写文字,画红色,线宽为2 当满足条件收盘价=K11日前的收盘价的历史过滤时,在(80日内最高价的最高值+80日内最低价的最低值)/2位置书写文字,画绿色,线宽为2 A1赋值:N日前的最高价=2*N+1日内最高价的最高值 B1赋值:A1的N日过滤 C1赋值:若B1则将最近N+1周期置为1 D1赋值:C1的N日过滤ORBARSTATUS=2 A2赋值:N日前的最低价=2*N+1日内最低价的最低值 B2赋值:A2的N日过滤 C2赋值:若B2则将最近N+1周期置为1 D2赋值:C2的N日过滤 E1赋值:(1日前的2*N日内最低价的最低值+1日前的2*N日内最高价的最高值)/2 E2赋值:(最高价+最低价)/2 H1赋值:(D1ANDNOT(D2ANDE1 =E2))ORBARSTATUS=2ORBARSCOUNT(收盘价)=1 L1赋值:(D2ANDNOT(D1ANDE1 E2)) H2赋值:D1ANDNOT(D2ANDE1 =E2) X1赋值:1日前的上次H1距今天数+1 F1赋值:若H1ANDCOUNT(L1,X1) 则将最近?周期置为1 0,X1日内如果L1,返回最低价,否则返回10000距今天数) G1赋值:F1 1日前的F1 I1赋值:若G1则将最近2周期置为1 LD赋值:I1 1日前的I1 L2赋值:LDORBARSTATUS=2ORBARSCOUNT(收盘价)=1 X2赋值:1日前的上次L2距今天数+1 F2赋值:若L2ANDCOUNT(H2,X2) 则将最近?周期置为1 0,X2日内如果H2,返回最高价,否则返回0距今天数) G2赋值:F2 1日前的F2 I2赋值:若G2则将最近2周期置为1 HD赋值:I2 1日前的I2 R1赋值:若数据位置状态=2则将最近上次HD距今天数+1周期置为1 S1赋值:R1 1日前的R1 T1赋值:若数据位置状态=2则将最近上次LD距今天数+1周期置为1 U1赋值:T1 1日前的T1 R2赋值:若S1则将最近1日前的上次HD距今天数+2周期置为1 S2赋值:R2 1日前的R2 T2赋值:若U1则将最近1日前的上次LD距今天数+2周期置为1 U2赋值:T2 1日前的T2 T3赋值:若U2则将最近1日前的上次LD距今天数+2周期置为1 U3赋值:T3 1日前的T3 T4赋值:若U3则将最近1日前的上次LD距今天数+2周期置为1 U4赋值:T4 1日前的T4 R3赋值:若S2则将最近1日前的上次HD距今天数+2周期置为1 S3赋值:R3 1日前的R3 R4赋值:若S3则将最近1日前的上次HD距今天数+2周期置为1 S4赋值:R4 1日前的R4 收盘价的3日指数移动平均,COLORFF9966 收盘价的5日指数移动平均,COLORFF9966 收盘价的8日指数移动平均,COLORFF9966 收盘价的10日指数移动平均,COLORFF9966 收盘价的12日指数移动平均,COLORFF9966 收盘价的15日指数移动平均,COLORFF9966 收盘价的30日指数移动平均,COLOR0000FF 收盘价的35日指数移动平均,COLOR0000FF 收盘价的40日指数移动平均,COLOR0000FF 收盘价的45日指数移动平均,COLOR0000FF 收盘价的50日指数移动平均,COLOR0000FF 收盘价的60日指数移动平均,COLOR0000FF 输出MA60:收盘价的60日简单移动平均,画绿色输出MA120:收盘价的120日简单移动平均,画洋红色输出MA250:收盘价的250日简单移动平均,COLOR008364 I1赋值:0 FLAG1赋值:0 WHILEI1 上次DISPSTATUS=1距今天数-上次DISPSTATUS=2距今天数DOIFREF(最高价,I1) I1+1日前的最低价ANDREF(最低价,I1+1) THENBEGINFLAG1赋值:1 S1赋值:I1 I1赋值:上次DISPSTATUS=1距今天数 ENDELSEI1赋值:I1+1 当满足条件FLAG1时,在S1+1日前的最低价和S1+1日内最高价的最高值位置之间画柱状线,宽度为(S1+1)*23,0不为0则画空心柱.,COLORC0C0C0,ALIGN1,LAYER7 当满足条件FLAG1时,在S1+1日前的最低价位置书写文字,ALIGN2,画绿色 ZT赋值:收盘价/1日前的收盘价 1.095 XH赋值:ZT的13日过滤 BH赋值:上次ZT距今天数 CZ赋值:BH日前的最高价-BH日前的最低价当满足条件ZT时,在BH日前的开盘价和BH日前的收盘价位置之间画柱状线,宽度为7,0不为0则画空心柱.,画黄色当满足条件ZT时,在最低价*0.98位置书写文字,COLORF00FF0 X赋值:BH日前的最低价+CZ*0.5 Y赋值:BH日前的最低价 VARZT赋值:上次收盘价/1日前的收盘价距今天数 1.097) 当满足条件VARZT=2时,在最低价*0.95位置书写文字,画黄色当满足条件VARZT=4时,在最高价*1.06位置书写文字,画黄色当满足条件VARZT=7时,在最低价*0.95位置书写文字,画黄色当满足条件VARZT=12时,在最高价*1.06位置书写文字,画黄色当满足条件VARZT=20时,在最低价*0.95位置书写文字,画黄色当满足条件VARZT=33时,在最高价*1.06位置书写文字,画黄色当满足条件VARZT=54时,在最低价*0.95位置书写文字,画黄色当满足条件VARZT=88时,在最高价*1.06位置书写文字,画黄色当满足条件VARZT=143时,在最低价*0.95位置书写文字,画黄色当满足条件VARZT=232时,在最高价*1.06位置书写文字,画黄色当满足条件VARZT=376时,在最低价*0.95位置书写文字,画黄色买线赋值:收盘价的2日指数移动平均卖线赋值:收盘价的19日线性回归斜率*5+收盘价的9日指数移动平均 BU赋值:买线上穿卖线 SEL赋值:卖线上穿买线

相关推荐