天机论坛

 找回密码
 欢迎注册

QQ登录

只需一步,快速开始

天机股票网 争做最牛的股票资讯集散地 注册 - 常见问题 - 联系方式

你有好料 就来分享 你可以将手中的好料分享赚取金币。 如何获得金币 - 金币回购计划

天天来访问 天天有收获 高端信息区区几个金币就可查看 立即注册 - QQ快速登陆

查看: 2187|回复: 1
打印 上一主题 下一主题

[飞狐] 飞狐任意买卖主图-指标公式(源码,贴图)

[复制链接]
跳转到指定楼层
楼主
发表于 2012-8-24 09:20:23 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
[飞狐] 飞狐任意买卖主图-指标公式(源码,贴图)

DRAWGBK(CLOSE=CLOSE,COLORRGB(30,30,30),COLORRGB(130,130,130),1);
DRAWGBK(CLOSE>OPEN,COLORRGB(110,0,0),COLORRGB(0,0,0),0);
DRAWGBK(CLOSE<OPEN,COLORRGB(0,110,0),COLORRGB(0,0,0),0);
input:AA(5,1,1000),BB(20,1,1000);

{-----------------------☆功能开关------------------------}
{月--周期K线}
if datacount<BB then exit;
y1:=mod(barpos,BB);
Y2:=if(y1=0,BB-1,y1-1);
Y3:=barslast(Y2=0);
Y4:=barslast(Y2=BB-1);
Y5:=ref(o,Y3);
Y6:=hhv(h,Y3+1)*(Y4=0);
Y7:=llv(if(L=0,100000,L),Y3+1)*(Y4=0);
Y8:=IF(Y3=0,C,0);
Y9:=IF(Y4=0,C,0);
Y10:=IF(Y4=0,Y6,0);
Y11:=IF(Y4=0,Y7,0);

for n=lbound(Y8) to ubound(Y8) do begin
  if Y8[n]>0 then begin
    for z=n+BB-1 to ubound(Y8) do begin
      if Y9[z]>0 then begin
        for s=n to z-1 do begin
          YC1:=Y9[z];
          YH1:=Y10[z];
          YL1:=Y11[z];
        end;
        break;
      end;
    end;
  end;
end;

YXQc1:=C;
YXQh1:=hhv(h,Y2[datacount]+1);
XQL1:=LLV(if(L=0,1000000,L),Y2[datacount]+1);
YXQCC:=if(barpos>datacount-Y2[datacount]-1,YXQc1[datacount],if(Y2=BB-1,C,YC1));
YXQHH:=if(barpos>datacount-Y2[datacount]-1,YXQh1[datacount],if(Y2=BB-1,ref(YH1,1),YH1));
YXQLL:=if(barpos>datacount-Y2[datacount]-1,XQL1[datacount],if(Y2=BB-1,ref(YL1,1),YL1));

{周--周期K线}
if datacount<AA then exit;
Z1:=mod(barpos,AA);
Z2:=if(Z1=0,AA-1,Z1-1);
Z3:=barslast(Z2=0);
Z4:=barslast(Z2=AA-1);
Z5:=ref(o,Z3);
Z6:=hhv(h,Z3+1)*(Z4=0);
Z7:=llv(if(L=0,100000,L),Z3+1)*(Z4=0);
Z8:=IF(Z3=0,C,0);
Z9:=IF(Z4=0,C,0);
Z11:=IF(Z4=0,Z6,0);
Z12:=IF(Z4=0,Z7,0);

for n=lbound(Z8) to ubound(Z8) do begin
  if Z8[n]>0 then begin
    for z=n+AA-1 to ubound(Z8) do begin
      if Z9[z]>0 then begin
        for s=n to z-1 do begin
          ZC1:=Z9[z];
          ZH1:=Z11[z];
          ZL1:=Z12[z];
        end;
        break;
      end;
    end;
  end;
end;

Zzc1:=C;
Zzh1:=hhv(h,Z2[datacount]+1);
ZzL1:=LLV(if(L=0,1000000,L),Z2[datacount]+1);
ZzCC:=if(barpos>datacount-Z2[datacount]-1,Zzc1[datacount],if(Z2=AA-1,C,ZC1));
ZzHH:=if(barpos>datacount-Z2[datacount]-1,Zzh1[datacount],if(Z2=AA-1,ref(ZH1,1),ZH1));
ZzLL:=if(barpos>datacount-Z2[datacount]-1,ZzL1[datacount],if(Z2=AA-1,ref(ZL1,1),ZL1));

{-----------------【图解模板】---------------------}
{月--周期K线}
FILLRGN(Y2>0 and YXQCC>=Y5,YXQHH,YXQLL),Colorred;
FILLRGN(Y2>0 and YXQCC<Y5,YXQHH,YXQLL),Colorgreen;
{周--周期K线}
FILLRGN(Z2>0 and ZzCC>=Z5,ZzHH,ZzLL),COLORMAGENTA;
FILLRGN(Z2>0 and ZzCC<Z5,ZzHH,ZzLL),COLORCYAN;
{日--K线}

