圣诞送三个指标的花花版｛MACD，KDJ，RSI｝

镜花缘

圣诞送三个指标的花花版｛MACD，KDJ，RSI｝

来自：MACD论坛(bbs.shudaoyoufang.com) 作者：镜花缘 浏览：13437 回复：16

新KDJ网上流传的原码有毛病，本来可以改一下，怕损坏了原来的样貌，所以是破解的时间限制，这个用了两天为了庆祝圣诞和大家共享［其实是我这里过期了用不了，嘿嘿］，过路的版主要给俺加分啊
MACD



//超级MACD

input:P(26,20,100),S(12,5,40),M(9,2,60),P1(19,1,120),P2(120,1,250),选股(-40,-100,0),抄底(-26,-100,0);
DRAWGBK(CLOSE,COLORRGB(5,2,0),COLORRGB(5,2,0),1);
DIFF:(EMA(CLOSE,S) - EMA(CLOSE,P)),colorFF;
DEA:EMA(DIFF,M),colorFFFF;
MACD:(2 * (DIFF - DEA)),COLORSTICK,LINETHICK2;
STICKLINE(((MACD < REF(MACD,1)) AND (MACD > 0)),0,MACD,2,0),LINETHICK2,colorFFFF;
STICKLINE(((MACD > REF(MACD,1)) AND (MACD < 0)),0,MACD,2,0),LINETHICK2,colorFF00FF;
HH:=MA(CLOSE,10);
GG:=MA(CLOSE,12);
上:=FFT((MA(HIGH,3) * 1.05),30);
下:=FFT((MA(LOW,3) * 0.96),30);
决战:STICKLINE((((CROSS(DIFF,DEA) AND ((下 - REF(下,1)) > 0)) AND (MACD >= REF(MACD,1))) AND (DIFF < 0)),DIFF,0.4,3,0),colorFF;
DRAWICON((((CROSS(DIFF,DEA) AND ((下 - REF(下,1)) > 0)) AND (MACD >= REF(MACD,1))) AND (DIFF < 0)),0.4,0);
DRAWTEXT((((CROSS(DIFF,DEA) AND ((下 - REF(下,1)) > 0)) AND (MACD >= REF(MACD,1))) AND (DIFF <= 0)),0.4,'。DIFF金叉'),colorFF;
STICKLINE(FILTER(((((MACD >= REF(MACD,5)) AND ((下 - REF(下,1)) > 0)) AND (MACD <= 0)) AND ((GG - REF(GG,1)) >= 0)),3),0,0.5,3,0),colorFF00;
DRAWICON(FILTER(((((MACD >= REF(MACD,5)) AND ((下 - REF(下,1)) > 0)) AND (MACD <= 0)) AND ((GG - REF(GG,1)) >= 0)),3),0.5,0);
DRAWTEXT(FILTER(((((MACD >= REF(MACD,5)) AND ((下 - REF(下,1)) > 0)) AND (MACD <= 0)) AND ((GG - REF(GG,1)) >= 0)),3),0.5,'。绝佳买入'),colorFF00;
VCF1:=LLV(LOW,5);
VCF2:=HHV(HIGH,5);
VCF3:=EMA((((CLOSE - VCF1) / (VCF2 - VCF1)) * 100),4);
VCF4:=EMA(((0.667 * REF(VCF3,1)) + (0.333 * VCF3)),2);
VCF5:=((HIGH + LOW) / 2);
VCF6:=DMA(VCF5,(VOL / SUM(VOL,MIN(5,BARSCOUNT(CLOSE)))));
VCF7:=DMA(VCF5,(VOL / SUM(VOL,MIN(13,BARSCOUNT(CLOSE)))));
VCF8:=DMA(VCF5,(VOL / SUM(VOL,MIN(34,BARSCOUNT(CLOSE)))));
VCF9:=DMA(VCF5,(VOL / SUM(VOL,MIN(75,BARSCOUNT(CLOSE)))));
VCFA:=EMA(WINNER((0.9 * CLOSE)),5);
VCFB:=(1 - EMA(WINNER((1.2 * CLOSE)),5));
VCFC:=EMA(WINNER(CLOSE),5);
VCFD:=((100 * (CLOSE - VCF6)) / VCF6);
VCFE:=((100 * (CLOSE - VCF7)) / VCF7);
VCFF:=((100 * (MIN(CLOSE,OPEN) - VCF8)) / VCF8);
VCF10:=BARSLAST(((VCF8 > VCF9) AND (REF(VCF8,1) <= REF(VCF9,1))));
VCF11:=((((COUNT(((WINNER(CLOSE) < 0.11) AND (EMA(WINNER(CLOSE),5) < 0.15)),2) > 0) OR (((1 - WINNER((1.2 * CLOSE))) >= 0.8) AND (WINNER(CLOSE) < 0.05))) AND (COUNT((VCFE < (0 - 16)),2) > 0)) AND (COUNT((VCFF < (0 - 20)),2) > 0));
VCF12:=((((COUNT((VCFD < (0 - 10)),2) > 0) AND (COUNT((VCFE < (0 - 15)),2) > 0)) AND (COUNT((VCFF < (0 - 15)),2) > 0)) AND (COUNT((VCFA > 0.8),VCF10) = 0));
VCF13:=(((COUNT((VCF11 OR VCF12),2) > 0) AND (VCF3 > REF(VCF3,1))) AND (((1 - WINNER((1.15 * CLOSE))) * 100) > 80));
出击1:=IF((VCF13 AND (COUNT(VCF13,3) <= 1)),0.1,0);
DRAWBKBMP((出击1 >= 0.1),'sun');
黑马出击:IF((VCF13 AND (COUNT(VCF13,3) <= 1)),0.37,0),LINETHICK3,colorFF;
DRAWICON((黑马出击 > 0),0.37,1);
DRAWTEXT((黑马出击 > 0),0.35,'.★黑马   '),colorFFFFFF;
DRAWTEXT((黑马出击 > 0),0.35,'       出击'),colorFF00;
VAR26:=(((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) * 100);
VAR27:=((EMA(CLOSE,12) - EMA(CLOSE,26)) * 100);
VAR28:=EMA(VAR27,9);
VAR29:=(2 * (VAR27 - VAR28));
STICKLINE(((VAR27 < (0 - 50)) AND (VAR26 > 7)),0,(0 - 0.1),5,0),colorFF;
DRAWTEXT((((VAR27 < (0 - 50)) AND (VAR26 > 7)) AND (VAR27 < VAR28)),(0 - 0.08),'底'),colorFFFFFF;
DRAWTEXT((((VAR27 < (0 - 50)) AND (VAR26 > 7)) AND (VAR27 >= VAR28)),(0 - 0.1),'追'),colorFFFFFF;
VAR1:=1;
VAR2:=MA(CLOSE,18);
VAR3:=(((CLOSE - VAR2) / VAR2) * 100);
VAR4:=MA(VAR3,1);
升跌:=(VAR4 * VAR1);
VAR5:=BARSLAST((CROSS((0 - 10),VAR4) = 1));
VAR6:=BARSLAST((CROSS(VAR4,10) = 1));
VAR7:=((VAR4 < (0 - 10)) AND (VAR5 >= 5));
VAR8:=((VAR4 > 10) AND (VAR6 >= 5));
C1:(0.01 * (IF(((VAR4 < (0 - 10)) AND (VAR5 >= 5)),VAR4,0) * VAR1)),LINETHICK1,colorFF;
C2:=C1;
C3:=(IF(((VAR4 > 10) AND (VAR6 >= 5)),VAR4,0) * VAR1);
C4:=C3;
D1:=((((升跌 > REF(升跌,1)) AND VAR7) * 0.2) * VAR1);
中期底部:=LLV(CLOSE,30);
D:(FILTER(((((((升跌 > REF(升跌,1)) AND (LOW <= 中期底部)) AND (CLOSE > 中期底部)) AND VAR7) * 0.5) * VAR1),3) * 0.5),LINETHICK2,colorFF;
DRAWTEXT((D >= 0.25),D,'★-铁底'),colorFFFF;
STICKLINE(((CROSS(MACD,DIFF) AND (MACD >= (0 - 0.05))) AND (MACD <= 0.02)),MACD,0.23,0,0),LINETHICK2,colorFFFF;
DRAWTEXT(((CROSS(MACD,DIFF) AND (MACD >= (0 - 0.05))) AND (MACD <= 0.02)),0.23,'＾MACD'),colorFF;
DRAWTEXT(((CROSS(MACD,DIFF) AND (MACD >= (0 - 0.05))) AND (MACD <= 0.02)),0.23,'      金叉'),LINETHICK4,colorFFFFFF;
DRAWICON(((CROSS(MACD,DIFF) AND (MACD >= (0 - 0.05))) AND (MACD <= 0.02)),0.23,1);
DIFF2:=(EMA(CLOSE,2) - EMA(OPEN,5));
操盘手:=DIFF2;
(0.4 * ((CROSS(操盘手,MACD) AND (MACD <= (0 - 0.11))) AND (LOW <= 下))),LINETHICK2,colorFFFFFF;
DRAWTEXT(((CROSS(操盘手,MACD) AND (LOW <= 下)) AND (MACD <= (0 - 0.11))),0.4,'-短线5%'),colorB7D16F;
PARTLINE((DIFF >= DEA),(DIFF AND (DIFF >= 0))),LINETHICK2,colorFF;
PARTLINE(((DIFF >= DEA) AND (DIFF <= 0)),DIFF),LINETHICK2,colorFF00FF;
PARTLINE(((DIFF <= 0) AND (DIFF <= DEA)),DIFF),LINETHICK1,colorFF00;
PARTLINE((DIFF >= 0),DIFF),LINETHICK2,colorFF;
PARTLINE((MACD >= 0),MACD),LINETHICK0,colorFF;
PARTLINE((MACD <= 0),MACD),LINETHICK0,colorFFFF00;
MA1:=MA(CLOSE,5);
MA2:=MA(CLOSE,10);
BB:(0.7 * ((((((CROSS(DIFF,DEA) AND (CLOSE < 上)) AND ((下 - REF(下,1)) > 0)) AND CROSS(MACD,0)) AND (MACD >= 0)) AND (DIFF > 0)) AND (((HH - REF(HH,1)) > 0) AND (VOL > REF(VOL,1)))));
DRAWTEXT((((BB >= 0.7) AND (CLOSE < 上)) AND ((下 - REF(下,1)) > 0)),0.7,'。量价配合完美    '),colorFF00;
DRAWTEXT((((BB >= 0.7) AND (CLOSE < 上)) AND ((下 - REF(下,1)) > 0)),0.7,'。            (追)'),colorFF;
MA1:=MA(CLOSE,P1);
MA2:=MA(CLOSE,P2);
N15HIGH:=REF(HIGH,15);
N1LOW:=REF(LOW,1);
FF:=(((N15HIGH - N1LOW) / N1LOW) > 0.15);
STICKLINE(((((CROSS(MA(CLOSE,P1),MA(CLOSE,P2)) AND (((N15HIGH - N1LOW) / N1LOW) < 0.15)) AND (OPEN >= MA(CLOSE,P1))) AND (LOW <= MA(CLOSE,P1))) AND (CLOSE >= MA(CLOSE,P1))),0,0.5,0,1),LINETHICK3,colorFF;
DRAWICON((((((CROSS(MA(CLOSE,P1),MA(CLOSE,P2)) > 0) AND (((N15HIGH - N1LOW) / N1LOW) < 0.15)) AND (OPEN >= MA(CLOSE,P1))) AND (CLOSE >= MA(CLOSE,P1))) AND (LOW <= MA(CLOSE,P1))),0.5,1);
DRAWTEXT((((((CROSS(MA(CLOSE,P1),MA(CLOSE,P2)) > 0) AND (((N15HIGH - N1LOW) / N1LOW) < 0.15)) AND (OPEN >= MA(CLOSE,P1))) AND (CLOSE >= MA(CLOSE,P1))) AND (LOW <= MA(CLOSE,P1))),0.5,'★＾回头望月'),colorFF0000;
VAR10:=(((CLOSE - MA(CLOSE,58)) / MA(CLOSE,58)) * 100);
VAR11:=((((VAR10 > (1 * REF(VAR10,1))) AND (VAR10 < 选股)) AND (VAR10 > 抄底)) * 1.5);
VAR12:=((VOL / CAPITAL) * 100);
VAR13:=LLVBARS(LOW,50);
VAR14:=SUM(VOL,VAR13);
VAR15:=HHVBARS(HIGH,50);
VAR16:=SUM(VOL,VAR15);
VAR17:=(((CLOSE - REF(OPEN,VAR15)) / REF(OPEN,VAR15)) * 100);
VAR18:=((VAR16 / CAPITAL) * 100);
VAR19:=(((CLOSE - REF(OPEN,VAR13)) / REF(OPEN,VAR13)) * 100);
VAR20:=((VAR14 / CAPITAL) * 100);
VAR21:=MA(CLOSE,3);
VAR22:=(REF(CLOSE,2) * 0.865);
VAR23:=(REF(CLOSE,13) * 0.772);
VAR24:=MIN(VAR22,VAR23);
VAR25:=MA(CLOSE,13);
抄底王:(IF((((((CLOSE - VAR24) / CLOSE) < 0.03) AND (VAR17 < (0 - 35))) AND ((SUM(VAR12,5) / 5) < 1.8)),1,0) * 0.4),LINETHICK3,colorFF0000;
DRAWTEXT((抄底王 > 0),抄底王,'.★抄底王'),LINETHICK3,colorFFFFFF;
DRAWTEXT((抄底王 > 0),抄底王,'         (成功率90%)'),LINETHICK3,colorFF00;
VAR26:=(((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) * 100);
VAR27:=((EMA(CLOSE,12) - EMA(CLOSE,26)) * 100);
VAR28:=EMA(VAR27,9);
VAR29:=(2 * (VAR27 - VAR28));
STICKLINE(((VAR27 < (0 - 50)) AND (VAR26 > 7)),0,(0 - 0.1),5,0),colorFF;
DRAWTEXT((((VAR27 < (0 - 50)) AND (VAR26 > 7)) AND (VAR27 < VAR28)),(0 - 0.08),''),colorFFFFFF;
DRAWTEXT((((VAR27 < (0 - 50)) AND (VAR26 > 7)) AND (VAR27 >= VAR28)),(0 - 0.1),' '),colorFFFFFF;
VAC:=(LOW * 0.9);
VAB:=EMA(LLV(LOW,90),21);
VAD:=(((VAC * VOL) + (VAB * (CAPITAL - VOL))) / CAPITAL);
VAE:=EMA(VAD,30);
VAF:=(CLOSE - REF(CLOSE,1));
VA10:=MAX(VAF,0);
VA11:=ABS(VAF);
VA12:=((SMA(VA10,7,1) / SMA(VA11,7,1)) * 100);
VA13:=((SMA(VA10,13,1) / SMA(VA11,13,1)) * 100);
VA14:=((SMA(MAX(VAF,0),6,1) / SMA(ABS(VAF),6,1)) * 100);
VA15:=((((0 - 200) * (HHV(HIGH,60) - CLOSE)) / (HHV(HIGH,60) - LLV(LOW,60))) + 100);
VA16:=(((CLOSE - LLV(LOW,15)) / (HHV(HIGH,15) - LLV(LOW,15))) * 100);
VA17:=SMA(((SMA(VA16,4,1) - 50) * 2),3,1);
VA18:=(((INDEXC - LLV(INDEXL,14)) / (HHV(INDEXH,14) - LLV(INDEXL,14))) * 100);
VA19:=SMA(VAR18,4,1);
VA1A:=SMA(VAR19,3,1);
VA1B:=(((HHV(HIGH,30) - CLOSE) / CLOSE) * 100);
VA1C:=((((((((VAR14 <= 25) AND (VA15 < (0 - 95))) AND (VA1B > 20)) AND (VA17 < (0 - 30))) AND (VA1A < 30)) AND ((VAE - CLOSE) >= (0 - 0.25))) AND (VA12 < 22)) AND (VA13 < 28));
低买1:=STICKLINE(VA1C,0,0.1,1,1);
发射:STICKLINE(VA1C,0,0.7,2,0),LINETHICK2,colorFF;
DRAWTEXT((VA1C > 0),0.7,'＾★发射'),colorFFFFFF;




RSI




{黄金分割RSI}
INPUT:N1(6,2,100),N2(12,2,100),M(1,0,1);
LC := REF(CLOSE,1);
RSI1:SMA(MAX(CLOSE-LC,0),N1,1)/SMA(ABS(CLOSE-LC),N1,1)*100;
RSI2:SMA(MAX(CLOSE-LC,0),N2,1)/SMA(ABS(CLOSE-LC),N2,1)*100;

GGS:=BARSCOUNT(C);
YY:=BARPOS=SYSPARAM(1);
IF M=1 THEN BEGIN
  FZ:=PEAKA(RSI1,25,1);//峰值
  GZ:=TROUGHA(RSI1,25,1);//谷值
  FZ1:=STRTONUM(NUMTOSTR(GGS-BARSSINCE(FZ),0));
  GZ1:=STRTONUM(NUMTOSTR(GGS-BARSSINCE(GZ),0));
  WF:=GGS<FZ1;WFS:=COUNT(WF,0)>0;
  WG:=GGS<GZ1;WGS:=COUNT(WG,0)>0;

  高:IF(WF=0 AND WFS=0 OR WF AND WFS,HHV(RSI1,0),FZ),LINETHICK;
  低:IF(WG=0 AND WGS=0 OR WG AND WGS,LLV(RSI1,0),GZ),LINETHICK;
  FX:=IF(WF=0 AND WFS=0 OR WF AND WFS,BARSCOUNT(RSI1)-1,PEAKBARSA(RSI1,25,1));//波峰位置
  GX:=IF(WG=0 AND WGS=0 OR WG AND WGS,1,TROUGHBARSA(RSI1,25,1));//波谷位置

  DRAWSL(FX>0 AND YY,REF(高,FX),0,MAX(FX,GX),1),COLORFF00FF;
  DRAWSL(FX>0 AND YY,REF(低,GX),0,MAX(GX,FX),1),COLOR00FF00;

  F1:((高-低)*0.236)+低,COLORYELLOW,LINETHICK;
  DRAWSL(FX>0 AND YY,REF(F1,GX),0,MAX(GX,FX),1),COLOR00FFFF,POINTDOT;
  DRAWNUMBER(YY,F1,F1,2),aligno5,SHIFT3,COLORYELLOW;

  F2:((高-低)*0.382)+低,COLORFF00FF,LINETHICK;
  DRAWSL(FX>0 AND YY,REF(F2,GX),0,MAX(GX,FX),1),COLORFF00FF,POINTDOT;
  DRAWNUMBER(YY,F2,F2,2),aligno5,SHIFT3,COLORFF00FF;

  F3:((高-低)*0.5)+低,COLORFFFF00,LINETHICK;
  DRAWSL(FX>0 AND YY,REF(F3,GX),0,MAX(GX,FX),1),COLORFFFF00,POINTDOT;
  DRAWNUMBER(YY,F3,F3,2),aligno5,SHIFT3,COLORFFFF00;

  F4:((高-低)*0.618)+低,COLORFF00FF,LINETHICK;
  DRAWSL(FX>0 AND YY,REF(F4,GX),0,MAX(GX,FX),1),COLORFF00FF,POINTDOT;
  DRAWNUMBER(YY,F4,F4,2),aligno5,SHIFT3,COLORFF00FF;

  F5:((高-低)*0.764)+低,COLORYELLOW,LINETHICK;
  DRAWSL(FX>0 AND YY,REF(F5,GX),0,MAX(GX,FX),1),COLOR00FFFF,POINTDOT;
  DRAWNUMBER(YY,F5,F5,2),aligno5,SHIFT3,COLORYELLOW;
END;
//



KDJ





input:底部(-10,-50,0);
DRAWGBK(CLOSE,COLORRGB(10,160,0),COLORRGB(25,15,0),1);
RSV:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100);
短期底部:=LLV(OPEN,30);
K:SMA(RSV,3,1);
D:SMA(K,3,1);
J:((3 * K) - (2 * D));
AA10:=MA(CLOSE,10);
AA12:=MA(CLOSE,12);
BB10:=((ATAN((AA10 - REF(AA10,1))) * 3.1416) * 10);
BB12:=((ATAN((AA12 - REF(AA12,1))) * 3.1416) * 10);
MA13:=MA(CLOSE,13);
PARTLINE((K > D),K),colorFF00FF;
PARTLINE((K < D),K),colorFFFF00;
PARTLINE((J > D),J),LINETHICK2,colorFF;
PARTLINE((J < D),J),LINETHICK2,colorFF00;
20,POINTDOT,colorFF00;
80,POINTDOT,colorFF00;
VAR2:=(((CLOSE - MA(CLOSE,6)) / MA(CLOSE,6)) * 100);
VAR3:=(((CLOSE - MA(CLOSE,12)) / MA(CLOSE,12)) * 100);
VAR4:=(((CLOSE - MA(CLOSE,24)) / MA(CLOSE,24)) * 100);
VAR5:=(((VAR2 + (2 * VAR3)) + (3 * VAR4)) / 6);
VAR6:=MA(VAR5,3);
底部1:IF((VAR6 < 底部),20,0),colorFFFF00;
STICKLINE((CROSS(J,K) AND (底部1 >= 20)),100,0,2,0),colorFFFFFF;
DRAWICON((CROSS(J,K) AND (底部1 >= 20)),100,1);
DRAWTEXT((CROSS(J,K) AND (底部1 >= 20)),98,'--全仓');
STICKLINE((VAR6 <= (0 - 15)),80,4.88,2,0);
DRAWTEXT((VAR6 <= (0 - 15)),80,'买'),colorFFFFFF;
STICKLINE((VAR6 <= (0 - 15)),80,60,2,0),colorFF;
VAR7:=DMA(EMA(CLOSE,12),((SUM(VOL,5) / 3) / CAPITAL));
VAR8:=(((CLOSE - VAR7) / VAR7) * 100);
VAR9:=((((REF(VAR8,1) < (0 - 40)) AND (VAR8 > REF(VAR8,1))) AND (REF(VAR8,1) < REF(VAR8,2))) AND ((VAR8 - REF(VAR8,1)) > 2.5));
VARA:=(((CLOSE - MA(CLOSE,6)) / MA(CLOSE,6)) * 100);
VARB:=(((CLOSE - MA(CLOSE,12)) / MA(CLOSE,12)) * 100);
VARC:=(((CLOSE - MA(CLOSE,24)) / MA(CLOSE,24)) * 100);
VARD:=REF(CLOSE,1);
VARE:=((SMA(MAX((CLOSE - VARD),0),5,1) / SMA(ABS((CLOSE - VARD)),5,1)) * 100);
VARF:=(((HIGH + LOW) + CLOSE) / 3);
VAR10:=((VARF - MA(VARF,14)) / (0.015 * AVEDEV(VARF,14)));
VAR11:=(((((MA(AMOUNT,5) / MA(VOL,5)) / 100) - ((MA(AMOUNT,110) / MA(VOL,110)) / 100)) / ((MA(AMOUNT,5) / MA(VOL,5)) / 100)) < (0 - 0.273));
VAR12:=(((CLOSE - MA(CLOSE,30)) / MA(CLOSE,30)) < (0 - 0.125));
VAR13:=(VAR11 AND VAR12);
VAR14:=((((VARA >= (0 - 45)) AND (VARA <= (0 - 10))) AND (VARB <= (0 - 15))) AND (VARC <= (0 - 20)));
VAR15:=(COUNT(VAR14,1) >= 1);
VAR16:=(VAR13 AND VAR15);
VAR17:=1;
VAR18:=(CLOSE * VOL);
VAR19:=EMA((((((MA(VAR18,4) / MA(VOL,4)) + (MA(VAR18,6) / MA(VOL,6))) + (MA(VAR18,13) / MA(VOL,13))) + (MA(VAR18,24) / MA(VOL,24))) / 4),1);
VAR1A:=(1 * VAR19);
VAR1B:=(VAR19 * 0.92);
VAR1C:=EMA(CLOSE,34);
VAR1D:=MA((VAR1C * 1.12),5);
VAR1E:=MA((VAR1C * 0.82),5);
VAR1F:=(CLOSE < VAR1E);
VAR20:=((((((MA(AMOUNT,5) * VAR17) / MA(VOL,5)) / 100) - ((MA(AMOUNT,125) / MA(VOL,125)) / 100)) / ((MA(AMOUNT,5) / MA(VOL,5)) / 100)) < ((0 - 0.4) * VAR17));
VAR21:=HHV(HIGH,500);
VAR22:=LLV(LOW,500);
VAR23:=HHV(HIGH,250);
VAR24:=LLV(LOW,250);
VAR25:=HHV(HIGH,125);
VAR26:=LLV(LOW,125);
VAR27:=MA(((((((VAR21 * 0.45) + (VAR23 * 0.5)) + VAR22) + VAR24) + VAR26) / 5),35);
VAR28:=MA((((VAR23 * 0.62) + VAR26) / 2),35);
VAR29:=MA((((VAR23 * 0.75) + VAR26) / 2),18);
VAR2A:=MA((((((VAR23 * 0.93) + (VAR27 * 2)) + (VAR28 * 1.8)) + (VAR29 * 1.5)) / 4),18);
VAR2B:=MA(((((VAR21 * 0.95) + (VAR27 * 3)) + (VAR28 * 2)) / 3),35);
VAR2C:=VAR27;
VAR2D:=VAR28;
VAR2E:=VAR29;
VAR2F:=VAR2A;
VAR30:=VAR2B;
VAR31:=((CLOSE - REF(MA(CLOSE,20),11)) < (0 - 2));
VAR32:=(INDEXA / 100000000);
VAR33:=INDEXADV;
VAR34:=INDEXDEC;
VAR35:=((VAR18 / (VAR18 + VAR19)) * VAR17);
VAR36:=((VAR19 / (VAR18 + VAR19)) * VAR17);
VAR37:=EMA(VAR35,10);
VAR38:=EMA(VAR36,10);
VAR39:=EMA(VAR37,10);
VAR3A:=EMA(VAR38,20);
VAR3B:=EMA(VAR37,3);
VAR3C:=EMA(VAR39,6);
VAR3D:=EMA(VAR3A,2);
VAR3E:=(VAR3C - VAR3D);
VAR3F:=(((VAR3C - REF(VAR3C,1)) > 0) AND ((REF(VAR3C,1) - REF(VAR3C,2)) < 0));
VAR40:=IF((CROSS(VAR3B,VAR3C) AND (VAR3C <= 20)),30,0);
VAR41:=VAR40;
VAR42:=(SMA(((AMOUNT / VOL) / 100),13,1) * 1.15);
VAR43:=(SMA(((AMOUNT / VOL) / 100),13,1) * 0.85);
VAR44:=(CLOSE - REF(MA(CLOSE,20),11));
VAR45:=(((((((((((((CLOSE < VAR1E) AND VAR20) AND (CLOSE < VAR43)) OR (((CLOSE < VAR1E) AND VAR31) AND VAR20)) OR ((CLOSE < VAR1E) AND (CLOSE < VAR43))) OR (((CLOSE < VAR1E) AND VAR20) AND (CLOSE < VAR43))) OR (VAR20 AND (CLOSE < VAR2C))) OR ((VAR20 AND VAR31) AND (VAR44 < (0 - 1.5)))) OR (VAR20 AND (CLOSE < VAR1E))) OR (VAR20 AND (VAR44 < (0 - 1.5)))) OR (VAR31 AND (CLOSE < VAR43))) OR ((CLOSE < VAR2C) AND (VAR44 < (0 - 1.5)))) OR ((CLOSE < VAR1E) AND VAR31));
VAR46:=(((CLOSE - MA(CLOSE,6)) / MA(CLOSE,6)) * 100);
VAR47:=(((CLOSE - MA(CLOSE,12)) / MA(CLOSE,12)) * 100);
VAR48:=(((CLOSE - MA(CLOSE,24)) / MA(CLOSE,24)) * 100);
VAR49:=REF(CLOSE,1);
VAR4A:=((SMA(MAX((CLOSE - VAR49),0),5,1) / SMA(ABS((CLOSE - VAR49)),5,1)) * 100);
VAR4B:=(((HIGH + LOW) + CLOSE) / 3);
VAR4C:=((VAR4B - MA(VAR4B,14)) / (0.015 * AVEDEV(VAR4B,14)));
VAR4D:=(((((MA(AMOUNT,5) / MA(VOL,5)) / 100) - ((MA(AMOUNT,110) / MA(VOL,110)) / 100)) / ((MA(AMOUNT,5) / MA(VOL,5)) / 100)) < (0 - 0.273));
VAR4E:=(((CLOSE - MA(CLOSE,30)) / MA(CLOSE,30)) < (0 - 0.125));
VAR4F:=(VAR11 AND VAR12);
VAR50:=((((VAR2 >= (0 - 45)) AND (VAR2 <= (0 - 7))) AND (VAR3 <= (0 - 11))) AND (VAR4 <= (0 - 14)));
VAR51:=(COUNT(VAR50,1) >= 1);
VAR52:=(VAR4F AND VAR51);
VAR53:=(((((VAR20 AND (CLOSE < VAR1E)) AND VAR31) AND (CLOSE < VAR2C)) AND VAR45) AND VAR52);
VAR54:=(((CLOSE - MA(CLOSE,6)) / MA(CLOSE,6)) * 100);
VAR55:=(((CLOSE - MA(CLOSE,12)) / MA(CLOSE,12)) * 100);
VAR56:=(((CLOSE - MA(CLOSE,24)) / MA(CLOSE,24)) * 100);
VAR57:=REF(CLOSE,1);
VAR58:=((SMA(MAX((CLOSE - VAR57),0),5,1) / SMA(ABS((CLOSE - VAR57)),5,1)) * 100);
VAR59:=(((HIGH + LOW) + CLOSE) / 3);
VAR5A:=((VAR59 - MA(VAR59,14)) / (0.015 * AVEDEV(VAR59,14)));
VAR5B:=((((((VAR54 >= (0 - 15.8)) AND (VAR54 <= (0 - 12.2))) AND (VAR55 <= (0 - 20.8))) AND (VAR56 <= (0 - 27.5))) AND (VAR58 <= 11.7)) AND (VAR5A <= (0 - 145)));
VAR5C:=9.999999884842+026;
VAR5D:=(COST(10) * 0);
VAR5E:=((((MA(AMOUNT,5) / MA(VOL,5)) / 100) - ((MA(AMOUNT,125) / MA(VOL,125)) / 100)) / ((MA(AMOUNT,5) / MA(VOL,5)) / 100));
VAR5F:=MA((((LLV(LOW,45) - CLOSE) / (HHV(HIGH,45) - LLV(LOW,45))) * 100),5);
VAR60:=((CROSS((0 - 5),VAR5F) AND (VAR5E < (0 - 0.4))) AND (((CLOSE - MA(CLOSE,30)) / MA(CLOSE,30)) < (0 - 0.19)));
VAR61:=MA(CLOSE,3);
VAR62:=(REF(CLOSE,2) * 0.865);
VAR63:=(REF(CLOSE,13) * 0.772);
VAR64:=MIN(VAR62,VAR63);
VAR65:=((100 * VOL) / CAPITAL);
VAR66:=MA(CLOSE,13);
VAR67:=IF(((((CLOSE - VAR64) / CLOSE) < 0.03) AND ((SUM(VAR65,5) / 5) < 1.8)),1,0);
猎鹰出击:IF(((((VAR9 OR VAR16) OR VAR53) OR VAR5B) OR ((((CLOSE - VAR64) / CLOSE) < 0.03) AND ((SUM(VAR65,5) / 5) < 1.8))),120,0),LINETHICK2,colorFF;
VAR68:=0;
MACD:(VAR6 * 5),COLORSTICK,LINETHICK2;
STICKLINE((CROSS(K,D) AND (BB10 > 1)),70,0,2,0),colorCC99FF;
DRAWTEXT((CROSS(K,D) AND (BB10 > 1)),64,'--短买'),colorFF00;
DRAWICON((CROSS(K,D) AND (BB10 > 1)),70,0);
底部预警:STICKLINE((VAR6 <= (0 - 10)),0,(0 - 20),5,0),color88B7EA;
VARQ:=MA(CLOSE,152);
VARW:=MA(CLOSE,194.16);
VARE:=(VARW + (2 * STD(CLOSE,170)));
VARR:=(VARQ + (2 * STD(CLOSE,170)));
VART:=IF((DATE > 1080822),0,1);
VAR61:=EMA(HHV(HIGH,500),21);
VAR71:=EMA(HHV(HIGH,250),21);
VAR81:=EMA(HHV(HIGH,90),21);
VAR91:=EMA(LLV(LOW,500),21);
VARA1:=EMA(LLV(LOW,250),21);
VARB1:=EMA(LLV(LOW,90),21);
VARC1:=EMA((((((((VAR91 * 0.96) + (VARA1 * 0.96)) + (VARB1 * 0.96)) + (VAR61 * 0.558)) + (VAR71 * 0.558)) + (VAR81 * 0.558)) / 6),21);
VARD1:=EMA((((((((VAR91 * 1.25) + (VARA1 * 1.23)) + (VARB1 * 1.2)) + (VAR61 * 0.55)) + (VAR71 * 0.55)) + (VAR81 * 0.65)) / 6),21);
VARE1:=EMA((((((((VAR91 * 1.3) + (VARA1 * 1.3)) + (VARB1 * 1.3)) + (VAR61 * 0.68)) + (VAR71 * 0.68)) + (VAR81 * 0.68)) / 6),21);
VARF1:=EMA((((((VARC1 * 3) + (VARD1 * 2)) + VARE1) / 6) * 1.738),21);
VAR101:=REF(LOW,1);
VAR111:=((SMA(ABS((LOW - VAR101)),3,1) / SMA(MAX((LOW - VAR101),0),3,1)) * 100);
VAR121:=EMA(IF(((CLOSE * 1.35) <= VARF1),(VAR111 * 10),(VAR111 / 10)),3);
VAR131:=LLV(LOW,30);
VAR141:=HHV(VAR121,30);
VAR151:=IF(MA(CLOSE,58),1,0);
VAR161:=((EMA(IF((LOW <= VAR131),((VAR121 + (VAR141 * 2)) / 2),0),3) / 618) * VAR151);
VAR171:=(((IF((VAR161 > 50),50,VAR161) / 20) * 15) * VART);
底部吸筹:STICKLINE((VAR171 > 0),0,VAR171,1,1),colorFF00FF;
STICKLINE(((CROSS(K,D) AND ((AA10 - REF(AA10,1)) > 0)) AND (K <= 49)),80,0,3,0),colorFF;
DRAWTEXT(((CROSS(K,D) AND ((AA10 - REF(AA10,1)) > 0)) AND (K <= 49)),80,'--抄底'),colorFF;
STICKLINE(CROSS(90,J),88,100,2,0),colorFF00;
DRAWTEXT(CROSS(90,J),108,'。逃'),colorFFFFFF;
STICKLINE(CROSS(J,(0 - 5)),0,10,6,0),colorFF00;
DRAWTEXT(CROSS(J,(0 - 5)),(0 - 4),'。低吸'),colorFF00;
SG:=EMA(HHV(HIGH,1),8);
X1:=EMA(CLOSE,8);
X30:=((X1 < REF(X1,1)) AND (CLOSE < X1));
X31:=IF(((SG < REF(SG,1)) OR X30),1,0);
全仓出击:=((((COUNT((X31 = 1),4) = 3) AND (X31 = 0)) AND (((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) > 0.085)) * 89);
STICKLINE(全仓出击,89,0,3,0),colorFF;
DRAWICON((全仓出击 >= 89),全仓出击,1);
DRAWTEXT((全仓出击 >= 89),89,'--大胆杀入');
开始关注:STICKLINE((VAR6 <= (0 - 8)),5,25,7,0);
STICKLINE((CROSS(J,0) AND (VAR6 <= (0 - 7))),0,100,8,0),color78;
STICKLINE((CROSS(J,0) AND (VAR6 <= (0 - 7))),0,100,6,0),color9D;
STICKLINE((CROSS(J,0) AND (VAR6 <= (0 - 7))),0,100,5,0),colorFF;
STICKLINE((CROSS(J,0) AND (VAR6 <= (0 - 7))),0,100,2,0),color7AB5;
DRAWTEXT((CROSS(J,0) AND (VAR6 <= (0 - 7))),100,'--导弹发射'),colorFF;
均5:=MA(CLOSE,4);
X7:=EMA(EMA(EMA(HIGH,9),9),9);
海底:=(X7 * 0.92);
海底2:=(X7 * 0.933);
中轨道:=MA(CLOSE,2);
DRAWTEXT(((CROSS(中轨道,均5) AND (LOW <= 海底)) AND (CLOSE >= 海底2)),85,'-底部'),colorFFFF;
STICKLINE(((CROSS(中轨道,均5) AND (LOW <= 海底)) AND (CLOSE >= 海底2)),0,85,4,0),colorFFFF;



KDJ还需要手动加点东西，按下面截图操作
指标的用法怎么用俺也不知道，记得你们有心得了一定要告诉俺

量价背离

xiexie

江苏常熟老李

顶 沙发

避风港

http://bbs.macd.cn/attachment.php?aid=771414&noupdate=yes

镜花缘

原帖由 避风港 于 2005-12-25 19:13 发表
http://bbs.macd.cn/attachment.php?aid=771414&noupdate=yes

高啊，会找图片地址，俺都不会，什么时候教教俺，呵呵
吓了俺一跳，俺以为论坛的哪位提前送出礼物了俺都不知道，俺很老实的不到处窜，如有雷同，纯属巧合，绝非有心抄袭

tjdm626

大智慧不能用,请问版主下面二句是什么意思,谢谢

YY:=BARPOS=SYSPARAM(1);
IF M=1 THEN BEGIN

镜花缘

原帖由 tjdm626 于 2005-12-25 19:23 发表
大智慧不能用,请问版主下面二句是什么意思,谢谢

YY:=BARPOS=SYSPARAM(1);
IF M=1 THEN BEGIN

是飞狐的指标，大智慧我不会编，见谅了

tjdm626

谢谢版主的答复,大智慧不能用我也要谢

吉人

高
实在是高.
虽然偶用不来
还是要加足分数!

镜花缘

原帖由 吉人 于 2005-12-25 20:21 发表
高
实在是高.
虽然偶用不来
还是要加足分数!

呵呵，谢谢加分
其实俺也就是看看，喜欢破解和收集，纯属个人喜好，说到用俺也不会
呵呵，真的能用好一个那就是大师级的了

吉人

原帖由 镜花缘 于 2005-12-25 20:29 发表

呵呵，谢谢加分
其实俺也就是看看，喜欢破解和收集，纯属个人喜好，说到用俺也不会
呵呵，真的能用好一个那就是大师级的了

NND,BT了半天是个电影版的:*5*:
删删删....
:mad::mad::mad:

镜花缘

[quote]原帖由 吉人 于 2005-12-25 20:32 发表



NND,BT了半天是个电影版的:*5*:
删删删....
:mad::mad::mad: [/quot
我这有个种子是清晰版的，没种子下不完的话，PM我，我下完了，多服务一会
好几天前就有了，论坛还是旧的，那天去逛了一下看见DVD版所以告诉你了，呵呵，种子里捆绑了些网络赚钱的东东，你可以选择不要他用BTCOM把钩打掉
因为我在他之前下的，所以我以为DVD出来了，应该还没出，我这个是清晰版宽银幕的，凑合着看吧，元旦我找DVD收藏，我觉得不好看，用这个看完就算了

[ 本帖最后由 镜花缘 于 2005-12-25 21:08 编辑 ]

秋水无尘

加一分鼓励，嘿嘿 跟油画一样，好看。

steve-kim

dddddddddd

无聊嘛

原帖由 镜花缘 于 2005-12-25 21:04 发表
[quote]原帖由 吉人 于 2005-12-25 20:32 发表



NND,BT了半天是个电影版的:*5*:
删删删....
:mad::mad::mad: [/quot
我这有个种子是清晰版的，没种子下不完的话，PM我，我下完了，多服务一会
好 ...

恩，这个，莫不是在说传说中的新大圣？已经有下啦？还8好看？？

sxqfy

ddddddd