大智慧乾坤主图公式 源码
 

乾坤主图公式（大智慧公式）
 
input:N(3,1,100),N1(7,1,100),P(1,1,100),N3(6,1,100);
 均价:=(HIGH+4*LOW+OPEN+CLOSE)/7;
 均价差:= EMA(均价,13) - EMA(均价,34);
 移动均价:= EMA(均价差,5);
 差:=(均价差-移动均价)*5;
 A:=IF(差>=1000 ,1000 ,IF(差<=均价,均价,差) );
 智: CLOSE,colorblue,linethick3;
 慧:if(智>forcast(forcast(智,13),l),智,forcast(forcast(智,13),l)),linethick3,COLOR248a24;
 MA5:=MA(C,5);
 MA13:=MA(C,13);
 MA55:=MA(C,55);
 MA125:=MA(C,125);
 
MA250:=MA(C,250);
 a:=(3*c+l+o+h)/6;
 垂帘:=(20*a+19*ref(a,1)+18*ref(a,2)+17*ref(a,3)+16*ref(a,4)+15*ref(a,5)
 +14*ref(a,6)+13*ref(a,7)+12*ref(a,8)+11*ref(a,9)+10*ref(a,10)
 +9*ref(a,11)+8*ref(a,12)+7*ref(a,13)+6*ref(a,14)+5*ref(a,15)
 +4*ref(a,16)+3*ref(a,17)+2*ref(a,18)+ref(a,20))/210;
 轨:=ma(垂帘,1);
 partline(轨,轨>ref(轨,1),rgb(125,0,0),轨<ref(轨,1),rgb(0,125,0))
 ,COLORGREEN,LINETHICK4;
 zar1:=SLOPE(EMA(CLOSE,2),5)*15+C;
 zar2:=EMA(zar1,5);
 zarA:=EMA(EMA(EMA(EMA(EMA(EMA(EMA(EMA(zar2,5),5),5),5),5),5),5),5);
 zarB:=BARSLAST(CROSS(CLOSE,zarA));
 zarC:=BARSLAST(CROSS(zarA,CLOSE));
 STICKLINE(CLOSE<zarA,REF(CLOSE,zarC),REF(CLOSE,zarC),12,0),linethick3,COLOR00FF00;
 良机:if(CLOSE>zarA AND CLOSE>REF(CLOSE,zarB),REF(CLOSE,zarB),REF(CLOSE,zarB)),COLORFFC8FF,pointdot,linethick2;
 STICKLINE(CLOSE>zarA AND CLOSE>REF(CLOSE,zarB),REF(CLOSE,zarB),垂帘,1,0),COLORFFC8FF,linethick2;
 STICKLINE(CLOSE>zarA AND CLOSE>REF(CLOSE,zarB),REF(CLOSE,zarB),REF(CLOSE,zarB),12,0),COLORFFC8FF,LINETHICK3;
 恶化:IF(CLOSE<zarA AND CLOSE<REF(CLOSE,zarC),REF(CLOSE,zarC),REF(CLOSE,zarC)),COLOR00FF00,POINTDOT;
 STICKLINE(CLOSE<zarA AND CLOSE<REF(CLOSE,zarC),REF(CLOSE,zarC),垂帘,1,0),COLOR00FF00,LINETHICK2;
 xClose:=EMA((Open+High+Low+Close)/4,n) ;
