站长论坛

标题: 用在PHP中的股票分析写的一个类 [打印本页]

作者: tznktg 时间: 2007-10-4 16:15
标题: 用在PHP中的股票分析写的一个类
<?php
/*******************************************************

  做股票就是跟庄.跟庄就赚钱.哈哈.

  功能:用于分析股票数据的记录值

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

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;
  }
}
}
?>

欢迎光临站长论坛 (http://www.tzlink.com/bbs/)