把 活跃资金 指标源码改成大智慧的_股票书籍

指标源码如下：谢谢

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(Var3<Var4 AND Var4<=Var5,-1,IF(Var3>Var5 AND Var5>Var4,2,IF(Var3<Var5 AND Var5<Var4,-2,0))));
Var37:=IF(Var4>Var5 AND Var4>Var6,1,IF(Var4<Var5 AND Var4<Var6,-1,IF(Var5>Var6 AND Var5>Var7,2,IF(Var5<Var6 AND Var5<Var7,-2,IF(Var6>Var7 AND Var6>Var8,3,IF(Var6<Var7 AND Var6<Var8,-3,IF(Var7>Var8 AND Var7>Var9,4,IF(Var7<Var8 AND Var7<Var9,-4,IF(Var8>Var9 AND Var8>VarA,5,IF(Var8<Var9 AND Var8<VarA,-5,IF(Var9>VarA AND Var9>VarB,6,IF(Var9<VarA AND Var9<VarB,-6,IF(VarA>VarB AND VarA>VarC,7,IF(VarA<VarB AND VarA<VarC,-7,IF(VarB>VarC AND VarB>VarD,8,IF(VarB<VarC AND VarB<VarD,-8,IF(VarC>VarD AND VarC>VarE,9,IF(VarC<VarD AND VarC<VarE,-9,IF(VarD>VarE AND VarD>VarF,10,IF(VarD<VarE AND VarD<VarF,-10,IF(VarE>VarF AND VarE>Var10,11,IF(VarE<VarF AND VarE<Var10,-11,IF(VarF>Var10 AND VarF>Var11,12,IF(VarF<Var10 AND VarF<Var11,-12,IF(Var10>Var11 AND Var10>Var12,13,IF(Var10<Var11 AND Var10<Var12,-13,IF(Var11>Var12 AND Var11>Var13,14,IF(Var11<Var12 AND Var11<Var13,-14,IF(Var12>Var13 AND Var12>Var14,15,IF(Var12<Var13 AND Var12<Var14,-15,IF(Var13>Var14 AND Var13>Var15,16,IF(Var13<Var14 AND Var13<Var15,-16,IF(Var14>Var15 AND Var14>Var16,17,IF(Var14<Var15 AND Var14<Var16,-17,IF(Var15>Var16 AND Var15>Var17,18,IF(Var15<Var16 AND Var15<Var17,-18,IF(Var16>Var17 AND Var16>Var18,19,IF(Var16<Var17 AND Var16<Var18,-19,IF(Var17>Var18 AND Var17>Var19,20,IF(Var17<Var18 AND Var17<Var19,-20,IF(Var18>Var19 AND Var18>Var1A,21,IF(Var18<Var19 AND Var18<Var1A,-21,IF(Var19>Var1A AND Var19>Var1B,22,IF(Var19<Var1A AND Var19<Var1B,-22,IF(Var1A>Var1B AND Var1A>Var1C,23,IF(Var1A<Var1B AND Var1A<Var1C,-23,IF(Var1B>Var1C AND Var1B>Var1D,24,IF(Var1B<Var1C AND Var1B<Var1D,-24,IF(Var1C>Var1D AND Var1C>Var1E,25,IF(Var1C<Var1D AND Var1C<Var1E,-25,IF(Var1D>Var1E AND Var1D>Var1F,26,IF(Var1D<Var1E AND Var1D<Var1F,-26,IF(Var1E>Var1F AND Var1E>Var20,27,IF(Var1E<Var1F AND Var1E<Var20,-27,IF(Var1F>Var20 AND Var1F>Var21,28,IF(Var1F<Var20 AND Var1F<Var21,-28,IF(Var20>Var21 AND Var20>Var22,29,IF(Var20<Var21 AND Var20<Var22,-29,IF(Var21>Var22 AND Var21>Var23,30,IF(Var21<Var22 AND Var21<Var23,-30,IF(Var22>Var23 AND Var22>Var24,31,IF(Var22<Var23 AND Var22<Var24,-31,IF(Var23>Var24 AND Var23>Var25,32,IF(Var23<Var24 AND Var23<Var25,-32,IF(Var24>Var25 AND Var24>Var26,33,IF(Var24<Var25 AND Var24<Var26,-33,IF(Var25>Var26 AND Var25>Var27,34,IF(Var25<Var26 AND Var25<Var27,-34,IF(Var26>Var27 AND Var26>Var28,35,IF(Var26<Var27 AND Var26<Var28,-35,IF(Var27>Var28 AND Var27>Var29,36,IF(Var27<Var28 AND Var27<Var29,-36,IF(Var28>Var29 AND Var28>Var2A,37,IF(Var28<Var29 AND Var28<Var2A,-37,IF(Var29>Var2A AND Var29>Var2B,38,IF(Var29<Var2A AND Var29<Var2B,-38,IF(Var2A>Var2B AND Var2A>Var2C,39,IF(Var2A<Var2B AND Var2A<Var2C,-39,IF(Var2B>Var2C AND Var2B>Var2D,40,IF(Var2B<Var2C AND Var2B<Var2D,-40,IF(Var2C>Var2D AND Var2C>Var2E,41,IF(Var2C<Var2D AND Var2C<Var2E,-41,IF(Var2D>Var2E AND Var2D>Var2F,42,IF(Var2D<Var2E AND Var2D<Var2F,-42,IF(Var2E>Var2F AND Var2E>Var30,43,IF(Var2E<Var2F AND Var2E<Var30,-43,IF(Var2F>Var30 AND Var2F>Var31,44,IF(Var2F<Var30 AND Var2F<Var31,-44,IF(Var30>Var31 AND Var30>Var32,45,IF(Var30<Var31 AND Var30<Var32,-45,IF(Var31>Var32 AND Var31>Var33,46,IF(Var31<Var32 AND Var31<Var33,-46,IF(Var32>Var33 AND Var32>Var34,47,IF(Var32<Var33 AND Var32<Var34,-47,IF(Var33>Var34 AND Var33>Var35,48,IF(Var33<Var34 AND Var33<Var35,-48,0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))));
开盘: 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;
 

 

解答如下：

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(Var3<Var4 AND Var4<=Var5,-1,IF(Var3>Var5 AND Var5>Var4,2,IF(Var3<Var5 AND Var5<Var4,-2,0))));

Var37:=IF(Var4>Var5 AND Var4>Var6,1,IF(Var4<Var5 AND Var4<Var6,-1,IF(Var5>Var6 AND Var5>Var7,2,IF(Var5<Var6 AND Var5<Var7,-2,IF(Var6>Var7 AND Var6>Var8,3,IF(Var6<Var7 AND Var6<Var8,-3,IF(Var7>Var8 AND Var7>Var9,4,IF(Var7<Var8 AND Var7<Var9,-4,IF(Var8>Var9 AND Var8>VarA,5,IF(Var8<Var9 AND Var8<VarA,-5,IF(Var9>VarA AND Var9>VarB,6,IF(Var9<VarA AND Var9<VarB,-6,IF(VarA>VarB AND VarA>VarC,7,IF(VarA<VarB AND VarA<VarC,-7,IF(VarB>VarC AND VarB>VarD,8,IF(VarB<VarC AND VarB<VarD,-8,IF(VarC>VarD AND VarC>VarE,9,IF(VarC<VarD AND VarC<VarE,-9,IF(VarD>VarE AND VarD>VarF,10,IF(VarD<VarE AND VarD<VarF,-10,IF(VarE>VarF AND VarE>Var10,11,IF(VarE<VarF AND VarE<Var10,-11,IF(VarF>Var10 AND VarF>Var11,12,IF(VarF<Var10 AND VarF<Var11,-12,IF(Var10>Var11 AND Var10>Var12,13,IF(Var10<Var11 AND Var10<Var12,-13,IF(Var11>Var12 AND Var11>Var13,14,IF(Var11<Var12 AND Var11<Var13,-14,IF(Var12>Var13 AND Var12>Var14,15,IF(Var12<Var13 AND Var12<Var14,-15,IF(Var13>Var14 AND Var13>Var15,16,IF(Var13<Var14 AND Var13<Var15,-16,IF(Var14>Var15 AND Var14>Var16,17,IF(Var14<Var15 AND Var14<Var16,-17,IF(Var15>Var16 AND Var15>Var17,18,IF(Var15<Var16 AND Var15<Var17,-18,IF(Var16>Var17 AND Var16>Var18,19,IF(Var16<Var17 AND Var16<Var18,-19,IF(Var17>Var18 AND Var17>Var19,20,IF(Var17<Var18 AND Var17<Var19,-20,IF(Var18>Var19 AND Var18>Var1A,21,IF(Var18<Var19 AND Var18<Var1A,-21,IF(Var19>Var1A AND Var19>Var1B,22,IF(Var19<Var1A AND Var19<Var1B,-22,IF(Var1A>Var1B AND Var1A>Var1C,23,IF(Var1A<Var1B AND Var1A<Var1C,-23,IF(Var1B>Var1C AND Var1B>Var1D,24,IF(Var1B<Var1C AND Var1B<Var1D,-24,IF(Var1C>Var1D AND Var1C>Var1E,25,IF(Var1C<Var1D AND Var1C<Var1E,-25,IF(Var1D>Var1E AND Var1D>Var1F,26,IF(Var1D<Var1E AND Var1D<Var1F,-26,IF(Var1E>Var1F AND Var1E>Var20,27,IF(Var1E<Var1F AND Var1E<Var20,-27,IF(Var1F>Var20 AND Var1F>Var21,28,IF(Var1F<Var20 AND Var1F<Var21,-28,IF(Var20>Var21 AND Var20>Var22,29,IF(Var20<Var21 AND Var20<Var22,-29,IF(Var21>Var22 AND Var21>Var23,30,IF(Var21<Var22 AND Var21<Var23,-30,IF(Var22>Var23 AND Var22>Var24,31,IF(Var22<Var23 AND Var22<Var24,-31,IF(Var23>Var24 AND Var23>Var25,32,IF(Var23<Var24 AND Var23<Var25,-32,IF(Var24>Var25 AND Var24>Var26,33,IF(Var24<Var25 AND Var24<Var26,-33,IF(Var25>Var26 AND Var25>Var27,34,IF(Var25<Var26 AND Var25<Var27,-34,IF(Var26>Var27 AND Var26>Var28,35,IF(Var26<Var27 AND Var26<Var28,-35,IF(Var27>Var28 AND Var27>Var29,36,IF(Var27<Var28 AND Var27<Var29,-36,IF(Var28>Var29 AND Var28>Var2A,37,IF(Var28<Var29 AND Var28<Var2A,-37,IF(Var29>Var2A AND Var29>Var2B,38,IF(Var29<Var2A AND Var29<Var2B,-38,IF(Var2A>Var2B AND Var2A>Var2C,39,IF(Var2A<Var2B AND Var2A<Var2C,-39,IF(Var2B>Var2C AND Var2B>Var2D,40,IF(Var2B<Var2C AND Var2B<Var2D,-40,IF(Var2C>Var2D AND Var2C>Var2E,41,IF(Var2C<Var2D AND Var2C<Var2E,-41,IF(Var2D>Var2E AND Var2D>Var2F,42,IF(Var2D<Var2E AND Var2D<Var2F,-42,IF(Var2E>Var2F AND Var2E>Var30,43,IF(Var2E<Var2F AND Var2E<Var30,-43,IF(Var2F>Var30 AND Var2F>Var31,44,IF(Var2F<Var30 AND Var2F<Var31,-44,IF(Var30>Var31 AND Var30>Var32,45,IF(Var30<Var31 AND Var30<Var32,-45,IF(Var31>Var32 AND Var31>Var33,46,IF(Var31<Var32 AND Var31<Var33,-46,IF(Var32>Var33 AND Var32>Var34,47,IF(Var32<Var33 AND Var32<Var34,-47,IF(Var33>Var34 AND Var33>Var35,48,IF(Var33<Var34 AND Var33<Var35,-48,0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))));

开盘: 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;