xOpen:=EMA((Ref(Open,1) + Ref(xClose,1))/2,n);
Tempg:=Max(High, xOpen);
xHigh:=EMA(Max(Tempg, xClose),n);
Temp:=Min(Low,XOpen);
xLow:=EMA(Min(Temp, xClose),n);
x1:=Ref(C,1);
 x2:=EMA(Max(C-x1,0),N)/EMA(abs(C-x1),N1)*100;
 x3:=((3*EMA((C-LLV(L,27))/(HHV(H,27)-LLV(L,27))*100,5)-
        2*EMA(EMA((C-LLV(L,27))/(HHV(H,27)-LLV(L,27))*100,5),3)-50)+50);
 x4:=(x2+x3)/2;
 x5:=EMA(C+(x4/50-1)*(MA(C,30)/20)*p,5);
 n2c:=2*n3;
 n3c:=2*n2c;
 Var1:=Ref(Close,1);
 Var3:=EMA(Max(Close-Var1,0),n3)/EMA(abs(Close-Var1),n3)*100;
 Var4:=EMA(Max(Close-Var1,0),n2c)/EMA(abs(Close-Var1),n2c)*100;
 Var5:=EMA(Max(Close-Var1,0),n3c)/EMA(abs(Close-Var1),n3c)*100;
 Var6:=If(Cross(Var3,Var5),Low,Ref(Low,BarsSince(Cross(Var3,Var5))));
 Var7:=If(Cross(Var5,Var3),High,Ref(High,BarsSince(Cross(Var5,Var3))));
 Var8:=If(Close>=MA(Close,20),80,50);
 Var9:=If(Close>=MA(Close,20),50,20);
 VarA:=If(Var3<Var8 AND Ref(Var3,1)>=Var8,HHV(Ref(High,1),BARSLAST(Var3>=Var8 AND Ref(Var3,1)<Var8)-1),
    Ref(HHV(Ref(High,1),BARSLAST(Var3>=Var8 AND Ref(Var3,1)<Var8)+1), BARSLAST(Var3<Var8 AND Ref(Var3,1))));
 VarB:=If(High>VarA,Low,Ref(Low,BARSLAST(High>VarA)));
 VarC:=If(High>VarA,Var3,Ref(Var3,BARSLAST(High>VarA)));
 VarD:=If(High>VarB AND Var3<VarC AND Var3<Var5,High,Ref(High,BARSLAST(High>VarB AND Var3<VarC AND Var3<Var5)));
 VarE:=If(Var3>Var9 AND Ref(Var3,1)<=Var9,LLV(Ref(Low,1),BARSLAST(Var3<=Var9 AND Ref(Var3,1)>Var9)+1),
    Ref(LLV(Ref(Low,1),BARSLAST(Var3<=Var9 AND Ref(Var3,1)>Var9)+1),BARSLAST(Var3>Var9 AND Ref(Var3,1))));
 VarF:=If(Low<VarE,High,Ref(High,BARSLAST(Low<VarE)));
 Var10:=If(Low<VarE,Var3,Ref(Var3,BARSLAST(Low<VarE)));
 Var11:=If(Low<VarF AND Var3>Var10 AND Var3>Var5,Low,Ref(Low,BARSLAST(Low<VarF AND Var3>Var10 AND Var3>Var5)));
 乾: Var11,colorff00ff,LINETHICK3,LAYER0;
 坤: VarD,COLOR6600ff,linethick3,layer1;
 drawtext(Cross(x5,乾 ),xlow,'●'),colorblue,align0,linethick3;
 drawtext(Cross(坤,x5 ),xhigh,'￥'),COLOR00FF00,align0,linethick3;
 drawtext(Cross(x5,乾 ),xlow,'？'),colorwhite,align2,LINETHICK6;
 drawtext(Cross(坤,x5 ),xhigh,'★'),colorFFABA3,align2,LINETHICK4;
 

同花顺 乾坤主图公式
 
N:=3;N1:=7;P:=1;N3=6;
 均价:=(HIGH+4*LOW+OPEN+CLOSE)/7;
 均价差:= EMA(均价,13) - EMA(均价,34);
 移动均价:= EMA(均价差,5);
 差:=(均价差-移动均价)*5;
 A:=IF(差>=1000 ,1000 ,IF(差<=均价,均价,差) );
 智: CLOSE,colorblue,linethick3;
 慧:IF(智>FORCAST(FORCAST(智,13),L),智,FORCAST(FORCAST(智,13),L)),linethick3,COLOR248a24;
 MA5:=MA(C,5);
 MA13:=MA(C,13);
 MA55:=MA(C,55);
 MA125:=MA(C,125);
 
MA250:=MA(C,250);
 a:=(3*C+L+O+H)/6;
 垂帘:=(20*a+19*REF(a,1)+18*REF(a,2)+17*REF(a,3)+16*REF(a,4)+15*REF(a,5)
 +14*REF(a,6)+13*REF(a,7)+12*REF(a,8)+11*REF(a,9)+10*REF(a,10)
 +9*REF(a,11)+8*REF(a,12)+7*REF(a,13)+6*REF(a,14)+5*REF(a,15)
 +4*REF(a,16)+3*REF(a,17)+2*REF(a,18)+REF(a,20))/210;
 轨:=MA(垂帘,1);
 PARTLINE(轨,轨>REF(轨,1),RGB(125,0,0),轨<REF(轨,1),RGB(0,125,0))
 ,colorgreen,LINETHICK4;
 zar1:=SLOPE(EMA(CLOSE,2),5)*15+C;
 zar2:=EMA(zar1,5);
 zarA:=EMA(EMA(EMA(EMA(EMA(EMA(EMA(EMA(zar2,5),5),5),5),5),5),5),5);
 zarB:=BARSLAST(CROSS(CLOSE,zarA));
 zarC:=BARSLAST(CROSS(zarA,CLOSE));
 STICKLINE(CLOSE<zarA,REF(CLOSE,zarC),REF(CLOSE,zarC),12,0),linethick3,COLOR00FF00;
 良机:IF(CLOSE>zarA AND CLOSE>REF(CLOSE,zarB),REF(CLOSE,zarB),REF(CLOSE,zarB)),COLORFFC8FF,POINTDOT,linethick2;
 STICKLINE(CLOSE>zarA AND CLOSE>REF(CLOSE,zarB),REF(CLOSE,zarB),垂帘,1,0),COLORFFC8FF,linethick2;
 STICKLINE(CLOSE>zarA AND CLOSE>REF(CLOSE,zarB),REF(CLOSE,zarB),REF(CLOSE,zarB),12,0),COLORFFC8FF,LINETHICK3;
 恶化:IF(CLOSE<zarA AND CLOSE<REF(CLOSE,zarC),REF(CLOSE,zarC),REF(CLOSE,zarC)),COLOR00FF00,POINTDOT;
 STICKLINE(CLOSE<zarA AND CLOSE<REF(CLOSE,zarC),REF(CLOSE,zarC),垂帘,1,0),COLOR00FF00,LINETHICK2;
 xClose:=EMA((OPEN+HIGH+LOW+CLOSE)/4,n) ;
