把这个机构建仓改成通达信能用的

把这个机构建仓改成通达信能用的

编写要求：

解答：

网友求助：

input:N1(34),N2(9),N3(3);
X1:=100*(HHV(HIGH,N1)-CLOSE)/(HHV(HIGH,N1)-LLV(LOW,N1));
Var1:=100*(HHV(HIGH,N2)-CLOSE)/(HHV(HIGH,N2)-LLV(LOW,N2));
Var2:=100*(HHV(HIGH,N3)-CLOSE)/(HHV(HIGH,N3)-LLV(LOW,N3));
Var3:=Var1-X1;
Var4:=X1-Var1;
{STICKLINE(X1>=0,0,Var2,8,1)colorred;}
STICKLINE(Var3<0,0,Var4,8,0),COLOR009fff;
游资暗中建仓:Var3<0,COLOR009fff;
{STICKLINE(X1>=0,0,Var1,8,1)colorblue;}
STICKLINE(Var4<0,0,Var3,8,1)coloryellow;
机构暗中对倒: Var4<0,coloryellow;

VAR5:=DYNAINFO(5);
VAR6:=IF((HIGH < VAR5),0,IF((LOW > VAR5),1,(((VAR5 - HIGH) + 0.009) / ((LOW - HIGH) + 0.009))));
A:=C*1.1;
B:=C*0.9;
B1:=100*(WINNER(A)-WINNER(B));
CMSD:=100-B1;
C1:=MA(C,13)<REF(MA(C,13),1);
D1:=IF(C>1000,CROSS(VAR6,22),CROSS(VAR6,24));
STICKLINE(CMSD>65 AND C1,CMSD-88,0,6,0),COLORMAGENTA;
机构建仓:CMSD>65 AND C1,COLORMAGENTA;
ZC_1:=IF(LOW<DYNAINFO(7),0,IF(HIGH>DYNAINFO(7),DYNAINFO(7)-(DYNAINFO(7)-HIGH+0.02)/(HIGH-LOW+0.02),0));
ZC_2:=DMA(ZC_1,VOL/CAPITAL)*100;
出货:=IF(ZC_2>0 AND ZC_2>REF(ZC_2,1),ZC_2/20,0);
STICKLINE(出货>0,出货-88,0,6,0),COLORGREEN;
机构出货:出货>0,COLORGREEN;