通达信筹码利器主图指标公式源码

VAR1:=STRCAT(HYBLOCK,' ');
VAR2:=STRCAT(VAR1,DYBLOCK);
VAR3:=STRCAT(VAR2,' ');
VAR4:=COST(99.9)-((COST(99.9)-COST(0.1))/50);
VAR5:=COST(99.9)-2*((COST(99.9)-COST(0.1))/50);
VAR6:=COST(99.9)-3*((COST(99.9)-COST(0.1))/50);
VAR7:=COST(99.9)-4*((COST(99.9)-COST(0.1))/50);
VAR8:=COST(99.9)-5*((COST(99.9)-COST(0.1))/50);
VAR9:=COST(99.9)-6*((COST(99.9)-COST(0.1))/50);
VAR10:=COST(99.9)-7*((COST(99.9)-COST(0.1))/50);
VAR11:=COST(99.9)-8*((COST(99.9)-COST(0.1))/50);
VAR12:=COST(99.9)-9*((COST(99.9)-COST(0.1))/50);
VAR13:=COST(99.9)-10*((COST(99.9)-COST(0.1))/50);
VAR14:=COST(99.9)-11*((COST(99.9)-COST(0.1))/50);
VAR15:=COST(99.9)-12*((COST(99.9)-COST(0.1))/50);
VAR16:=COST(99.9)-13*((COST(99.9)-COST(0.1))/50);
VAR17:=COST(99.9)-14*((COST(99.9)-COST(0.1))/50);
VAR18:=COST(99.9)-15*((COST(99.9)-COST(0.1))/50);
VAR19:=COST(99.9)-16*((COST(99.9)-COST(0.1))/50);
VAR20:=COST(99.9)-17*((COST(99.9)-COST(0.1))/50);
VAR21:=COST(99.9)-18*((COST(99.9)-COST(0.1))/50);
VAR22:=COST(99.9)-19*((COST(99.9)-COST(0.1))/50);
VAR23:=COST(99.9)-20*((COST(99.9)-COST(0.1))/50);
VAR24:=COST(99.9)-21*((COST(99.9)-COST(0.1))/50);
VAR25:=COST(99.9)-22*((COST(99.9)-COST(0.1))/50);
VAR26:=COST(99.9)-23*((COST(99.9)-COST(0.1))/50);
VAR27:=COST(99.9)-24*((COST(99.9)-COST(0.1))/50);
VAR28:=COST(99.9)-25*((COST(99.9)-COST(0.1))/50);
VAR29:=COST(99.9)-26*((COST(99.9)-COST(0.1))/50);
VAR30:=COST(99.9)-27*((COST(99.9)-COST(0.1))/50);
VAR31:=COST(99.9)-28*((COST(99.9)-COST(0.1))/50);
VAR32:=COST(99.9)-29*((COST(99.9)-COST(0.1))/50);
VAR33:=COST(99.9)-30*((COST(99.9)-COST(0.1))/50);
VAR34:=COST(99.9)-31*((COST(99.9)-COST(0.1))/50);
VAR35:=COST(99.9)-32*((COST(99.9)-COST(0.1))/50);
VAR36:=COST(99.9)-33*((COST(99.9)-COST(0.1))/50);
VAR37:=COST(99.9)-34*((COST(99.9)-COST(0.1))/50);
VAR38:=COST(99.9)-35*((COST(99.9)-COST(0.1))/50);
VAR39:=COST(99.9)-36*((COST(99.9)-COST(0.1))/50);
VAR40:=COST(99.9)-37*((COST(99.9)-COST(0.1))/50);
VAR41:=COST(99.9)-38*((COST(99.9)-COST(0.1))/50);
VAR42:=COST(99.9)-39*((COST(99.9)-COST(0.1))/50);
VAR43:=COST(99.9)-40*((COST(99.9)-COST(0.1))/50);
VAR44:=COST(99.9)-41*((COST(99.9)-COST(0.1))/50);
VAR45:=COST(99.9)-42*((COST(99.9)-COST(0.1))/50);
VAR46:=COST(99.9)-43*((COST(99.9)-COST(0.1))/50);
VAR47:=COST(99.9)-44*((COST(99.9)-COST(0.1))/50);
VAR48:=COST(99.9)-45*((COST(99.9)-COST(0.1))/50);
VAR49:=COST(99.9)-46*((COST(99.9)-COST(0.1))/50);
VAR50:=COST(99.9)-47*((COST(99.9)-COST(0.1))/50);
VAR51:=COST(99.9)-48*((COST(99.9)-COST(0.1))/50);
VAR52:=COST(99.9)-49*((COST(99.9)-COST(0.1))/50);
VAR53:=WINNER(COST(99.9))*100-WINNER(VAR4)*100;
VAR54:=WINNER(VAR4)*100-WINNER(VAR5)*100;
VAR55:=WINNER(VAR5)*100-WINNER(VAR6)*100;
VAR56:=WINNER(VAR6)*100-WINNER(VAR7)*100;
VAR57:=WINNER(VAR7)*100-WINNER(VAR8)*100;
VAR58:=WINNER(VAR8)*100-WINNER(VAR9)*100;
VAR59:=WINNER(VAR9)*100-WINNER(VAR10)*100;
VAR60:=WINNER(VAR10)*100-WINNER(VAR11)*100;
VAR61:=WINNER(VAR11)*100-WINNER(VAR12)*100;
VAR62:=WINNER(VAR12)*100-WINNER(VAR13)*100;
VAR63:=WINNER(VAR13)*100-WINNER(VAR14)*100;
VAR64:=WINNER(VAR14)*100-WINNER(VAR15)*100;
VAR65:=WINNER(VAR15)*100-WINNER(VAR16)*100;
VAR66:=WINNER(VAR16)*100-WINNER(VAR17)*100;
VAR67:=WINNER(VAR17)*100-WINNER(VAR18)*100;
VAR68:=WINNER(VAR18)*100-WINNER(VAR19)*100;
VAR69:=WINNER(VAR19)*100-WINNER(VAR20)*100;
VAR70:=WINNER(VAR20)*100-WINNER(VAR21)*100;
VAR71:=WINNER(VAR21)*100-WINNER(VAR22)*100;
VAR72:=WINNER(VAR22)*100-WINNER(VAR23)*100;
VAR73:=WINNER(VAR23)*100-WINNER(VAR24)*100;
VAR74:=WINNER(VAR24)*100-WINNER(VAR25)*100;
VAR75:=WINNER(VAR25)*100-WINNER(VAR26)*100;
VAR76:=WINNER(VAR26)*100-WINNER(VAR27)*100;
VAR77:=WINNER(VAR27)*100-WINNER(VAR28)*100;
VAR78:=WINNER(VAR28)*100-WINNER(VAR29)*100;
VAR79:=WINNER(VAR29)*100-WINNER(VAR30)*100;
VAR80:=WINNER(VAR30)*100-WINNER(VAR31)*100;
VAR81:=WINNER(VAR31)*100-WINNER(VAR32)*100;
VAR82:=WINNER(VAR32)*100-WINNER(VAR33)*100;
VAR83:=WINNER(VAR33)*100-WINNER(VAR34)*100;
VAR84:=WINNER(VAR34)*100-WINNER(VAR35)*100;
VAR85:=WINNER(VAR35)*100-WINNER(VAR36)*100;
VAR86:=WINNER(VAR36)*100-WINNER(VAR37)*100;
VAR87:=WINNER(VAR37)*100-WINNER(VAR38)*100;
VAR88:=WINNER(VAR38)*100-WINNER(VAR39)*100;
VAR89:=WINNER(VAR39)*100-WINNER(VAR40)*100;
VAR90:=WINNER(VAR40)*100-WINNER(VAR41)*100;
VAR91:=WINNER(VAR41)*100-WINNER(VAR42)*100;
VAR92:=WINNER(VAR42)*100-WINNER(VAR43)*100;
VAR93:=WINNER(VAR43)*100-WINNER(VAR44)*100;
VAR94:=WINNER(VAR44)*100-WINNER(VAR45)*100;
VAR95:=WINNER(VAR45)*100-WINNER(VAR46)*100;
VAR96:=WINNER(VAR46)*100-WINNER(VAR47)*100;
VAR97:=WINNER(VAR47)*100-WINNER(VAR48)*100;
VAR98:=WINNER(VAR48)*100-WINNER(VAR49)*100;
VAR99:=WINNER(VAR49)*100-WINNER(VAR50)*100;
VAR108:=WINNER(VAR50)*100-WINNER(VAR51)*100;
VAR109:=WINNER(VAR52)*100-WINNER(COST(0.1))*100;
DRAWTEXT_FIX(1,0.88,5,0,''),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(VAR3,GNBLOCK)),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0,0.05,0,FGBLOCK),COLORRED;
STICKLINE(ISLASTBAR,COST(99.9),COST(99.9),VAR53*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR4,VAR4,VAR53*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR5,VAR5,VAR54*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR6,VAR6,VAR55*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR7,VAR7,VAR56*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR8,VAR8,VAR57*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR9,VAR9,VAR58*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR10,VAR10,VAR59*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR11,VAR11,VAR60*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR12,VAR12,VAR61*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR13,VAR13,VAR62*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR14,VAR14,VAR63*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR15,VAR15,VAR64*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR16,VAR16,VAR65*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR17,VAR17,VAR66*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR18,VAR18,VAR67*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR19,VAR19,VAR68*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR20,VAR20,VAR69*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR21,VAR21,VAR70*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR22,VAR22,VAR71*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR23,VAR23,VAR72*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR24,VAR24,VAR73*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR25,VAR25,VAR74*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR26,VAR26,VAR75*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR27,VAR27,VAR76*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR28,VAR28,VAR77*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR29,VAR29,VAR78*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR30,VAR30,VAR79*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR31,VAR31,VAR80*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR32,VAR32,VAR81*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR33,VAR33,VAR82*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR34,VAR34,VAR83*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR35,VAR35,VAR84*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR36,VAR36,VAR85*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR37,VAR37,VAR86*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR38,VAR38,VAR87*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR39,VAR39,VAR88*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR40,VAR40,VAR89*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR41,VAR41,VAR90*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR42,VAR42,VAR91*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR43,VAR43,VAR92*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR44,VAR44,VAR93*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR45,VAR45,VAR94*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR46,VAR46,VAR95*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR47,VAR47,VAR96*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR48,VAR48,VAR97*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR49,VAR49,VAR98*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR50,VAR50,VAR99*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,VAR51,VAR51,VAR108*50,0),COLORGRAY;
STICKLINE(ISLASTBAR,COST(0.1),COST(0.1),VAR109*50,0),COLOR3C1C5A,LINETHICK3;
DRAWKLINE(H,O,L,C);
筹码20:COST(20)COLORMAGENTA,LINETHICK2;
筹码40:COST(40)COLORRED,LINETHICK2;
筹码70:COST(70)COLORYELLOW,LINETHICK2;