//


A:=EMA(CLOSE,3);
B:=EMA(CLOSE,5);
Z:=EMA(CLOSE,15);
资本:=REF(HHV(A,B),Z);
运作:=A;
体系:=MA(运作,5);
【▲】Z:=MA(Z,7);

获利盘:=WINNER(CLOSE)*100;
套牢盘:=100-获利盘;
WIN1:=COST(85);
WIN2:=COST(15);
股票卖出价预测:=MA(套牢盘,89)*0.618/50+CLOSE;
股票买进价预测:=CLOSE-MA(套牢盘,60)*0.618/100;
转折价明日:=REF(CLOSE,2)*2-REF(CLOSE,5);
转折价后日:=REF(CLOSE,1)*2-REF(CLOSE,4);
转折价大后日:=CLOSE*2-REF(CLOSE,3);
高:=HHV(HIGH,0);
低:=LLV(LOW,0);
DCFL:=COST(95);
SCFL:=COST(55);
JCFL:=COST(15);
CH:=COST(5);
DI:=COST(0.38);
M:=58;
X:=3;
P:=SYSPARAM(1);
WS:=BARPOS;
WS1:=IF(WS<M,WS,M);
WSP:=P-WS1+1;
WSP1:=WS1-1;
H1:=HHV(HIGH,WS1);
L1:=LLV(LOW,WS1);
HP:=H1[P];
LP:=L1[P];
HLPX:=(HP-LP)/X;
IF WS1[P]>1 THEN BEGIN
DRAWSL(WS=WSP[P],HP,0,WSP1[P],3),POINTDOT,LINETHICK1;
DRAWSL(WS=WSP[P],LP,0,WSP1[P],3),POINTDOT,LINETHICK1;
DRAWSL(WS=WSP[P],LP+HLPX,0,WSP1[P],3),POINTDOT,LINETHICK1;
DRAWSL(WS=WSP[P],LP+HLPX*2,0,WSP1[P],3),POINTDOT,LINETHICK1,colorAAAAAA;
DRAWNUMBER(WS=WSP[P],HP,HP,2),SHIFT38,colorFF;
DRAWNUMBER(WS=WSP[P],LP,LP,2),SHIFT38,colorFF00;
DRAWNUMBER(WS=WSP[P],LP+HLPX,LP+HLPX,2),SHIFT38,colorFFFF;
DRAWNUMBER(WS=WSP[P],LP+HLPX*2,LP+HLPX*2,2),SHIFT38,colorFFFFFF;
END;
X1:=(CLOSE+LOW+HIGH)/3;
挑战巅峰:=MA(X1,5);
JCZT:=IF(CROSS(体系,【▲】Z),1,0);
SCZT:=IF(CROSS(【▲】Z,体系),2,0);
A:=SYSPARAM(1)=BARPOS;
时间:=IF(A>0,DATE,体系);
MM:=BARSLAST(DATE=时间);
HH:=HHV(HIGH,MM+1);
LL:=LLV(LOW,MM+1);
MID:=(HH+LL)/2;
RENQ:=【▲】Z-(HH-LL)/6;
加权移平均:=WMA(CLOSE,5);
JNYY:=DMA(加权移平均,VOL/CAPITAL);
個Z:=EMA(JNYY,3);
十Z:=EMA(JNYY,5);
百Z:=EMA(JNYY,7);
千Z:=EMA(JNYY,9);
萬Z:=EMA(JNYY,11);
PARTLINE(個Z<REF(個Z,1),個Z),POINTDOT,LINETHICK1,colorFFAA11;
PARTLINE(十Z<REF(十Z,1),十Z),POINTDOT,LINETHICK1,colorFFBB22;
PARTLINE(百Z<REF(百Z,1),百Z),POINTDOT,LINETHICK1,colorFFCC33;
PARTLINE(千Z<REF(千Z,1),千Z),POINTDOT,LINETHICK1,colorFFDD44;
PARTLINE(萬Z<REF(萬Z,1),萬Z),POINTDOT,LINETHICK1,colorFFEE55;
PARTLINE(個Z>REF(個Z,1),個Z),POINTDOT,LINETHICK1,colorFF00FF;
PARTLINE(十Z>REF(十Z,1),十Z),POINTDOT,LINETHICK1,colorFF99FF;
PARTLINE(百Z>REF(百Z,1),百Z),POINTDOT,LINETHICK1,colorFF88FF;
PARTLINE(千Z>REF(千Z,1),千Z),POINTDOT,LINETHICK1,colorFF77FF;
PARTLINE(萬Z>REF(萬Z,1),萬Z),POINTDOT,LINETHICK1,colorFF66FF;

