通达信筹码峰转移选股指标公式源码

通达信筹码峰转移选股指标公式源码

源码正文：

HB:=COst(99.999);LB:=COST(0.001);B3:=(HB-LB)/50{XG51};
B31:=HB-B3;B32:=HB-2*B3;B33:=HB-3*B3;B34:=HB-4*B3;B35:=HB-5*B3;B36:=HB-6*B3;B37:=HB-7*B3;B38:=HB-8*B3;B39:=HB-9*B3{XG51};
B310:=HB-10*B3;B311:=HB-11*B3;B312:=HB-12*B3;B313:=HB-13*B3;B314:=HB-14*B3;B315:=HB-15*B3;B316:=HB-16*B3;B317:=HB-17*B3;B318:=HB-18*B3;B319:=HB-19*B3{XG51};
B320:=HB-20*B3;B321:=HB-21*B3;B322:=HB-22*B3;B323:=HB-23*B3;B324:=HB-24*B3;B325:=HB-25*B3;B326:=HB-26*B3;B327:=HB-27*B3;B328:=HB-28*B3;B329:=HB-29*B3{XG51};
B330:=HB-30*B3;B331:=HB-31*B3;B332:=HB-32*B3;B333:=HB-33*B3;B334:=HB-34*B3;B335:=HB-35*B3;B336:=HB-36*B3;B337:=HB-37*B3;B338:=HB-38*B3;B339:=HB-39*B3{XG51};
B340:=HB-40*B3;B341:=HB-41*B3;B342:=HB-42*B3;B343:=HB-43*B3;B344:=HB-44*B3;B345:=HB-45*B3;B346:=HB-46*B3;B347:=HB-47*B3;B348:=HB-48*B3;B349:=HB-49*B3{XG51};
A1:INTPART(WINNER(HB)*100-WINNER(B31)*100);A2:INTPART(WINNER(B31)*100-WINNER(B32)*100);A3:INTPART(WINNER(B32)*100-WINNER(B33)*100);A4:INTPART(WINNER(B33)*100-WINNER(B34)*100){XG51};
A5:INTPART(WINNER(B34)*100-WINNER(B35)*100);A6:INTPART(WINNER(B35)*100-WINNER(B36)*100);A7:INTPART(WINNER(B36)*100-WINNER(B37)*100);A8:INTPART(WINNER(B37)*100-WINNER(B38)*100){XG51};
A9:INTPART(WINNER(B38)*100-WINNER(B39)*100);A10:INTPART(WINNER(B39)*100-WINNER(B310)*100);A11:INTPART(WINNER(B310)*100-WINNER(B311)*100);A12:INTPART(WINNER(B311)*100-WINNER(B312)*100){XG51};
A13:INTPART(WINNER(B312)*100-WINNER(B313)*100);A14:INTPART(WINNER(B313)*100-WINNER(B314)*100);A15:INTPART(WINNER(B314)*100-WINNER(B315)*100);A16:INTPART(WINNER(B315)*100-WINNER(B316)*100){XG51};
A17:INTPART(WINNER(B316)*100-WINNER(B317)*100);A18:INTPART(WINNER(B317)*100-WINNER(B318)*100);A19:INTPART(WINNER(B318)*100-WINNER(B319)*100);A20:INTPART(WINNER(B319)*100-WINNER(B320)*100){XG51};
A21:INTPART(WINNER(B320)*100-WINNER(B321)*100);A22:INTPART(WINNER(B321)*100-WINNER(B322)*100);A23:INTPART(WINNER(B322)*100-WINNER(B323)*100);A24:INTPART(WINNER(B323)*100-WINNER(B324)*100){XG51};
A25:INTPART(WINNER(B324)*100-WINNER(B325)*100);A26:INTPART(WINNER(B325)*100-WINNER(B326)*100);A27:INTPART(WINNER(B326)*100-WINNER(B327)*100);A28:INTPART(WINNER(B327)*100-WINNER(B328)*100){XG51};
A29:INTPART(WINNER(B328)*100-WINNER(B329)*100);A30:INTPART(WINNER(B329)*100-WINNER(B330)*100);A31:INTPART(WINNER(B330)*100-WINNER(B331)*100);A32:INTPART(WINNER(B331)*100-WINNER(B332)*100){XG51};
A33:INTPART(WINNER(B332)*100-WINNER(B333)*100);A34:INTPART(WINNER(B333)*100-WINNER(B334)*100);A35:INTPART(WINNER(B334)*100-WINNER(B335)*100);A36:INTPART(WINNER(B335)*100-WINNER(B336)*100){XG51};
A37:INTPART(WINNER(B336)*100-WINNER(B337)*100);A38:INTPART(WINNER(B337)*100-WINNER(B338)*100);A39:INTPART(WINNER(B338)*100-WINNER(B339)*100);A40:INTPART(WINNER(B339)*100-WINNER(B340)*100){XG51};
A41:INTPART(WINNER(B340)*100-WINNER(B341)*100);A42:INTPART(WINNER(B341)*100-WINNER(B342)*100);A43:INTPART(WINNER(B342)*100-WINNER(B343)*100);A44:INTPART(WINNER(B343)*100-WINNER(B344)*100){XG51};
A45:INTPART(WINNER(B344)*100-WINNER(B345)*100);A46:INTPART(WINNER(B345)*100-WINNER(B346)*100);A47:INTPART(WINNER(B346)*100-WINNER(B347)*100);A48:INTPART(WINNER(B347)*100-WINNER(B348)*100){XG51};
A49:INTPART(WINNER(B348)*100-WINNER(B349)*100);A50:INTPART(WINNER(B349)*100-WINNER(LB)*100){X!G~5.1!C!N!{};