|
{資金流向統(tǒng)計(jì)主圖}
{滬主1:="999999$AMOUNT"/100000000,NODRAW;}
滬主:=STRCAT(STRCAT('滬主:' ,CON2STR("999999$AMOUNT"/100000000,2)),' 億 ');
{深主1:="399001$AMOUNT"/100000000,NODRAW;}
深主:=STRCAT(STRCAT('深主:' ,CON2STR("399001$AMOUNT"/100000000,2)),' 億 ');
{中小1:="399005$AMOUNT"/100000000,NODRAW;}
中小:=STRCAT(STRCAT('中小:' ,CON2STR("399005$AMOUNT"/100000000,2)),' 億 ');
{創(chuàng)業(yè)1:="399006$AMOUNT"/100000000,NODRAW;}
創(chuàng)業(yè):=STRCAT(STRCAT('創(chuàng)業(yè):' ,CON2STR("399006$AMOUNT"/100000000,2)),' 億 ');
{總額1:滬主1+深主1+中小1+創(chuàng)業(yè)1;}
額:=("999999$AMOUNT"+"399001$AMOUNT"+"399005$AMOUNT"+"399006$AMOUNT")/100000000;
{Y:=("999999$AMOUNT"/100000000+"399001$AMOUNT"/100000000+"399005$AMOUNT"/100000000+"399006$AMOUNT"/100000000);}
總額:=STRCAT(STRCAT('總額:' ,CON2STR(額,2)),' 億 ');
昨滬主:=STRCAT(STRCAT('昨滬主:' ,CON2STR(REF("999999$AMOUNT"/100000000,1),2)),' 億 ');
{昨深主:=REF(深主,1);}
昨深主:=STRCAT(STRCAT('昨深主:' ,CON2STR(REF("399001$AMOUNT"/100000000,1),2)),' 億 ');
{昨中小:=REF(中小,1);}
昨中小:=STRCAT(STRCAT(' 昨中小:' ,CON2STR(REF("399005$AMOUNT"/100000000,1),2)),' 億 ');
{昨創(chuàng)業(yè):=REF(創(chuàng)業(yè),1);}
昨創(chuàng)業(yè):=STRCAT(STRCAT(' 昨創(chuàng)業(yè):' ,CON2STR(REF("399006$AMOUNT"/100000000,1),2)),' 億 ');
{昨總額:=REF(總額,1);}
昨總額:=STRCAT(STRCAT('昨總額:' ,CON2STR(REF(("999999$AMOUNT"+"399001$AMOUNT"+"399005$AMOUNT"+"399006$AMOUNT")/100000000,1),2)),' 億 ');
{滬主【差】:=滬主-昨滬主;}
滬主【差】:=STRCAT(STRCAT('滬主【差】:' ,CON2STR(("999999$AMOUNT"/100000000-REF("999999$AMOUNT"/100000000,1)),2)),' 億 ');
{深主【差】:=深主-昨深主;}
深主【差】:=STRCAT(STRCAT('深主【差】:' ,CON2STR(("399001$AMOUNT"/100000000-REF("399001$AMOUNT"/100000000,1)),2)),' 億 ');
{中小【差】:=中小-昨中小;}
中小【差】:=STRCAT(STRCAT('中小【差】:' ,CON2STR(("399005$AMOUNT"/100000000-REF("399005$AMOUNT"/100000000,1)),2)),' 億 ');
{創(chuàng)業(yè)【差】:=創(chuàng)業(yè)-昨創(chuàng)業(yè);}
創(chuàng)業(yè)【差】:=STRCAT(STRCAT('創(chuàng)業(yè)【差】:' ,CON2STR(("399006$AMOUNT"/100000000-REF("399006$AMOUNT"/100000000,1)),2)),' 億 ');
{總額【差】:=總額-昨總額;}
總額【差】:=STRCAT(STRCAT('總額【差】:' ,CON2STR((("999999$AMOUNT"+"399001$AMOUNT"+"399005$AMOUNT"+"399006$AMOUNT")/100000000-
REF(("999999$AMOUNT"+"399001$AMOUNT"+"399005$AMOUNT"+"399006$AMOUNT")/100000000,1)),2)),' 億 ');
{總額【差】:=STRCAT(STRCAT('總額【差】:' ,CON2STR((總額-REF(總額,1)),2)),' 億 ');}
A:=STRCAT(昨滬主 , STRCAT( 滬主, 滬主【差】 ));
B:=STRCAT(昨深主 , STRCAT( 深主, 深主【差】 ));
D:=STRCAT(昨中小 , STRCAT( 中小, 中小【差】 ));
E:=STRCAT(昨創(chuàng)業(yè) , STRCAT( 創(chuàng)業(yè), 創(chuàng)業(yè)【差】 ));
F:=STRCAT(昨總額 , STRCAT( 總額, 總額【差】 ));
DRAWTEXT_FIX(ISLASTBAR,0.03,0.09,0,A),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.03,0.15,0,B),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.03,0.21,0,D),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.03,0.27,0,E),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.03,0.33,0,F),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0,0,0,' 收盤(pán)前查看'),COLORYELLOW;
{收盤(pán)前查看}
|