DRAWLINE(SCZT,HH,RENQ,HH,1),LINETHICK1,colorCCDD77;
历史最高:=高;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,'                                                                                 历史最高'+NUMTOSTR(历史最高[SYSPARAM(1)],2)),ALIGN4,colorFF00FF;
历史最低:=低;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,'                                                                                                 历史最低'+NUMTOSTR(历史最低[SYSPARAM(1)],2)),ALIGN4,colorFFFFFF;
获利★:=获利盘;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,'获利★'+NUMTOSTR(获利★[SYSPARAM(1)],2)),ALIGN5,colorFF00;
套牢★:=套牢盘;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,'                套牢★'+NUMTOSTR(套牢★[SYSPARAM(1)],2)),ALIGN5,colorFFFFFF;
近卖预测★:=股票卖出价预测;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,'                                近卖预测★'+NUMTOSTR(近卖预测★[SYSPARAM(1)],2)),ALIGN5,colorFF00;
近买预测★:=股票买进价预测;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,'                                                    近买预测★'+NUMTOSTR(近买预测★[SYSPARAM(1)],2)),ALIGN5,colorFF00CC;
【90%成本】:=WIN1;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,'                                                                        【90%成本】'+NUMTOSTR(【90%成本】[SYSPARAM(1)],2)),ALIGN5,colorFF;
【70%成本】:=WIN2;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,'                                                                                           【70%成本】'+NUMTOSTR(【70%成本】[SYSPARAM(1)],2)),ALIGN5,colorFFFFFF;
底出击★:=DI;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,'底出击★'+NUMTOSTR(底出击★[SYSPARAM(1)],2)),ALIGN4,colorFF00CC;
稳建仓:=CH;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,'               稳建仓'+NUMTOSTR(稳建仓[SYSPARAM(1)],2)),ALIGN4,colorCCCCFF;
快刀手:=JCFL;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,'                             快刀手'+NUMTOSTR(快刀手[SYSPARAM(1)],2)),ALIGN4,colorFFFFFF;
预测★:=DCFL;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,'                                         预测★'+NUMTOSTR(预测★[SYSPARAM(1)],2)),ALIGN4,colorFFFF;
升浪:=SCFL;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,'                                                       升浪'+NUMTOSTR(升浪[SYSPARAM(1)],2)),ALIGN4,color3300CC;





STICKLINE(BARSCOUNT(C)=SYSPARAM(1),((h+l)/2),((h+l)/2),10,0),Coloryellow,linethick2;
STICKLINE(BARSCOUNT(C)=SYSPARAM(1),((h+l)/2)*1.01,((h+l)/2)*1.01,2,0),Coloryellow,pointdot,shift1;
STICKLINE(BARSCOUNT(C)=SYSPARAM(1),((h+l)/2)*1.02,((h+l)/2)*1.02,2,0),Coloryellow,{pointdot},linethick1,shift1;
STICKLINE(BARSCOUNT(C)=SYSPARAM(1),((h+l)/2)*1.03,((h+l)/2)*1.03,5,0),Coloryellow,shift1;
STICKLINE(BARSCOUNT(C)=SYSPARAM(1),((h+l)/2)*1.05,((h+l)/2)*1.05,17,0),Colormagenta,pointdot,shift1;
{STICKLINE(BARSCOUNT(C)=SYSPARAM(1),((h+l)/2)*1.1,((h+l)/2)*1.1,2,0),Coloryellow,pointdot,shift1;}
STICKLINE(BARSCOUNT(C)=SYSPARAM(1),((h+l)/2)*0.99,((h+l)/2)*0.99,2,0),ColorAFB49C,pointdot,shift1;
STICKLINE(BARSCOUNT(C)=SYSPARAM(1),((h+l)/2)*0.98,((h+l)/2)*0.98,2,0),,ColorAFB49C,,pointdot,linethick1,shift1;
STICKLINE(BARSCOUNT(C)=SYSPARAM(1),((h+l)/2)*0.97,((h+l)/2)*0.97,5,0),ColorAFB49C,,pointdot,shift1;
STICKLINE(BARSCOUNT(C)=SYSPARAM(1),((h+l)/2)*0.95,((h+l)/2)*0.95,17,0),ColorYELLOW,pointdot,shift1;
{STICKLINE(BARSCOUNT(C)=SYSPARAM(1),((h+l)/2)*0.90,((h+l)/2)*0.90,2,0),ColorAFB49C,pointdot,shift1;}
DRAWBKBMP(CLOSE>=OPEN or CLOSE<OPEN,'999');
Var1:=(OPEN+LOW+HIGH+CLOSE)/4;

