乾坤主图公式（大智慧公式）
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;
