飞狐天使双吻，抄底选股，源码

本指标是在对天使之吻进行了改动后所作，所谓天使双吻是指副图为一吻，主图中的转折线与遁地线为二吻，出现双吻后，天使线上穿吻线作为抄底条件。
 均价:=(2*C+(C+H+L+O)/4+O)/4;
 R:=(3*L+2*均价)/5;R1:=(3*H+2*均价)/5;
 kX:=(R+R1)/2;
 跟庄线:=WMA(SUM(KX*V,4)/SUM(V,4),4);
 rd:=(r1+H)/1.56;
 寻庄至尊:=(55*rD+54*REF(rD,1)+53*REF(rD,2)+52*REF(rD,3)+51*REF(rD,4)+50*REF(rD,5)+49*REF(rD,6)+48*REF(rD,7)+47*REF(rD,8)+46*REF(rD,9)
      +45*REF(rD,10)+44*REF(rD,11)+43*REF(rD,12)+42*REF(rD,13)+41*REF(rD,14)+40*REF(rD,15)+39*REF(rD,16)+38*REF(rD,17)+37*REF(rD,18)+36*REF(rD,19)
      +35*REF(rD,20)+34*REF(rD,21)+33*REF(rD,22)+32*REF(rD,23)+31*REF(rD,24)+30*REF(rD,25)+29*REF(rD,26)+28*REF(rD,27)+27*REF(rD,28)+26*REF(rD,29)
      +25*REF(rD,30)+24*REF(rD,31)+23*REF(rD,32)+22*REF(rD,33)+21*REF(rD,34)+20*REF(rD,35)+19*REF(rD,36)+18*REF(rD,37)+17*REF(rD,38)+16*REF(rD,39)
      +15*REF(rD,40)+14*REF(rD,41)+13*REF(rD,42)+12*REF(rD,43)+11*REF(rD,44)+10*REF(rD,45)+9*REF(rD,46)+8*REF(rD,47)+7*REF(rD,48)+6*REF(rD,49)
      +5*REF(rD,50)+4*REF(rD,51)+3*REF(rD,52)+2*REF(rD,53)+1*REF(rD,54))/1765,COLOR0077FF,LINEDOT;
寻庄看底:=(55*r+54*REF(r,1)+53*REF(r,2)+52*REF(r,3)+51*REF(r,4)+50*REF(r,5)+49*REF(r,6)+48*REF(r,7)+47*REF(r,8)+46*REF(r,9)
     +45*REF(r,10)+44*REF(r,11)+43*REF(r,12)+42*REF(r,13)+41*REF(r,14)+40*REF(r,15)+39*REF(r,16)+38*REF(r,17)+37*REF(r,18)+36*REF(r,19)
     +35*REF(r,20)+34*REF(r,21)+33*REF(r,22)+32*REF(r,23)+31*REF(r,24)+30*REF(r,25)+29*REF(r,26)+28*REF(r,27)+27*REF(r,28)+26*REF(r,29)
     +25*REF(r,30)+24*REF(r,31)+23*REF(r,32)+22*REF(r,33)+21*REF(r,34)+20*REF(r,35)+19*REF(r,36)+18*REF(r,37)+17*REF(r,38)+16*REF(r,39)
     +15*REF(r,40)+14*REF(r,41)+13*REF(r,42)+12*REF(r,43)+11*REF(r,44)+10*REF(r,45)+9*REF(r,46)+8*REF(r,47)+7*REF(r,48)+6*REF(r,49)
     +5*REF(r,50)+4*REF(r,51)+3*REF(r,52)+2*REF(r,53)+1*REF(r,54))/1765,COLORAAAA00,LINEDOT;
 寻庄黄金:=(寻庄看底+寻庄至尊)/2;
 DD:=ABS(跟庄线-MA(寻庄黄金,60))/MA(寻庄黄金,60);
黄龙:=DMA(寻庄黄金,DD);
 遁地:=if(STKTYPE=0,黄龙*(1-7/100),黄龙*(1-14/100));
 反转:=INTPART(KX);
 LC := REF(KX,1);
 RS1:=SMA(MAX(KX-LC,0),11,1);
 RS2:=SMA(ABS(KX-LC),11,1);
 天使:=(RS1*8*4)-(RS2*8);
 唇吻:=wma((RS2*8/4)-(RS1*8),3);
 CROSS(天使,唇吻)AND REF(反转,1)<遁地;