MA1:MA(CLOSE,5);
MA2:MA(CLOSE,13);
MA3:MA(CLOSE,55);
STICKLINE(CLOSE>=OPEN,HIGH,LOW,0,0),COLOR0000FF;
STICKLINE(CLOSE>=OPEN,HIGH,LOW,0,0),COLOR0000FF;
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,8,0),COLOR0000FF;
STICKLINE(CLOSE<=OPEN,HIGH,LOW,0,0),COLORred;
STICKLINE(CLOSE<=OPEN,HIGH,LOW,0,0),COLORFFFF00;
STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,8,0),COLORcyan;
Var32:=CLOSE/REF(CLOSE, 1)>=1.062 AND HIGH/CLOSE<1.005 AND MA(CLOSE, 90)/CLOSE>=1.150;
Var33:=Var32 AND COUNT(Var32, 20)=1 ;
Var34:=(INDEXC-REF(INDEXC, 1))/REF(INDEXC, 1);
Var35:=(CLOSE-REF(CLOSE, 1))/REF(CLOSE, 1);
Var36:=IF(Var34>0.010, 0.900, 1) AND IF(Var34>(-0.025), 1, 1.200);
Var37:=Var36*(Var35-Var34)*100;
Var38:=SUM(Var37, 10);
Var39:=SMA(Var38, 40, 1);
Var310:=Var38>20;
Var311:=CROSS(CLOSE, MA(CLOSE*1.055, 3)) AND CLOSE>OPEN*1.060 AND VOL>=REF(VOL, 1)*1.5 AND CLOSE>=MA(CLOSE, 10);
Var312:=Var310 AND Var311 ;
Var313:=(-100)*(HHV(HIGH, 3)-CLOSE)/(HHV(HIGH, 3)-LLV(LOW, 3));
Var314:= CROSS(Var313, (-87)) AND OPEN=1.090*REF(CLOSE, 1) AND INDEXC>0.980*REF(INDEXC, 1) AND CLOSE<=1.470*LLV(CLOSE, 58);
Var315:=EMA(CLOSE, 12)-EMA(CLOSE, 26);
Var316:=EMA(Var315, 9);
Var317:=2*(Var315-Var316);
Var318:=(CLOSE-LLV(LOW, 9))/(HHV(HIGH, 9)-LLV(LOW, 9))*100;
Var319:=SMA(Var318, 3, 1);
Var320:=SMA(Var319, 3, 1);
Var321:=EMA(IF(Var316>REF(Var316, 1), 1, (-1)), 14)*14;
Var322:=EMA(IF(Var320>REF(Var320, 1), 1, (-1)), 14)*14*2;
Var323:=(MA(CLOSE, 5)/MA(CLOSE, 70)-1)*100;
Var324:=(Var323+Var322+Var321)/3;
Var325:=MA(CLOSE, 80)-MA(CLOSE, 10)/3;
Var326:=IF(CLOSE and MA(VOL, 5)/240 AND CLOSE>REF(CLOSE, 1)*1.0 AND CLOSE,88,0);{Var38>Var39;}
Var327:=IF(CLOSE/REF(CLOSE, 1)>1.050 AND VOL/CAPITAL*100<10 AND CLOSE<17 AND HIGH/CLOSE<1.010 AND Var326>0, 91, 0);
Var328:=IF(Var324>REF(Var324, 1) AND REF(Var324, 1)<REF(Var324, 2) AND (Var33 OR Var312 OR Var314) OR Var326>0 OR Var327>0, 85, 0);
Var329:=IF(Var327>0 ,95,0), STICK,LINETHICK2;
Var330:=IF(Var326>0 or var327>0,91,0), STICK,LINETHICK2;
Var331:=IF(Var328>0 or var327>0 or var326>0,88,0), STICK,LINETHICK2;
Var332:=100*(CLOSE-LLV(LOW,42))/(HHV(HIGH,42)-LLV(LOW,42)),LINETHICK1,colorgreen;
Var333:=COUNT(MA(CLOSE,3)>REF(MA(CLOSE,3),1),1)=1;
Var334:=(Var332<93 AND Var333 and MAX(MAX(Var329, Var330), Var331))*100;  
DRAWICON(Var333>0,LOW*0.99,10),ALIGN5;
DRAWICON(Var333=0,LOW*0.99,11),ALIGN4;
STICKLINE(Var327>90,LOW*0.99,LOW*0.95,6,0),COLORYELLOW;
DRAWTEXT(Var327>90,LOW*0.95,'▲追涨'),COLORYELLOW;
DRAWICON(Var310>0 AND Var327=0,HIGH*1.01,5);

