获利盘换手率,筹码结合黄金分割主图（通达信公式 主图 源码 测试图）

{获利盘换手率}
最高点:REFDATE(CONST(REF(HHV(H,0),0)),DATE),LINETHICK3;
最低点:REFDATE(CONST(REF(LLV(L,0),0)),DATE),LINETHICK3;
时长:=DATE;
换手次数:=DATE;
选择方式:=1;
统计时长:IF(选择方式=1,CONST(SUMBARS(V/FINANCE(7)*100,换手次数)),时长),NODRAW,COLORWHITE;
KK:=统计时长;
M:=KK;N:=KK;
A:=DYNAINFO(7),NODRAW;
B:=REF(OPEN,(M-1)),NODRAW;
区间换手:100*SUM(VOL,N)/(FINANCE(7)/100),NODRAW;
区间涨幅:100*(A-B)/B,NODRAW,COLORYELLOW;
区间振幅:100*(HHV(HIGH,N)-LLV(LOW,N))/LLV(LOW,N),COLORRED,NODRAW;
区间均价:EMA(CLOSE,N),NODRAW,COLORGREEN;
当日均价:AMOUNT/V/100,NODRAW,COLORMAGENTA;
区间量能:SUM(VOL,N)/10000,NODRAW,COLORYELLOW;
筹码顶:REFDATE(CONST(COST(99.999)),DATE),LINETHICK1,COLORMAGENTA;
筹码底:REFDATE(CONST(COST(0.001)),DATE),LINETHICK1,COLORCYAN;


换手顶:CONST(HHV(H,KK)),DOTLINE;
换手底:CONST(LLV(L,KK)),DOTLINE;


高低价差:=换手底+(换手顶-换手底)*0/9,DOTLINE;
区间1:换手底+(换手顶-换手底)*1/9,DOTLINE;
区间2:换手底+(换手顶-换手底)*2/9,DOTLINE;
区间3:换手底+(换手顶-换手底)*3/9,DOTLINE;
区间4:换手底+(换手顶-换手底)*4/9,DOTLINE;
区间5:换手底+(换手顶-换手底)*5/9,DOTLINE;
区间6:换手底+(换手顶-换手底)*6/9,DOTLINE;
区间7:换手底+(换手顶-换手底)*7/9,DOTLINE;
区间8:换手底+(换手顶-换手底)*8/9,DOTLINE;
区间9:换手底+(换手顶-换手底)*9/9,DOTLINE;


MLZ:=SUM((CURRBARSCOUNT<KK+1)*V,KK),NODRAW;
M区间1:=SUM((CURRBARSCOUNT<KK+1 AND RANGE(当日均价,高低价差-0.001,区间1+0.001))*V,KK)/MLZ;
STICKLINE(CURRBARSCOUNT<CONST(INTPART(M区间1*200)),高低价差,区间1*0.99,5,0),COLORFF5555;
M区间2:=SUM((CURRBARSCOUNT<KK+1 AND RANGE(当日均价,区间1,区间2+0.001))*V,KK)/MLZ;
STICKLINE(CURRBARSCOUNT<CONST(INTPART(M区间2*200)),区间1,区间2*0.99,5,0),COLORFFAA55;
M区间3:=SUM((CURRBARSCOUNT<KK+1 AND RANGE(当日均价,区间2,区间3+0.001))*V,KK)/MLZ;
STICKLINE(CURRBARSCOUNT<CONST(INTPART(M区间3*200)),区间2,区间3*0.99,5,0),COLORAAFF55;
M区间4:=SUM((CURRBARSCOUNT<KK+1 AND RANGE(当日均价,区间3,区间4+0.001))*V,KK)/MLZ;
STICKLINE(CURRBARSCOUNT<CONST(INTPART(M区间4*200)),区间3,区间4*0.99,5,0),COLOR5FFF00;
M区间5:=SUM((CURRBARSCOUNT<KK+1 AND RANGE(当日均价,区间4,区间5+0.001))*V,KK)/MLZ;
STICKLINE(CURRBARSCOUNT<CONST(INTPART(M区间5*200)),区间4,区间5*0.99,5,0),COLORYELLOW;
M区间6:=SUM((CURRBARSCOUNT<KK+1 AND RANGE(当日均价,区间5,区间6+0.001))*V,KK)/MLZ;
STICKLINE(CURRBARSCOUNT<CONST(INTPART(M区间6*200)),区间5,区间6*0.99,5,0),COLORFF0FFF;
M区间7:=SUM((CURRBARSCOUNT<KK+1 AND RANGE(当日均价,区间6,区间7+0.001))*V,KK)/MLZ;
STICKLINE(CURRBARSCOUNT<CONST(INTPART(M区间7*200)),区间6,区间7*0.99,5,0),COLOR509FDD;
M区间8:=SUM((CURRBARSCOUNT<KK+1 AND RANGE(当日均价,区间7,区间8+0.001))*V,KK)/MLZ;
STICKLINE(CURRBARSCOUNT<CONST(INTPART(M区间8*200)),区间7,区间8*0.99,5,0),COLORAA5DDD;
M区间9:=SUM((CURRBARSCOUNT<KK+1 AND RANGE(当日均价,区间8,区间9+0.001))*V,KK)/MLZ;
STICKLINE(CURRBARSCOUNT<CONST(INTPART(M区间9*200)),区间8,区间9*0.99,5,0),COLOR0055DD;




{成本分布}
HB:=COST(99.999);
LB:=COST(0.001);
B3:=(HB-LB)/50;
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;
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;
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;
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;
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;
A1:=WINNER(HB)*100-WINNER(B31)*100;
A2:=WINNER(B31)*100-WINNER(B32)*100;
A3:=WINNER(B32)*100-WINNER(B33)*100;
A4:=WINNER(B33)*100-WINNER(B34)*100;
A5:=WINNER(B34)*100-WINNER(B35)*100;
A6:=WINNER(B35)*100-WINNER(B36)*100;
A7:=WINNER(B36)*100-WINNER(B37)*100;

A8:=WINNER(B37)*100-WINNER(B38)*100;