把 活跃资金 指标源码改成大智慧的

编写要求：

解答：

?网友求助：

指标源码如下：谢谢

Var1:=SMA("1A0001$AMOUNT",10,1)/1000000;
Var2:=MA(REF("1A0001$CLOSE",1),5);
收盘: Var1*"1A0001$CLOSE"/Var2/10, POINTDOT;
Var3:=INTPART(收盘*1000)/1000;
Var4:=REF(Var3,1);
Var5:=REF(Var3,2);
Var6:=REF(Var3,3);
Var7:=REF(Var3,4);
Var8:=REF(Var3,5);
Var9:=REF(Var3,6);
VarA:=REF(Var3,7);
VarB:=REF(Var3,8);
VarC:=REF(Var3,9);
VarD:=REF(Var3,10);
VarE:=REF(Var3,11);
VarF:=REF(Var3,12);
Var10:=REF(Var3,13);
Var11:=REF(Var3,14);
Var12:=REF(Var3,15);
Var13:=REF(Var3,16);
Var14:=REF(Var3,17);
Var15:=REF(Var3,18);
Var16:=REF(Var3,19);
Var17:=REF(Var3,20);
Var18:=REF(Var3,21);
Var19:=REF(Var3,22);
Var1A:=REF(Var3,23);
Var1B:=REF(Var3,24);
Var1C:=REF(Var3,25);
Var1D:=REF(Var3,26);
Var1E:=REF(Var3,27);
Var1F:=REF(Var3,28);
Var20:=REF(Var3,29);
Var21:=REF(Var3,30);
Var22:=REF(Var3,31);
Var23:=REF(Var3,32);
Var24:=REF(Var3,33);
Var25:=REF(Var3,34);
Var26:=REF(Var3,35);
Var27:=REF(Var3,36);
Var28:=REF(Var3,37);
Var29:=REF(Var3,38);
Var2A:=REF(Var3,39);
Var2B:=REF(Var3,40);
Var2C:=REF(Var3,41);
Var2D:=REF(Var3,42);
Var2E:=REF(Var3,43);
Var2F:=REF(Var3,44);
Var30:=REF(Var3,45);
Var31:=REF(Var3,46);
Var32:=REF(Var3,47);
Var33:=REF(Var3,48);
Var34:=REF(Var3,49);
Var35:=REF(Var3,50);
Var36:=IF(Var3>Var4 AND Var4>=Var5,1,IF(Var3Var5 AND Var5>Var4,2,IF(Var3 Var37:=IF(Var4>Var5 AND Var4>Var6,1,IF(Var4Var6 AND Var5>Var7,2,IF(Var5Var7 AND Var6>Var8,3,IF(Var6Var8 AND Var7>Var9,4,IF(Var7Var9 AND Var8>VarA,5,IF(Var8VarA AND Var9>VarB,6,IF(Var9VarB AND VarA>VarC,7,IF(VarAVarC AND VarB>VarD,8,IF(VarBVarD AND VarC>VarE,9,IF(VarCVarE AND VarD>VarF,10,IF(VarDVarF AND VarE>Var10,11,IF(VarEVar10 AND VarF>Var11,12,IF(VarFVar11 AND Var10>Var12,13,IF(Var10Var12 AND Var11>Var13,14,IF(Var11Var13 AND Var12>Var14,15,IF(Var12Var14 AND Var13>Var15,16,IF(Var13Var15 AND Var14>Var16,17,IF(Var14Var16 AND Var15>Var17,18,IF(Var15Var17 AND Var16>Var18,19,IF(Var16Var18 AND Var17>Var19,20,IF(Var17Var19 AND Var18>Var1A,21,IF(Var18Var1A AND Var19>Var1B,22,IF(Var19Var1B AND Var1A>Var1C,23,IF(Var1AVar1C AND Var1B>Var1D,24,IF(Var1BVar1D AND Var1C>Var1E,25,IF(Var1CVar1E AND Var1D>Var1F,26,IF(Var1DVar1F AND Var1E>Var20,27,IF(Var1EVar20 AND Var1F>Var21,28,IF(Var1FVar21 AND Var20>Var22,29,IF(Var20Var22 AND Var21>Var23,30,IF(Var21Var23 AND Var22>Var24,31,IF(Var22Var24 AND Var23>Var25,32,IF(Var23Var25 AND Var24>Var26,33,IF(Var24Var26 AND Var25>Var27,34,IF(Var25Var27 AND Var26>Var28,35,IF(Var26Var28 AND Var27>Var29,36,IF(Var27Var29 AND Var28>Var2A,37,IF(Var28Var2A AND Var29>Var2B,38,IF(Var29Var2B AND Var2A>Var2C,39,IF(Var2AVar2C AND Var2B>Var2D,40,IF(Var2BVar2D AND Var2C>Var2E,41,IF(Var2CVar2E AND Var2D>Var2F,42,IF(Var2DVar2F AND Var2E>Var30,43,IF(Var2EVar30 AND Var2F>Var31,44,IF(Var2FVar31 AND Var30>Var32,45,IF(Var30Var32 AND Var31>Var33,46,IF(Var31Var33 AND Var32>Var34,47,IF(Var32Var34 AND Var33>Var35,48,IF(Var33 开盘: Var1*"1A0001$OPEN"/Var2/10, , COLORWHITE;
最高: Var1*"1A0001$HIGH"/Var2/10, , COLORRED;
最低: Var1*"1A0001$LOW"/Var2/10, , COLORBLUE;
Var38:=REF(收盘,1);
Var39:=(收盘-REF(收盘,1))/REF(收盘,1)*100;
大盘趋势: EMA(收盘,12), , COLORCYAN;
Var4, , ;
Var5, , COLORYELLOW;
STICKLINE(Var36=1 OR Var37>=1 AND Var36=0,Var4,Var3,5,1), , COLORRED;
STICKLINE(Var36=-1 OR Var37<=-1 AND Var36=0,Var4,Var3,5,0), , COLORGREEN;
STICKLINE(Var36=2,Var5,Var3,5,1), , COLORRED;
STICKLINE(Var36=-2,Var5,Var3,5,0), , COLORGREEN;
STICKLINE((Var36=-1 OR Var36=-2) AND Var37>0,Var5,Var4,5,1), , COLORRED;
STICKLINE((Var36=1 OR Var36=2) AND Var37<0,Var5,Var4,5,0), , COLORGREEN;
?