早晨之星:=REF(CLOSE,2)/REF(OPEN,2) < 0.95 AND REF(OPEN,1) < REF(CLOSE,2) AND ABS(REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<0.03 AND
CLOSE/OPEN>1.05 AND CLOSE>REF(CLOSE,2);
黄昏之星:=REF(CLOSE,2)/REF(OPEN,2) > 1.03 AND REF(OPEN,1) > REF(CLOSE,2) AND ABS(REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<0.02 AND
CLOSE/OPEN<0.97 AND CLOSE<REF(CLOSE,2);
长十字:=CLOSE=OPEN AND HIGH/LOW >1.03;
垂死十字:=CLOSE=OPEN AND CLOSE=LOW AND CLOSE<>HIGH;
早晨十字星:=REF(CLOSE,2)/REF(OPEN,2) < 0.95 AND REF(OPEN,1) < REF(CLOSE,2) AND REF(OPEN,1)=REF(CLOSE,1) AND
CLOSE/OPEN>1.05 AND CLOSE>REF(CLOSE,2);
黄昏十字星:=REF(CLOSE,2)/REF(OPEN,2) > 1.05 AND REF(OPEN,1) > REF(CLOSE,2) AND REF(OPEN,1)=REF(CLOSE,1) AND
CLOSE/OPEN<0.95 AND CLOSE<REF(CLOSE,2);
射击之星:=MIN(OPEN,CLOSE)=LOW AND HIGH-LOW > 3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE > MA(CLOSE,5);
倒转锤头:=MIN(OPEN,CLOSE)=LOW AND HIGH-LOW > 3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE < MA(CLOSE,5);
锤头:=HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW > 3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE < MA(CLOSE,5);
吊颈:=HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW > 3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE>MA(CLOSE,5);
穿头破脚:=(REF(CLOSE,1)/REF(OPEN,1)>1.03 AND CLOSE/OPEN<0.96 AND CLOSE<REF(OPEN,1) AND OPEN>REF(CLOSE,1))
OR (REF(CLOSE,1)/REF(OPEN,1)<0.97 AND CLOSE/OPEN>1.04 AND CLOSE>REF(OPEN,1) AND OPEN<REF(CLOSE,1));
乌云盖顶:=REF(CLOSE,1)/REF(OPEN,1)>1.03 AND CLOSE/OPEN<0.97 AND OPEN>REF(CLOSE,1) AND CLOSE<REF(CLOSE,1);
曙光初现:=REF(CLOSE,1)/REF(OPEN,1)<0.97 AND CLOSE/OPEN>1.03 AND OPEN<REF(CLOSE,1) AND CLOSE>REF(CLOSE,1);
身怀六甲:=ABS(REF(CLOSE,1)-REF(OPEN,1))/REF(CLOSE,1) > 0.04 AND ABS(CLOSE-OPEN)/CLOSE<0.005 AND
MAX(CLOSE,OPEN) < MAX(REF(CLOSE,1),REF(OPEN,1)) AND MIN(CLOSE,OPEN) > MIN(REF(CLOSE,1),REF(OPEN,1));
十字胎:=ABS(REF(CLOSE,1)-REF(OPEN,1))/REF(CLOSE,1) > 0.04 AND CLOSE=OPEN AND
CLOSE < MAX(REF(CLOSE,1),REF(OPEN,1)) AND CLOSE > MIN(REF(CLOSE,1),REF(OPEN,1));
平顶:=ABS(HIGH-REF(HIGH,1))/HIGH<0.001;
平底:=(ABS(LOW-REF(LOW,1))/LOW<0.001 and ABS(REF(LOW,1)-REF(LOW,2))/REF(LOW,1)<=0.001);
大阳烛:=CLOSE/OPEN>1.05 AND HIGH/LOW < CLOSE/OPEN+0.018;
三个白武士:=REF(CLOSE,2)>REF(OPEN,2) AND REF(CLOSE,1)>REF(OPEN,1) AND CLOSE>OPEN
AND REF(CLOSE,1)>REF(CLOSE,2) AND CLOSE>REF(CLOSE,1);
双飞乌鸦:=REF(CLOSE,1)<REF(OPEN,1) AND CLOSE<OPEN AND CLOSE/OPEN<0.98;
孕育线:=REF(CLOSE,2)>REF(OPEN,2) AND (REF(CLOSE,2)-REF(OPEN,2))/REF(OPEN,2)>=2/100  AND REF(OPEN,1)>=REF(CLOSE,1) AND
(REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<=2/100 AND REF(OPEN,1)<=REF(CLOSE,2) AND REF(CLOSE,1)>=REF(OPEN,2) AND CLOSE>=OPEN AND
(CLOSE-OPEN)/OPEN>=2/100 AND CLOSE>=REF(OPEN,1) AND OPEN<=REF(CLOSE,1) AND (MAX(CLOSE,REF(CLOSE,2))-MIN(CLOSE,REF(CLOSE,2)))/MIN(CLOSE,REF(CLOSE,2))<=1/100;
多方炮:=REF(CLOSE,2)>REF(OPEN,2) AND REF(CLOSE,1)<REF(OPEN,1) AND CLOSE>OPEN;
出水芙蓉:=(OPEN<EMA(CLOSE,20) OR OPEN<EMA(CLOSE,40) OR OPEN<EMA(CLOSE,60)) AND (CLOSE>MAX(EMA(CLOSE,20),MAX(EMA(CLOSE,40),EMA(CLOSE,60))))
AND (VOL/MA(VOL,30)>1.2 AND CLOSE/REF(CLOSE,1)>1.049);
上升三部曲:=REF(CLOSE,4)/REF(OPEN,4)>1.03 AND REF(CLOSE,3)<REF(OPEN,3) AND REF(CLOSE,2)<REF(OPEN,2) AND REF(CLOSE,1)<REF(OPEN,1) AND
REF(LOW,4)<REF(LOW,3) AND REF(LOW,4)<REF(LOW,2) AND REF(LOW,4)<REF(LOW,1) AND REF(HIGH,4)>REF(HIGH,3) AND REF(HIGH,4)>REF(HIGH,2) AND
REF(HIGH,4)>REF(HIGH,1) AND CLOSE/OPEN>1.03 AND CLOSE>REF(CLOSE,4);
下跌三部曲:= REF(CLOSE,4)/REF(OPEN,4)<0.97 AND REF(CLOSE,3)>REF(OPEN,3) AND REF(CLOSE,2)>REF(OPEN,2) AND REF(CLOSE,1)>REF(OPEN,1) AND REF(LOW,4)<REF(LOW,3) AND
REF(LOW,4)<REF(LOW,2) AND REF(LOW,4)<REF(LOW,1) AND REF(HIGH,4)>REF(HIGH,3) AND REF(HIGH,4)>REF(HIGH,2) AND REF(HIGH,4)>REF(HIGH,1) AND CLOSE/OPEN<0.97 AND
CLOSE<REF(CLOSE,4);
跳空缺口:=HIGH<REF(LOW,1) OR LOW>REF(HIGH,1);
三只乌鸦:=REF(CLOSE,2)<REF(OPEN,2) AND REF(CLOSE,1)<REF(OPEN,1) AND CLOSE<OPEN AND REF(CLOSE,1)<REF(CLOSE,2) AND CLOSE<REF(CLOSE,1);
光脚阴线:=LOW=CLOSE AND HIGH<>LOW;
光头阳线:=HIGH=CLOSE AND HIGH<>LOW;
分离:=OPEN=REF(OPEN,1) AND (CLOSE-OPEN)*(REF(CLOSE,1)-REF(OPEN,1))<0;
长下影:=(MIN(CLOSE,OPEN)-LOW)/(HIGH-LOW)>0.667;
长上影:=(HIGH-MAX(CLOSE,OPEN))/(HIGH-LOW)>0.667;
十字星:=CLOSE=OPEN AND HIGH<>LOW;
大阴烛:=OPEN/CLOSE > 1.05 AND HIGH/LOW < OPEN/CLOSE+0.018;
好友反攻:=(REF(CLOSE,1)<REF(OPEN,1) AND CLOSE>OPEN AND ABS(CLOSE-REF(CLOSE,1))/CLOSE<0.002)
OR (REF(CLOSE,1)>REF(OPEN,1) AND CLOSE<OPEN AND ABS(CLOSE-REF(CLOSE,1))/CLOSE<0.002);
倾盆大雨:=REF(CLOSE,1)/REF(OPEN,1)>=1.03 AND OPEN<REF(CLOSE,1) AND OPEN>REF(OPEN,1) AND CLOSE<REF(OPEN,1);

EXPLAIN(倾盆大雨,'K线形态分析:倾盆大雨,见顶信号;'),COLORCYAN;
EXPLAIN(大阴烛,'K线形态分析:大阴烛,后市向淡,发生逆转;'),COLORCYAN;
EXPLAIN(好友反攻,'K线形态分析:好友反攻,底部反转;'),COLORRED;
EXPLAIN(跳空缺口,'K线形态分析:跳空缺口,注意向上还是向下跳空;'),COLORWHITE;
EXPLAIN(光脚阴线,'K线形态分析:光脚阴线,下跌信号;'),COLORCYAN;
EXPLAIN(光头阳线,'K线形态分析:光头阳线,后市看涨;'),COLORRED;
EXPLAIN(三只乌鸦,'K线形态分析:三只乌鸦,可能见顶回落;'),COLORCYAN;
EXPLAIN(分离,'K线形态分析:分离,注意看涨分离和看跌分离;'),COLORWHITE;
EXPLAIN(长下影,'K线形态分析:长下影,持续下跌后出现,有可能止跌回升;在升势末期出现,须多加留意;'),COLORRED;
EXPLAIN(长上影,'K线形态分析:长上影,表明行情上档压力沉重,升势受阻;'),COLORCYAN;
EXPLAIN(下跌三部曲,'K线形态分析:下跌三部曲,下跌信号;'),COLORRED;
EXPLAIN(上升三部曲,'K线形态分析:上升三部曲,上涨信号;'),COLORCYAN;
EXPLAIN(早晨之星,'K线形态分析:早晨之星,见底回升;'),COLORRED;
EXPLAIN(黄昏之星,'K线形态分析:黄昏之星,见顶回落;'),COLORCYAN;
EXPLAIN(十字星,'K线形态分析:十字星,有转向意味,注意股价位置在顶部还是底部;'),COLORWHITE;
EXPLAIN(长十字,'K线形态分析:长十字,注意在顶部还是底部;'),COLORWHITE;
EXPLAIN(垂死十字,'K线形态分析:垂死十字,下跌信号;'),COLORCYAN;
EXPLAIN(早晨十字星,'K线形态分析:早晨十字星,上涨信号,见底回升;'),COLORRED;
EXPLAIN(黄昏十字星,'K线形态分析:黄昏十字星,下跌信号,见顶回落;'),COLORCYAN;
EXPLAIN(射击之星,'K线形态分析:射击之星,可能见顶回落,可靠性低;'),COLORCYAN;
EXPLAIN(倒转锤头,'K线形态分析:倒转锤头,可能见底回升;'),COLORRED;
EXPLAIN(锤头,'K线形态分析:锤头,可能见底回升,如有量配合,信号强烈;'),COLORRED;
EXPLAIN(吊颈,'K线形态分析:吊颈,上升行情中见顶回落,顶部出现,见顶信号;'),COLORCYAN;
EXPLAIN(平顶,'K线形态分析:平顶,温和的反转;'),COLORCYAN;
EXPLAIN(穿头破脚,'K线形态分析:穿头破脚,顶部出现,见顶回落信号;'),COLORCYAN;
EXPLAIN(乌云盖顶,'K线形态分析:乌云盖顶,见顶回落信号;'),COLORCYAN;
EXPLAIN(曙光初现,'K线形态分析:曙光初现,后市见底回升;'),COLORRED;
EXPLAIN(身怀六甲,'K线形态分析:身怀六甲,出现在底部,是见底回升信号;出现在顶部,是见顶回落信号;'),COLORRED;
EXPLAIN(十字胎,'K线形态分析:十字胎;'),COLORRED;
EXPLAIN(平底,'K线形态分析:平底,温和的反转;'),COLORRED;
EXPLAIN(大阳烛,'K线形态分析:大阳烛,,看涨;'),COLORRED;
EXPLAIN(三个白武士,'K线形态分析:三个白武士,每日收盘价上移,表示可能见底回升;'),COLORRED;
EXPLAIN(双飞乌鸦,'K线形态分析:双飞乌鸦,行情将见顶回落;'),COLORCYAN;
EXPLAIN(孕育线,'K线形态分析:孕育线,注意股价位置;'),COLORWHITE;
EXPLAIN(多方炮,'K线形态分析:多方炮,在底部出现有上涨以为,在中间出现有可能是上涨中继,顶部出现是复合见顶信号;'),COLORRED;
EXPLAIN(出水芙蓉,'K线形态分析:出水芙蓉,见底回升;'),COLORRED;

MID:=MA(CLOSE,20);
UPPER:=MID+2*STD(CLOSE,20);
LOWER:=MID-2*STD(CLOSE,20);
V1:=(CLOSE-LOWER)/(UPPER-LOWER)*100;
V2:=V1-EMA(V1,5);
K1:=SUM(LLV(V2,4),4)/4;
V3:=EMA(V2,64)*10;
V4:=EMA(0.4*V2*(-1),3);
V5:=-1*EMA(V2,39)*10;
A:=V3>10;
B:=V2>V4;
D:=V5>10;
E:=V3<=10 OR V2<=V4 OR V5<=10;
KS:=(CLOSE-SMA(CLOSE,13,1))/SMA(CLOSE,13,1)*(-100);
RKS:=REF(KS,1);
MLS:=RKS/KS>1.23 AND RKS>13 AND CLOSE/REF(CLOSE,1)>1.03;
开:=OPEN;
高:=HIGH;
低:=LOW;
收:=CLOSE;
STICKLINE(收>=开 AND E,高,低,0,0),COLORred;
STICKLINE(收>=开 AND E,收,开,8,0),COLORred;
STICKLINE(收< 开 AND E,高,低,0,0),COLORgreen;
STICKLINE(收< 开 AND E,收,开,8,0),COLORgreen;
STICKLINE(开> 收 AND A,低,高,0,0),COLORYELLOW;
STICKLINE(开> 收 AND A,收,开,8,0),COLORYELLOW;
STICKLINE(开<=收 AND A,低,高,0,0),COLORYELLOW;
STICKLINE(开<=收 AND A,收,开,8,1),COLORYELLOW;
STICKLINE(开> 收 AND B,低,高,0,0),COLORRED;
STICKLINE(开> 收 AND B,收,开,8,0),COLORRED;
STICKLINE(开<=收 AND B,低,高,0,0),COLORRED;
STICKLINE(开<=收 AND B,收,开,8,1),COLORRED;
STICKLINE(开> 收 AND D,低,高,0,0),COLORGREEN;
STICKLINE(开> 收 AND D,收,开,8,0),COLORGREEN;
STICKLINE(开<=收 AND D,低,高,0,0),COLORGREEN;
STICKLINE(开<=收 AND D,收,开,8,1),COLORGREEN;
超跌:STICKLINE(KS>13,高,低,0,1),colorwhite,linethick2;
反弹:STICKLINE(MLS=1,高,低,0,1),colormagenta,linethick2;
STICKLINE(KS>13,开,收,8,1),colorwhite,linethick2;
STICKLINE(MLS=1,开,收,8,1),colormagenta,linethick2;

A:MA(CLOSE,3),ColorFF00FF,LINETHICK0;
A1:=(CLOSE+HIGH+LOW)/(3);
B:=EMA(A1,10);
B2:=REF(B,1);
MA20:=EMA(CLOSE,20);
DRAWTEXT((B>B2),ma20,'*'),Colorffff00;
DRAWTEXT((B<B2),ma20,'*'),Coloryellow;
VAR1:=EMA(CLOSE,3);
VAR2:=EMA(CLOSE,8);
MA5:MA(CLOSE,5),Coloryellow;
MA21:=EMA(CLOSE,21);
STICKLINE(VAR1<MA21,h,l,0,0),Colorgreen;
STICKLINE(VAR1<MA21,c,o,8,0),Color007700;
STICKLINE(VAR1<MA21,c,o,7,0),Color008E00;
STICKLINE(VAR1<MA21,c,o,6,0),Color009900;
STICKLINE(VAR1<MA21,c,o,5,0),Color00A600;
STICKLINE(VAR1<MA21,c,o,4,0),Color00B500;
STICKLINE(VAR1<MA21,c,o,3,0),Color00C600;
STICKLINE(VAR1<MA21,c,o,2,0),Color00D500;
STICKLINE(VAR1<MA21,c,o,1,0),Color00E600;
STICKLINE(VAR1>MA21,h,l,0,0),Color106fff;
STICKLINE(VAR1>MA21,c,o,8,0),Color000084;
STICKLINE(VAR1>MA21,c,o,7,0),Color000095;
STICKLINE(VAR1>MA21,c,o,6,0),Color0000A2;
STICKLINE(VAR1>MA21,c,o,5,0),Color0000B3;
STICKLINE(VAR1>MA21,c,o,4,0),Color0000C8;
STICKLINE(VAR1>MA21,c,o,3,0),Color0000D7;
STICKLINE(VAR1>MA21,c,o,2,0),Color0000EA;
STICKLINE(VAR1>MA21,c,o,1,0),Color0000FF;

STICKLINE(VAR1<VAR2 AND VAR1>MA21,h,l,0,0),Colorff5d10;
STICKLINE(VAR1<VAR2 AND VAR1>MA21,c,o,8,0),Colorff5d10;
STICKLINE(VAR1<VAR2 AND VAR1>MA21,c,o,5,0),Colorff7710;
STICKLINE(VAR1<VAR2 AND VAR1>MA21,c,o,2,0),Colorff9910;
STICKLINE(VAR1>VAR2 AND VAR1<MA21,h,l,0,0),Colorff00ff;
STICKLINE(VAR1>VAR2 AND VAR1<MA21,c,o,8,0),Color8E008E;
STICKLINE(VAR1>VAR2 AND VAR1<MA21,c,o,7,0),Color9D009D;
STICKLINE(VAR1>VAR2 AND VAR1<MA21,c,o,6,0),ColorB000B0;
STICKLINE(VAR1>VAR2 AND VAR1<MA21,c,o,5,0),ColorC600C6;
STICKLINE(VAR1>VAR2 AND VAR1<MA21,c,o,4,0),ColorD000D0;
STICKLINE(VAR1>VAR2 AND VAR1<MA21,c,o,3,0),ColorE600E6;
STICKLINE(VAR1>VAR2 AND VAR1<MA21,c,o,2,0),ColorF900F9;
STICKLINE(VAR1>VAR2 AND VAR1<MA21,c,o,1,0),ColorFF09FF;

MA2:=MA(CLOSE,10);
MA34:=MA(CLOSE,34);
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);
K:=SMA(VARF,3,1);
顶:=(REF(BIAS18,1)>=5) AND CROSS(VARJ,VARE) AND (K>79);
DRAWTEXT((REF(BIAS18,1)>=5) AND CROSS(VARJ,VARE) AND (K>79),h*1.02,'★风险'),Coloryellow;
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 有用有用 没用没用
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 欢迎注册

本版积分规则