| 舞文弄墨,公式有未来函数 AMV0:=VOL*(O+C)/2; CG:MA(C,3),COLORFFCC66,LINETHICK2; FL:=HHV(CG,2); 黄金线:HHV(CG,2),COLOR00FF00; FS:CG-(FL-CG),COLORRED,LINETHICK2; 十:MA(C,13),COLOR00FFFF,LINETHICK2; 涨:IF(MA(CLOSE,13)>REF(MA(CLOSE,13),1),MA(CLOSE,13),DRAWNULL),COLORRED,LINETHICK2; 平:IF(MA(CLOSE,13)=REF(MA(CLOSE,13),1),MA(CLOSE,13),DRAWNULL),COLOR00FFFF,LINETHICK3; 跌:IF(MA(CLOSE,13)<REF(MA(CLOSE,13),1),MA(CLOSE,13),DRAWNULL),COLORGREEN,LINETHICK2; DRAWTEXT(平=十,十*0.998-0.01,'关注'),COLORCYAN;TY:=C; A1:=REF(TY,10)=HHV(TY,2*10+1); B1:=FILTER(A1,10); C1:=BACKSET(B1,10+1); HD:=FILTER(C1,10); A2:=REF(TY,10)=LLV(TY,2*10+1); B2:=FILTER(A2,10); C2:=BACKSET(B2,10+1); LD:=FILTER(C2,10); A:=REF(C,BARSLAST(HD)); B:=REF(C,BARSLAST(LD)); T1:=BARSLAST(HD)<BARSLAST(LD) AND NOT(HD) ; T2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD); 波峰:IF(T1,A,A),COLORFF00FF,POINTDOT; STICKLINE(T1,A,A,9,0),COLORFF00FF; 波谷:IF(T2,B,B),COLOR80FF00,POINTDOT; STICKLINE(T2,B,B,9,0),COLOR80FF00;VAR3:=LLV(HIGH,240); VAR4:=100*(CLOSE-VAR3)/VAR3; VAR5:=(CLOSE-LLV(LOW,528))/(HHV(HIGH,528)-LLV(LOW,528))*100; VAR6:=(CLOSE-LLV(CLOSE,530))/(HHV(CLOSE,530)-LLV(CLOSE,530))*100; VAR7:=0; VAR8:=SMA(MAX(CLOSE-REF(CLOSE,1),0),34,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),7,1)*100; VAR9:=SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100; VAR10:=IF(TROUGHBARS(3,16,1)=0 AND HIGH>LOW+0.04,4,0); VAR11:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3); VAR12:=ZIG(3,6)<REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3); VAR13:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3); VAR14:=ZIG(3,22)<REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3); VAR15:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3); VAR16:=ZIG(3,51)<REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3); VAR17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3); VAR18:=ZIG(3,72)<REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3); VAR19:=EMA(CLOSE,2)-EMA(CLOSE,150); 买１:=VAR10; 买２:=(VAR11+VAR13+VAR15+VAR17); 卖１:=(VAR12+VAR14+VAR16+VAR18); DRAWTEXT(买１>0 OR 买２>0,LOW*0.99,'买'),COLORRED; S:IF(卖１>0,HIGH*1.01,DRAWNULL),CROSSDOT,LINETHICK3,COLORGREEN; DRAWTEXT(卖１>0,HIGH*1.02,'卖'),COLORGREEN; {股灵吧决策} VAR100:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20)))); VAR200:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20)))); VAR300:=(100 - MA(((100 * (HHV(HIGH,5) - CLOSE)) / (HHV(HIGH,5) - LLV(LOW,5))),34)); X1:=(C+L+H)/3; X2:=EMA(X1,6); X3:=EMA(X2,5); GR1:=BARSLAST(BETWEEN("BIAS.BIAS2"(6,13,24),0,5)); GR3:=COUNT("BIAS.BIAS2"(6,13,24)>10 AND H=HHV(H,GR1),GR1); GR4:=H=HHV(H,GR1); GR5:="MACD.MACD"(9,17,8)<REF("MACD.MACD"(9,17,8),1); STICKLINE(CLOSE> REF(CLOSE,1) ,HIGH,LOW,0,1 ),COLORRED; STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,3,0 ),COLOR000055; STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,2.7,0 ),COLOR000077; STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,2.1,0 ),COLOR000099; STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,1.5,0 ),COLOR0000BB; STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,0.9,0 ),COLOR0000DD; STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,0.3,0 ),COLOR0000FF; STICKLINE(CLOSE= REF(CLOSE,1) ,HIGH,LOW,0,1 ),COLORWHITE; STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,3,0 ),COLOR555555; STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,2.7,0 ),COLOR777777; STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,2.1,0 ),COLOR999999; STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,1.5,0 ),COLORBBBBBB; STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,0.9,0 ),COLORDDDDDD; STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,0.3,0 ),COLORFFFFFF; STICKLINE(CLOSE< REF(CLOSE,1) ,HIGH,LOW,0,1 ),COLORCYAN; STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,3,0 ),COLOR990000; STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,2.7,0 ),COLORCC0000; STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,2.1,0 ),COLORFF4400; STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,1.5,0 ),COLORFF8800; STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,0.9,0 ),COLORFFCC00; STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,0.3,0 ),COLORCYAN; 生命线:MA(CLOSE,43),LINETHICK3,COLORWHITE; AA1:=MA(C,5); BB1:=MA(C,15); AF:=CROSS(AA1,BB1); STICKLINE(AF,LLV(L,4),LLV(L,4),50,1),COLORRED,LINETHICK3; DRAWTEXT(AF,LLV(L,4),'止损线'),COLORYELLOW; VAR01:=SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),25); VAR02:=HIGH-REF(HIGH,1); VAR03:=REF(LOW,1)-LOW; VAR04:=SUM(IF(VAR02>0 AND VAR02>VAR03,VAR02,0),25); VAR05:=SUM(IF(VAR03>0 AND VAR03>VAR02,VAR03,0),25); VAR06:=VAR04*100/VAR01; VAR07:=VAR05*100/VAR01; VAR08:=MA(ABS(VAR07-VAR06)/(VAR07+VAR06)*100,15); VAR09:=(VAR08+REF(VAR08,15))/2; LC:=REF(CLOSE,1); RSI:=SMA(MAX(CLOSE-LC,0),4.1,1)/SMA(ABS(CLOSE-LC),4.1,1)*100; DRAWICON(CROSS(84,RSI) ,H*1.03,5); DRAWICON(CROSS(RSI,11) ,L*0.99,4); VAR27:=REF(CLOSE,1); VAR28:=SMA(MAX(CLOSE-VAR27,0),5.5,1)/SMA(ABS(CLOSE-VAR27),6,1)*100; DRAWICON(IF(CROSS(76,VAR28),1,0),H*1.03,5); DRAWTEXT(FILTER(EMA(CLOSE,60)-EMA(CLOSE,12)>0 AND EMA(CLOSE,12)/LOW>1.15,5), LOW,'☆'),LINETHICK7 , 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); DRAWTEXT((REF(BIAS18,1)>=5) AND CROSS(VARJ,VARE) AND (AA>SS),H*1.02,'☆卖'),LINETHICK7,COLORGREEN; VAR31:=ZIG(3,10)<REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)>REF(ZIG(3,10),2);{ZIG 有未来} VAR32:=ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)<REF(ZIG(3,10),2); STICKLINE(VAR31,C,O,1,0),COLORYELLOW,LINETHICK2;{高位黄色} STICKLINE(VAR31,C,O,1,0),COLORYELLOW,LINETHICK2;{高位黄色} STICKLINE(VAR31,H,L,1,0),COLORYELLOW,LINETHICK2;{高位黄色} STICKLINE(VAR32,C,O,1,0),COLORFF00FF,LINETHICK2;{底位红色} STICKLINE(VAR32,C,O,1,0),COLORFF00FF,LINETHICK2;{底位红色} STICKLINE(VAR32,H,L,1,0),COLORFF00FF,LINETHICK2;{底位红色}; 涨跌超前预知 {周月RSI引用} N1:=6; N2:=12; N3:=24; LC:REF(CLOSE,1); YN11:SMA(MAX(CLOSE-LC,0),N1,1); YN12:SMA(ABS(CLOSE-LC),N1,1); YN21:SMA(MAX(CLOSE-LC,0),N2,1); YN22:SMA(ABS(CLOSE-LC),N2,1); YN31:SMA(MAX(CLOSE-LC,0),N3,1); YN32:SMA(ABS(CLOSE-LC),N3,1); {涨跌超前预知} {源码引用了见凌见大师和沧海行大师和运七大师的指标} 0,COLORGRAY; DIF12:=(EMA(CLOSE,12)-EMA(CLOSE,26))/((EMA(CLOSE,12)+EMA(CLOSE,26))/2)*1000; DEA12:=EMA(DIF12,9); KDIF12:=3*(DIF12-DEA12); KDEA12:=SMA(KDIF12,5,2); 微分DIF:=KDIF12*5,COLORWHITE,LINETHICK1; 微分DEA:=KDEA12*5,COLORYELLOW,LINETHICK1; MACD2:2*(微分DIF-微分DEA),COLORBLACK; MAMACD:=MA(MACD2,3),,COLORBLACK; STICKLINE(MACD2>REF(MACD2,1) AND MACD2>0,0,MACD2,1,0),COLORRED; STICKLINE(MACD2<=REF(MACD2,1) AND MACD2>0,0,MACD2,1,0),COLORYELLOW; STICKLINE(MACD2<REF(MACD2,1) AND MACD2<0,0,MACD2,1,0),COLORCYAN; STICKLINE(MACD2>=REF(MACD2,1) AND MACD2<0,0,MACD2,1,0),COLORMAGENTA; STICKLINE(MAMACD<1*REF(MAMACD,1), MAMACD, MACD2 ,3, 0),COLORBLUE; STICKLINE(MAMACD>1*REF(MAMACD,1), MAMACD, MACD2 , 3, 0),COLORLIRED; 微分DIF2:KDIF12*5,COLORRED,LINETHICK1; 微分DEA2:KDEA12*5,COLORMAGENTA,LINETHICK1; NOTEXT强:IF(微分DIF2<MA(微分DIF2,2),微分DIF2,DRAWNULL),COLORGREEN; NOTEXT弱:IF(微分DEA2<MAX(微分DEA2,REF(微分DEA2,1)),微分DEA2,DRAWNULL),COLORYELLOW; N1:=6; N2:=12; N3:=24; YLC:=周月RSI引用.LC#MONTH; YY11:=周月RSI引用.YN11#MONTH; YY12:=周月RSI引用.YN12#MONTH; ZLC:=周月RSI引用.LC#WEEK; ZY11:=周月RSI引用.YN11#WEEK; ZY12:=周月RSI引用.YN12#WEEK; YRSI1:=((MAX(C-YLC,0)+YY11*(N1-1))/N1)/((ABS(C-YLC)+YY12*(N1-1))/N1)*100; ZRSI1:=((MAX(C-ZLC,0)+YY11*(N1-1))/N1)/((ABS(C-ZLC)+ZY12*(N1-1))/N1)*100; 月RI1:=YRSI1,COLORWHITE; 周RI1:=ZRSI1,COLORWHITE; 零:0,COLORBROWN,DOTLINE; N:=50; 沧海行周J:="KDJ.J#WEEK" ,COLORGREEN,LINETHICK2; 沧海行周D:="KDJ.D#WEEK" ,COLOR33AAAA,LINETHICK1; 沧海行周MA:=50*"MACD.MACD#WEEK" ,COLORLIGREEN,DOTLINE; 零点:=(CONST(LLV(沧海行周MA,90))+CONST(HHV(沧海行周MA,90)))/2; DI:=月RI1; F分:=CONST(LLV(DI,90)); F百:=CONST(HHV(DI,90))-F分; 点:=CONST(LLV(沧海行周MA,90)); 基:=CONST(HHV(沧海行周MA,90))-点; F比:=(DI-F分)/F百; XFX:=F比*基+点; 周零点:=(CONST(LLV(沧海行周MA,90))+CONST(HHV(沧海行周MA,90)))/2; 周DI:=周RI1;{月RSI1叠加} 周F分:=CONST(LLV(周DI,90)); 周F百:=CONST(HHV(周DI,90))-周F分; 周点:=CONST(LLV(沧海行周MA,90)); 周基:=CONST(HHV(沧海行周MA,90))-周点; 周F比:=(周DI-周F分)/周F百; 周XFX:=周F比*周基+周点; 周RSI1叠加:周XFX*2,COLORBROWN,LINETHICK2; 月RSI1叠加:XFX*3,LINETHICK1,COLORRED,LINETHICK3; {心理基准线XLJZX心理基准线JCGJGHW850821} 和谐源码分享(顶尖财经:股票学院 http://www.58188.com) MA(C,25)*1.2; MA(C,25)*1.05; MA(C,25)*0.85; JJ:=(CLOSE+HIGH+LOW)/3; A:=EMA(JJ,10); B:=REF(A,1); VAR1:=EMA(EMA(CLOSE,9),9); 控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000; VARR1:=MA(V,8); VARR2:=VARR1>MA(V,89); VARR3:=EXPMA(C,5); VARR4:=EXPMA(C,29); VARR5:=VARR3>VARR4; LC:=REF(CLOSE,1); RSI1:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100; RSI2:=SMA(MAX(CLOSE-LC,0),56,1)/SMA(ABS(CLOSE-LC),56,1)*100; VARR6:=RSI1>RSI2 AND VARR5 AND VARR2; A10:=CROSS(控盘,0); QW1:=(HIGH+LOW+CLOSE*2)/4; QW3:=EMA(QW1,10); QW4:=STD(QW1,10); QW5:=(QW1-QW3)*100/QW4; QW6:=EMA(QW5,5); QW7:=EMA(QW6,10)+100/2-5; XG:A>B AND A10 AND VARR6 AND QW7>REF(QW7,1) NODRAW; DRAWICON(XG,L*0.98,34); |