请求高手修改为通达信公式

Question

{换手率成交量分析解盘}
VARIABLE:K=1;
VAR1:=SUM(VOL,0);
VAR2:=VAR1/CAPITAL;
N:=FLOOR(VAR2);
IF N=REF(N,1)+1 THEN BEGIN
STICKLINE(C,0,80,4,1);
DRAWTEXT(C,80,' 第'),ALIGN0,COLORGREEN;
DRAWTEXT(C,70,' '+NUMTOSTR( N)),ALIGN0,COLORRED;
DRAWTEXT(C,60,' 次'),ALIGN0,COLORGREEN;
DRAWTEXT(C,50,' 完'),ALIGN0,COLORGREEN;
DRAWTEXT(C,40,' 全'),ALIGN0,COLORGREEN;
DRAWTEXT(C,30,' 换'),ALIGN0,COLORGREEN;
DRAWTEXT(C,20,' 手'),ALIGN0,COLORGREEN;
DRAWTEXT(C,10,' '+NUMTOSTR( K)+'天'),ALIGN0,COLORGREEN;
K:=1;
END
ELSE
K:=K+1;
日换手:SUM(VOL,1)*100/CAPITAL,colorf0f000,LINETHICK0 ;
五日换手:SUM(VOL,5)*100/CAPITAL,colorf0f000,LINETHICK0 ;
十日换手:SUM(VOL,10)*100/CAPITAL,colorf0f000,LINETHICK0 ;
二十日换手:SUM(VOL,20)*100/CAPITAL,colorf0f000,LINETHICK0 ;
百日换手:SUM(VOL,100)*100/CAPITAL,colorf0f000,LINETHICK0 ;
AA:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
成交量（手）:VOL,ColorC700FF,LINETHICK0;
主动买盘:IF(CLOSE>OPEN,AA*(HIGH-LOW),IF(CLOSE<OPEN,AA*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),COLORred,
LINETHICK0;
主动卖盘:IF(CLOSE>OPEN,0-AA*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-AA*(HIGH-LOW),0-VOL/2)),color66ff00,
LINETHICK0;
{解盘：N=75 25 100 }
REFLINE: 0, 25, 75, 100;
Var1:=IF(MA(CLOSE,88),1,0);
Var2:=1/WINNER(CLOSE);
Var3:=100-ABS((CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100);
HSL:=vol/capital*100;
量能:=SUM(HSL,N);
涨幅1:=100*(CLOSE-REF(CLOSE,N))/REF(CLOSE,N);
流通市值:=capital*c;
AH:=HHV(流通市值,N);
AL:=LLV(流通市值,N);
t1:=if(HSL<=2,1,0);
t2:=if(HSL>2 AND HSL<3,1,0);
t3:=if(HSL>3 AND HSL<5,1,0);
t4:=if(HSL>5 AND HSL<8,1,0);
t5:=if(HSL>8 AND HSL<15,1,0);
t6:=if(HSL>15 AND HSL<25,1,0);
t7:=if(HSL>=25,1,0);
sss:=100/4;
i:=0;
IF HSL<=2 THEN BEGIN DRAWTEXT(c>0 and DISPSTATUS=2,100-(sss*i),'日换手率在1%--2%，股价属于成交低靡，属于冷门股。日换手率成交小于3%的成交额称为“成交无量”。'),Color00FFFF,ALIGN2; i:=i+1;
END
IF HSL>2 AND HSL<3 THEN BEGIN DRAWTEXT(c>0 and
DISPSTATUS=2,100-(sss*i),'日换手率在2%--3%，股价属于成交温和，属于备份股。'),Color00FFFF,ALIGN2;
i:=i+1;
END
IF HSL>3 AND HSL<5 THEN BEGIN DRAWTEXT(c>0 and DISPSTATUS=2,100-(sss*i),' 日换手率在3%--5%，股价属于成交活跃，表示有庄家在积极活动，属于热门股。把10日平均换手率大于3%或大于5%，而后又缩量至换手率小于3%高度控盘的个股作为选股条件。'),Color00FFFF,ALIGN2; i:=i+1; END
IF HSL>5 AND HSL<8 THEN BEGIN DRAWTEXT(c>0 and DISPSTATUS=2,100-(sss*i),' 日换手率在5%--8%, 大于7%，常常超过10%，属于股价成交带量，表明筹码在急剧换手。发生在低位或是通过第一阻力区，很可能是强庄积极进货。'),Color00FFFF,ALIGN2;
i:=i+1; END

Answer 1

{换手率成交量分析解盘}
K:=1;
VAR1:=SUM(VOL,0);
VAR2:=VAR1/CAPITAL;
N:=FLOOR(VAR2);
{STICKLINE(C,0,80,4,1);}
{DRAWTEXT(C,80,' 第'),COLORGREEN;
DRAWTEXT(C,70,'+NUMTOSTR( N))'),COLORRED;
DRAWTEXT(C,60,' 次'),COLORGREEN;
DRAWTEXT(C,50,' 完'),COLORGREEN;
DRAWTEXT(C,40,' 全'),COLORGREEN;
DRAWTEXT(C,30,' 换'),COLORGREEN;
DRAWTEXT(C,20,' 手'),COLORGREEN;
DRAWTEXT(C,10,'+NUMTOSTR( K)+天'),COLORGREEN;}

日换手:=SUM(VOL,1)*100/CAPITAL,COLORF0F000,LINETHICK0 ;
五日换手:=SUM(VOL,5)*100/CAPITAL,COLORF0F000,LINETHICK0 ;
十日换手:=SUM(VOL,10)*100/CAPITAL,COLORF0F000,LINETHICK0 ;
二十日换手:=SUM(VOL,20)*100/CAPITAL,COLORF0F000,LINETHICK0 ;
AA:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
成交量（手）:=VOL,COLORC700FF,LINETHICK0;
主动买盘:IF(CLOSE>OPEN,AA*(HIGH-LOW),IF(CLOSE<OPEN,AA*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),COLORRED,
LINETHICK1;
主动卖盘:-1*IF(CLOSE>OPEN,0-AA*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-AA*(HIGH-LOW),0-VOL/2)),COLOR66FF00,
LINETHICK1;
{REFLINE: 0, 25, 75, 100;}
VAR11:=IF(MA(CLOSE,88),1,0);
VAR22:=1/WINNER(CLOSE);
VAR33:=100-ABS((CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100);
HSL:=VOL/CAPITAL*100;
量能:=SUM(HSL,N);
涨幅1:=100*(CLOSE-REF(CLOSE,N))/REF(CLOSE,N);
流通市值:=CAPITAL*C;
AH:=HHV(流通市值,N);
AL:=LLV(流通市值,N);
T1:=IF(HSL<=2,1,0);
T2:=IF(HSL>2 AND HSL<3,1,0);
T3:=IF(HSL>3 AND HSL<5,1,0);
T4:=IF(HSL>5 AND HSL<8,1,0);
T5:=IF(HSL>8 AND HSL<15,1,0);
T6:=IF(HSL>15 AND HSL<25,1,0);
T7:=IF(HSL>=25,1,0);
I1:=1;
SSS:=100/4;
冷门:IF(HSL<2,DRAWTEXT(HSL<2,100-(SSS*I1),'冷门股'),DRAWNULL),COLORWHITE,LINETHICK0;
备份:IF(HSL>=2,DRAWTEXT(HSL>=2 AND HSL<3 ,100-(SSS*I1),'备份股'),DRAWNULL),COLORYELLOW,LINETHICK0;
I2:=I1+1;
热门:IF(HSL>3 AND HSL<5,DRAWTEXT(HSL>3 AND HSL<5,100-(SSS*I2),'热门股'),DRAWNULL),COLORRED,LINETHICK0;
阻力带:IF(HSL>5, DRAWTEXT(HSL>5,100-(SSS*I2),'阻力区'),DRAWNULL),COLORGREEN,LINETHICK0;
{大慨意思就是这样了,不知是否将原公式的意思表达清楚}

Answer 2

keyicankao