把活筹指数改成通达信

九毛八公式指标

Var1:=SMA(AMOUNT,15,1)/5670000; Var2:=MA(REF(CLOSE,1),5); 收盘:=Var1*CLOSE/Var2; Var3:=收盘; 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(Var3Var5 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=1 AND Var36=0,Var4,Var3,7,1),colorred; STICKLINE(Var36=-1 OR Var37<=-1 AND Var36=0,Var4,Var3,7,0),colorgreen; STICKLINE(Var36=2,Var5,Var3,7,1), ,colorred; STICKLINE(Var36=-2,Var5,Var3,7,0), colorgreen; STICKLINE((Var36=-1 OR Var36=-2) AND Var37>0,Var5,Var4,7,1), ,colorred; STICKLINE((Var36=1 OR Var36=2) AND Var37<0,Var5,Var4,7,0), colorgreen;

公式模块：

VAR11:=SMA(AMOUNT,15,1)/5670000;

VAR22:=MA(REF(CLOSE,1),5); VAR2:=VAR11*CLOSE/VAR22; B0:=REF(VAR2-O,2); B1:=REF(VAR2,1); B2:=REF(VAR2,2); B3:=REF(VAR2,3); B4:=REF(VAR2,4); VAR2MAX:=MAX(MAX(MAX(VAR2,B1),B2),B3); VAR2MIN:=MIN(MIN(MIN(VAR2,B1),B2),B3); RS1:=(VAR2=VAR2MAX AND (B1>=B2 OR B1>=B3)) OR (B1=VAR2MAX AND (B2=VAR2MIN OR B3=VAR2MIN) AND VAR2>=B2) OR (B2=VAR2MAX AND B3=VAR2MIN AND VAR2>=B1) OR (B3=VAR2MAX AND VAR2>=B1 AND VAR2>=B2); RS2:=VAR2=VAR2MAX AND B1=VAR2MIN; RS3:=(B1=VAR2MAX AND VAR2<B2) OR (B2=VAR2MAX AND B1>B3) OR (B3=VAR2MAX AND B1>B2 AND B2>=B4 AND VAR2<B1); STICKLINE(RS1,B1,VAR2,2,1),COLORRED; STICKLINE(RS2,B2,VAR2,2,1),COLORRED; STICKLINE(RS3,B1,B2,2,1),COLORRED; GS1:=(VAR2=VAR2MIN AND (B1<B2 OR B1<B3)) OR (B1=VAR2MIN AND (B2=VAR2MAX OR B3=VAR2MAX) AND VAR2<B2) OR (B2=VAR2MIN AND B3=VAR2MAX AND VAR2<B1) OR (B3=VAR2MIN AND VAR2<B1 AND VAR2<B2); GS2:=B1=VAR2MAX AND VAR2=VAR2MIN; GS3:=(B1=VAR2MIN AND VAR2>=B2) OR (B2=VAR2MIN AND B1<=B3) OR (B3=VAR2MIN AND B1<=B2 AND B2<B4 AND VAR2>=B1); STICKLINE(GS1,B1,VAR2,2,0),COLORGREEN; STICKLINE(GS2,B2,VAR2,2,0),COLORGREEN; STICKLINE(GS3,B1,B2,2,0),COLORGREEN; MA(VAR2,12),COLORBLUE;