xOpen:=EMA((REF(OPEN,1) + REF(xClose,1))/2,n);
Tempg:=MAX(HIGH, xOpen);
xHigh:=EMA(MAX(Tempg, xClose),n);
Temp:=MIN(LOW,XOpen);
xLow:=EMA(MIN(Temp, xClose),n);
x1:=REF(C,1);
 x2:=EMA(MAX(C-x1,0),N)/EMA(ABS(C-x1),N1)*100;
 x3:=((3*EMA((C-LLV(L,27))/(HHV(H,27)-LLV(L,27))*100,5)-
        2*EMA(EMA((C-LLV(L,27))/(HHV(H,27)-LLV(L,27))*100,5),3)-50)+50);
 x4:=(x2+x3)/2;
 x5:=EMA(C+(x4/50-1)*(MA(C,30)/20)*p,5);
 n2c:=2*n3;
 n3c:=2*n2c;
 Var1:=REF(CLOSE,1);
 Var3:=EMA(MAX(CLOSE-Var1,0),n3)/EMA(ABS(CLOSE-Var1),n3)*100;
 Var4:=EMA(MAX(CLOSE-Var1,0),n2c)/EMA(ABS(CLOSE-Var1),n2c)*100;
 Var5:=EMA(MAX(CLOSE-Var1,0),n3c)/EMA(ABS(CLOSE-Var1),n3c)*100;
 Var6:=IF(CROSS(Var3,Var5),LOW,REF(LOW,BARSSINCE(CROSS(Var3,Var5))));
 Var7:=IF(CROSS(Var5,Var3),HIGH,REF(HIGH,BARSSINCE(CROSS(Var5,Var3))));
 Var8:=IF(CLOSE>=MA(CLOSE,20),80,50);
 Var9:=IF(CLOSE>=MA(CLOSE,20),50,20);
 VarA:=IF(Var3<Var8 AND REF(Var3,1)>=Var8,HHV(REF(HIGH,1),BARSLAST(Var3>=Var8 AND REF(Var3,1)<Var8)-1),
    REF(HHV(REF(HIGH,1),BARSLAST(Var3>=Var8 AND REF(Var3,1)<Var8)+1), BARSLAST(Var3<Var8 AND REF(Var3,1))));
 VarB:=IF(HIGH>VarA,LOW,REF(LOW,BARSLAST(HIGH>VarA)));
 VarC:=IF(HIGH>VarA,Var3,REF(Var3,BARSLAST(HIGH>VarA)));
 VarD:=IF(HIGH>VarB AND Var3<VarC AND Var3<Var5,HIGH,REF(HIGH,BARSLAST(HIGH>VarB AND Var3<VarC AND Var3<Var5)));
 VarE:=IF(Var3>Var9 AND REF(Var3,1)<=Var9,LLV(REF(LOW,1),BARSLAST(Var3<=Var9 AND REF(Var3,1)>Var9)+1),
    REF(LLV(REF(LOW,1),BARSLAST(Var3<=Var9 AND REF(Var3,1)>Var9)+1),BARSLAST(Var3>Var9 AND REF(Var3,1))));
 VarF:=IF(LOW<VarE,HIGH,REF(HIGH,BARSLAST(LOW<VarE)));
 Var10:=IF(LOW<VarE,Var3,REF(Var3,BARSLAST(LOW<VarE)));
 Var11:=IF(LOW<VarF AND Var3>Var10 AND Var3>Var5,LOW,REF(LOW,BARSLAST(LOW<VarF AND Var3>Var10 AND Var3>Var5)));
 乾: Var11,colorff00ff,LINETHICK3;
 坤: VarD,COLOR6600ff,linethick3;
 DRAWTEXT(CROSS(x5,乾 ),xlow,'●'),colorblue,linethick3;
 DRAWTEXT(CROSS(坤,x5 ),xhigh,'￥'),COLOR00FF00,linethick3;
 DRAWTEXT(CROSS(x5,乾 ),xlow,'？'),colorwhite,LINETHICK6;
 DRAWTEXT(CROSS(坤,x5 ),xhigh,'★'),colorFFABA3,LINETHICK4;