用在PHP中的股票分析写的一个类

<?php
/*******************************************************

  做股票就是跟庄.跟庄就赚钱.哈哈.
  writer:xiaojianhe,time:2006-6-20
  e-mail:do-found@163.com
  功能:用于分析股票数据的记录值

********************************************************/

class get_stock_data

{
 //PHP里的这些意思不大,先写上吧,用不用再说

 var $b_price;
 var $b_total;
 var $p_price;
 var $p_total;
 var $z_price;
 var $z_total;

 var $b_a_price;
 var $p_a_price;
 var $z_a_price;

 var $hd;
 var $filename;
 
 function get_stock_data()
 {
  global $filename;
  $this -> hd = file("$filename");
 }
 function open_all_data()
 {
  
  foreach($this -> hd as $values)
  {

   $fc = explode("\t",$values);
   $l_a = ereg_replace("[[:space:]]","",$fc[0]);
   $l_b = ereg_replace("[[:space:]]","",$fc[1]);
   $l_c = ereg_replace("[[:space:]]","",$fc[2]);
   $l_d = ereg_replace("[[:space:]]","",$fc[3]);
   
   if($l_d == "买盘")
   {
    
    $b_total .= $i."----)))".$l_a."___".$l_b."___".$l_c."___".$l_d."___总价格:".$l_b*$l_c."人民币<br>";  ////买盘所有值

    $b_time .= $l_a.",";       ////买盘各条时间
    $b_price_only_total[] = $l_c;     ////买盘的价格
    $b_price_only_nums[] = $l_b;     ////买盘的数量
    $b_price_nums += $l_b;       ////买盘总数量
    $b_price_all_total += $l_c*$l_b;    ////买盘总值
    
    $i++;

   }elseif($l_d == "卖盘"){
    
    $p_total .= $l_a."___".$l_b."___".$l_c."___".$l_d."___总价格:".$l_b*$l_c."人民币<br>";  ////卖盘所有值

    $p_time .= $l_a.",";       ////卖盘各条时间
    $p_price_only_total[] = $l_c;     ////卖盘的价格
    $p_price_only_nums[] = $l_b;     ////卖盘的数量
    $p_price_nums += $l_b;
    $p_price_all_total += $l_c*$l_b;    ////卖盘总值

   }else{

    //"中性盘";
    $t++;
    $z_total .= $l_a."___".$l_b."___".$l_c."___".$l_d."<br>";

    $z_time .= $l_a.",";        ////中性盘各条时间
    $z_price_only_total .= $l_c.",";     ////中性盘所有的价格
    $z_price_nums .= $l_b.",";       ////中性盘各条数量
    $z_price_all_total += $l_c*$l_b;     ////中性盘总值

   }

   $all_pp[] = $l_c;

  }
  
  
  $all_mydata = array
     (
      'b_price' => $b_price_only_total,
      'p_price' => $p_price_only_total,
      'a_price' => $all_pp,
      'b_a' => $b_price_all_total,
      'p_a' => $p_price_all_total,
      'b_num' => $b_price_nums,
      'p_num' => $p_price_nums,
     );
  return $all_mydata;
 }

 //测试用了
 function get_arr_value($s)
 {
  $i = 0;
  foreach ($s as $key => $values)
  {
   echo $i++."___".$key ."=>".$values."<br>";
   
  }
  //return substr($val,0,-1);
 }

 //这部份暂时没用
 function re_max($s,$model=1)
 {
  $s = explode(",",$s);
  for ( $i = 0 ; $i < count($s) ; $i ++ )
  {
   if ( $i == 0 )
   {
      $max = $s[$i];
      $min = $s[++$i];
      $i--;

   }else{

      $min = $s[$i];
   }

   if($model)
   {
    if ( $max <= $min )     $max = $s[$i];

   }else{

    if ( $max > $min )     $max = $s[$i];
   }
  }
  return $max;
 }

 //取唯一

 function get_lines($a)
 {
  return array_unique($a);
 }

 function get_once_detail($cu,$param,$model=1)
 {
  foreach($this -> hd as $values)
  {
   $fc = explode("\t",$values);
   $l_a = ereg_replace("[[:space:]]","",$fc[0]);
   $l_b = ereg_replace("[[:space:]]","",$fc[1]);
   $l_c = ereg_replace("[[:space:]]","",$fc[2]);
   $l_d = ereg_replace("[[:space:]]","",$fc[3]);
   
   if($l_d == "$param")
   {
    //echo $l_d;
    if($l_c == $cu)
    {
     $cu_nums += $l_b;
     $cu_values += $l_b*$l_c;
    }
    $all_nums += $l_b;
    $all_values += $l_b*$l_c;
   }
  }

  switch($model)
  {
   case 0: return $cu_nums; break;
   case 1: return $cu_values; break;
   case 2: return "买入总股数:".$all_nums."   买入总值".$all_values; break;
  }
 }
}
?>