±¾Ìû×îºóÓÉ ×ÊÉî¼¼Êõ05 ÓÚ 2024-4-1 09:07 ±à¼
µÚÒ»¸öÎÊÌ⣺
[PEL] ¸´ÖÆ´úÂë input:x(1,0.01,100,0.01);//µ¥Î»ÊÇ%
if islastbar then
begin
ËùÊôÐÐÒµ:=hyblock;
explain(1,ËùÊôÐÐÒµ);//ºǫ́ÀïÔËÐÐʱºò£¬Çë×¢Ê͵ôÕâÐдúÂë
ÐÐҵƷÖÖÊýÁ¿:stkcount(ËùÊôÐÐÒµ);//ËùÊôÐÐÒµ¶ÔÓ¦µÄ°å¿éÆ·ÖÖÊýÁ¿
up_count:=0;//Âú×ãÖ¸¶¨ÕÇ·ùÆ·ÖÖÊýÁ¿
for i=1 to ÐÐҵƷÖÖÊýÁ¿ do
begin
code:=stkfromblk(ËùÊôÐÐÒµ,i);//Æ·ÖÖ´úÂë
d1:=callstock(code,vtclose,6,-1);//×òÊÕÅ̼Û
c0:=callstock(code,vtclose,-1,0);//×îмÛ
//ÀûÓÃÈÕÆÚ¹ýÂ˵±Ç°ÈÕÆÚÏÂûÓÐÐÐÇéµÄÆ·ÖÖ£¬Ðè×îÐÂ7.0°æ²ÅÄÜʹÓÃÕâ¸öº¯Êý
//Èç¹ûÊÇÆäËû°æ±¾Ôò²»ÄÜÖ±½Óµ÷Óõ½Ö¸¶¨Æ·ÖÖµÄ×îÐÂÈÕÆÚ£¬¾ÍÖ»ÄÜ¿çÖ¸±êµ÷ÓÃÁË
date_:=callstock(code,vtdate,6,0);
if valid(d1)=0 or valid(c0)=0 or date>date_ then continue;
zdf:=100*(c0-d1)/d1;
if zdf>=x then up_count:=up_count+1;
end
end
ÉÏÕÇ×ÜÊý:up_count;
µ«ÊÇÎÒÐèÒªÌáÐÑÄ㣬Èç¹ûÄãµÄÆ·Öֺܶ࣬ÄÇôÔÚÿ¸öÆ·ÖÖÉ϶¼½øÐÐÕâÑùµÄÑ»·²Ù×÷£¬ÊǺܿÉÄÜ»áÖ±½Ó¿¨ËÀµôµÄ¡£²¢ÇÒÕâ¸öÎÊÌâ¿ÉÄÜÊÇûÓкõĽâ¾ö·½°¸µÄ.
|