鳄鱼线修改为大智慧L2使用
最近使用飞狐，看到鳄鱼线指标，看到群中有修改为大智慧L2的，但是解盘部分没有能够体现到指标中，对于不熟悉使用方法的人，是个极大障碍，因此从大智慧源码中将这部分修改为大智慧L2动态解盘。
源码如下：
Y:=((HIGH + LOW) / 2);
BLUE:=SMA(Y,13,1);
RED:=SMA(Y,8,1);
GREEN:=SMA(Y,5,1);
B2:=REF(BLUE,8);
R2:=REF(RED,5);
G2:=REF(GREEN,3);
KU1:=IF((HIGH = HHV(HIGH,3)),1,0);
KD1:=IF((LOW = LLV(LOW,3)),1,0);
UL:=IF((((REF(KU1,2) = 1) AND (REF(KU1,1) = 0)) AND (KU1 = 0)),REF(HIGH,2),REF(HIGH,(2 + BARSLAST((((REF(KU1,2) = 1) AND (REF(KU1,1) = 0)) AND (KU1 = 0))))));
DL:=IF((((REF(KD1,2) = 1) AND (REF(KD1,1) = 0)) AND (KD1 = 0)),REF(LOW,2),REF(LOW,(2 + BARSLAST((((REF(KD1,2) = 1) AND (REF(KD1,1) = 0)) AND (KD1 = 0))))));
KU:=IF((((CLOSE > B2) AND (CLOSE > R2)) AND (CLOSE > G2)),1,0);
KD:=IF((((CLOSE < B2) AND (CLOSE < R2)) AND (CLOSE < G2)),(0 - 1),0);
KK:=IF((BARSLAST(((KU = 1) AND (REF(KU,1) = 0))) < BARSLAST(((KD = (0 - 1)) AND (REF(KD,1) = 0)))),1,(0 - 1));
AO:=(MA(Y,5) - MA(Y,34));
AC:=MA((AO - MA(AO,5)),5);
AC1:=REF(AC,1);
AO1:=REF(AO,1);
AO转:(((((170 * MA(Y,5)) - (170 * MA(Y,34))) + (165 * MA(Y,33))) - (136 * MA(Y,4))) / 29),LINETHICK0;
AO零:(((165 * MA(Y,33)) - (136 * MA(Y,4))) / 29),LINETHICK0;
AC转:((((165 * MA(Y,33)) - (136 * MA(Y,4))) + ((170 * ((4 * MA(AO,4)) + (5 * (REF(AO,4) - MA(REF(AO,4),5))))) / 4)) / 29),LINETHICK0;
AC零:((((((170 * 4) * MA(AO,4)) + ((20 * 33) * MA(Y,33))) - ((16 * 34) * MA(Y,4))) - (((170 * 5) * 4) * MA((AO - MA(AO,5)),4))) / 116),LINETHICK0;
KAC:=IF(((AC > AC1) AND (AO > AO1)),1,0);
KAO:=IF(((AC < AC1) AND (AO < AO1)),(0 - 1),0);
蓝:SMA(ref(Y,8),13,1),colorFF0000;
红:SMA(ref(Y,5),8,1),color0000FF;
绿:SMA(ref(Y,3),5,1),color00FF00;
上碎型:IF((HIGH >= R2),UL,REF(UL,BARSLAST((HIGH > R2)))),POINTDOT,colorFF00FF,LINETHICK2;
下碎型:IF((LOW <= R2),DL,REF(DL,BARSLAST((LOW <= R2)))),POINTDOT,color00FFFF,LINETHICK2;
STICKLINE((BARSLAST(ABS((上碎型 - REF(上碎型,1)))) < BARSLAST(((CLOSE > 上碎型) AND (REF(CLOSE,1) < REF(上碎型,1))))),上碎型,上碎型,3,1),colorFF00FF;
STICKLINE((BARSLAST(ABS((下碎型 - REF(下碎型,1)))) < BARSLAST(((CLOSE < 下碎型) AND (REF(CLOSE,1) > REF(下碎型,1))))),下碎型,下碎型,3,1),color00FFFF;
OL:=(((((170 * MA(Y,5)) - (170 * MA(Y,34))) + (165 * MA(Y,33))) - (136 * MA(Y,4))) / 29);
CL:=((((165 * MA(Y,33)) - (136 * MA(Y,4))) + ((170 * ((4 * MA(AO,4)) + (5 * (REF(AO,4) - MA(REF(AO,4),5))))) / 4)) / 29);
H1:=REF(HIGH,4);
H2:=REF(HIGH,3);
H3:=REF(HIGH,2);
H4:=REF(HIGH,1);
H5:=HIGH;
L1:=REF(LOW,4);
L2:=REF(LOW,3);
L3:=REF(LOW,2);
L4:=REF(LOW,1);
L5:=LOW;
‖:=((((H3 > H2) AND (H3 > H1)) AND (H3 > H4)) AND (H3 > H5));
‖FRACTAL:=IF(‖,1,0);
‖VAR1:=BACKSET(‖FRACTAL,3);
‖VAR2:=FILTER(‖VAR1,2);
‖VAR3:=BACKSET(‖FRACTAL,5);
∣:=((((L3 < L2) AND (L3 < L1)) AND (L3 < L4)) AND (L3 < L5));
∣FRACTAL:=IF(∣,1,0);
∣VAR1:=BACKSET(∣FRACTAL,3);
∣VAR2:=FILTER(∣VAR1,2);
∣VAR3:=BACKSET(∣FRACTAL,5);
DRAWTEXT(‖VAR2,(HIGH +0.15),'●'),COLORRED;
DRAWTEXT(∣VAR2,LOW-0.05,'●'),COLORFF0000;
DRAWTEXT(((CLOSE > 上碎型) AND (REF(CLOSE,1) < REF(上碎型,1))),(HIGH +0.15),'↑'),COLORRED;
DRAWTEXT(((CLOSE < 下碎型) AND (REF(CLOSE,1) > REF(下碎型,1))),(LOW * 0.99),'↓'),COLOR33FF33;
DRAWTEXT((((KU = 1) AND (REF(KU,1) = 0)) AND (CLOSE < 0)),LOW* 0.99,'↑'),COLORRED;
DRAWTEXT((((KD = (0 - 1)) AND (REF(KD,1) = 0)) AND (CLOSE < 0)),(HIGH * 1.01),'↓'),COLOR33FF33;
DRAWTEXT((((KU = 0) AND (REF(KU,1) = 1)) AND (CLOSE < 0)),(HIGH * 1.01),'▼'),COLOR33FF33;
DRAWTEXT((((KD = 0) AND (REF(KD,1) = (0 - 1))) AND (CLOSE < 0)),LOW,'△'),COLORRED;
STICKLINE(((KAC = 1) AND (CLOSE >= OPEN)),OPEN,CLOSE,5,1),color0000FF;
STICKLINE(((KAO = (0 - 1)) AND (CLOSE >= OPEN)),OPEN,CLOSE,5,1),color33FF33;
STICKLINE((((KAO = 0) AND (KAC = 0)) AND (CLOSE >= OPEN)),OPEN,CLOSE,5,1),color808080;
STICKLINE((CLOSE >= OPEN),HIGH,CLOSE,0.4,1),color0000FF;
STICKLINE((CLOSE >= OPEN),OPEN,LOW,0.4,1),color0000FF;
STICKLINE(((KAC = 1) AND (CLOSE < OPEN)),OPEN,CLOSE,5,0),color0000FF;
STICKLINE(((KAO = (0 - 1)) AND (CLOSE < OPEN)),OPEN,CLOSE,5,0),color33FF33;
STICKLINE((((KAO = 0) AND (KAC = 0)) AND (CLOSE < OPEN)),OPEN,CLOSE,5,0),color808080;
STICKLINE((OPEN > CLOSE),HIGH,OPEN,0.4,1),colorFFFF00;
STICKLINE((OPEN > CLOSE),CLOSE,LOW,0.4,1),colorFFFF00;
KA:=IF(GREEN>RED AND RED>BLUE,1,IF(GREEN<RED AND RED<BLUE,-1,0));
D3U:=HHV(REF(HIGH,1),3);
D3L:=LLV(REF(LOW,1),3);
K3K:=IF(CLOSE>D3U,1,IF(CLOSE<D3L,-1,IF((BARSLAST(CLOSE>D3U))<(BARSLAST(CLOSE<D3L)),1,-1)));
解盘:='【解盘】'+
IFS(CLOSE>上碎型 AND REF(CLOSE,1)<REF(上碎型,1),'向上有效碎型被突破；','')+
IFS(CLOSE<下碎型 AND REF(CLOSE,1)>REF(下碎型,1),'向下有效碎型被突破；','')+
IFS(BARSLAST(ABS(上碎型-REF(上碎型,1)))<(BARSLAST(CLOSE>上碎型 AND REF(CLOSE,1)<REF(上碎型,1))),'有效上碎型:'+上碎型+'；','')+
IFS(BARSLAST(ABS(下碎型-REF(下碎型,1)))<(BARSLAST(CLOSE<下碎型 AND REF(CLOSE,1)>REF(下碎型,1))),'有效下碎型:'+下碎型+'；','')+
IFS(KAC=1,'AO与AC为多方趋势；','')+
IFS(KAO=-1,'AO与AC为空方趋势；','')+
IFS(KAC=0 AND KAO=0,'注意动量趋势是否即将反转；','')+
IFS((REF(KAO,2)=-1 OR REF(KAC,2)=0 AND REF(KAO,2)=0) AND REF(KAC,1)=1 AND KAC=1,'红色区域多单进场；','')+
IFS((REF(KAC,2)=1 OR REF(KAC,2)=0 AND REF(KAO,2)=0) AND REF(KAO,1)=-1 AND KAO=-1,'绿色区域空单进场；','')+
IFS((REF(KAO,4)=-1 OR REF(KAC,4)=0 AND REF(KAO,4)=0) AND REF(KAC,3)=1 AND REF(KAC,2)=1 AND REF(KAC,1)=1 AND KAC=1,'红色区域多单停止加码；','')+
IFS((REF(KAC,4)=1 OR REF(KAC,4)=0 AND REF(KAO,4)=0) AND REF(KAO,3)=-1 AND REF(KAO,2)=-1 AND REF(KAO,1)=-1 AND KAO=-1,'绿色区域空单停止加码；','')+
IFS(KA=1,'鳄鱼向上张嘴, 作多不作空；','')+
IFS(KA=-1,'鳄鱼向下张嘴, 作空不作多；','')+
IFS(KA=0,'鳄鱼沈睡中,观望为主；','')+
IFS(K3K=1,'短线多方趋势；','')+
IFS(K3K=-1,'短线空方趋势；','')+
IFS(CLOSE>0,'短线反转价:'+IF(K3K=1,D3L,D3U)+'；','')+
IFS(CLOSE<B2 AND B2<REF(B2,1),'中期空方趋势；','')+
IFS(CLOSE<B2 AND B2>=REF(B2,1),'怀疑中期空方；','')+
IFS(CLOSE>B2 AND B2>=REF(B2,1),'中期多方趋势；','')+
IFS(CLOSE>B2 AND B2<REF(B2,1),'怀疑中期多方；','');
DRAWTEXTREL(10,40,解盘),COLORYELLOW,LINETHICK2;
 |
