diff options
Diffstat (limited to 'sourcecodes/add_inv_example.php~')
| -rw-r--r-- | sourcecodes/add_inv_example.php~ | 251 |
1 files changed, 0 insertions, 251 deletions
diff --git a/sourcecodes/add_inv_example.php~ b/sourcecodes/add_inv_example.php~ deleted file mode 100644 index 93c70c8d..00000000 --- a/sourcecodes/add_inv_example.php~ +++ /dev/null @@ -1,251 +0,0 @@ -<?php -include("restructuremap.php"); -$keyval=$_GET["My_key"]; - -function discretemap($textdata,$sym,$dmapdata) -{ -$textdata=trim($textdata); -$leve_l=array(); -$leve_l=explode("\n",$dmapdata); -$leve_d=array(); - -foreach($leve_l as $l) -{ - $l=trim($l); - $leve_d=explode("\t",$l); - $inxname=trim($leve_d[0]); - $name=trim($sym); - if($inxname==$name) - { $i=0; - foreach($leve_d as $d) - { - $d=trim($d); - if($d==$textdata) - return $i; - $i++; - } - } -} - -} - - -function mapid($name,$keyval) -{ - -$dir="./data/"; - -$nm=$dir."$keyval"."mapdata.txt"; -$namelist=file_get_contents("$nm"); - -$str_arrname=array(); -$str_arrname=explode("\n",$namelist); -$dataname=array(); -$dataname=explode("\t",$str_arrname[0]); -$i=1; - - foreach($dataname as $cell) - { - $cell=trim($cell); - if($cell==$name) - { - $val=$i; - break; - } - $i++; - } - -return $val; - -} - - -$dir="./data/"; - -$lfile=$dir.$keyval."nlevels.txt"; -$dmapdata=file_get_contents($lfile); - - -$sym=trim($_GET['name']); - -$textdata=$_GET['evidence']; -$ft=$dir.$keyval."var.txt"; -$fpvar = file_get_contents("$ft"); -$ft=$dir.$keyval."vardata.txt"; -$fpdata = file_get_contents("$ft"); -$ft=$dir.$keyval."varname.txt"; -$fpvarname = file_get_contents("$ft"); - -$vriable=mapid($sym,$keyval); -$ft=$dir.$keyval."type.txt"; -$type = file_get_contents("$ft"); - -$type_r=array(); -$type_r=explode("\n",$type); -$type_n=array(); -$type_n=explode("\t",$type_r[0]); -$type_d=array(); -$type_d=explode("\t",$type_r[1]); - -$nn=count($type_n); - -for($j=0;$j<$nn;$j++) -{ - $dn=$type_n[$j]; - $sym=trim($sym); - $dn=trim($dn); - if($dn==$sym) - $s=$j; -} - -$dt=$type_d[$s]; - -if($dt==1) - $textdata=reversemap($sym,$textdata,$keyval); -else - $textdata=discretemap($textdata,$sym,$dmapdata); - - $ft=$dir.$keyval."var.txt"; - $f1=fopen("$ft","w"); - $ft=$dir.$keyval."vardata.txt"; - $f2=fopen("$ft","w"); - $ft=$dir.$keyval."varname.txt"; - $f3=fopen("$ft","w"); - - -$pos = strpos($fpvarname, $sym); - -if($fpvarname=="") -{ - fwrite($f1,$vriable); - fwrite($f2,$textdata); - fwrite($f3,$sym); - -} -else -{ - if ($pos === false)// append at buttom as new records - { - - $fpvar=$fpvar."\t".$vriable; - fwrite($f1,$fpvar); - - $fpdata=$fpdata."\t".$textdata; - fwrite($f2,$fpdata); - - $fpvarname=$fpvarname."\t".$sym; - fwrite($f3,$fpvarname); - - } - else - { - $cld=explode("\t",$fpvarname); - $j=0; - $inx=0; - foreach($cld as $cc) - { - $cc=trim($cc); - if($cc==$sym) - { - $inx=$j; - } - $j++; - - } - - - fwrite($f1,$fpvar); - fwrite($f3,$fpvarname); - - $cld1=explode("\t",$fpdata); - $j=0; - $dataw=""; - foreach($cld1 as $cc) - { - $cc=trim($cc); - if($j==$inx) - { - $inx=$j; - fprintf($f2,"%s\t",$textdata); - } - else - { - fprintf($f2,"%s\t",$cc); - } - - $j++; - - } - - } - -} - -include("mat_structure.php"); -structure_change($keyval); - - - - - - $file1="./data/".$keyval."run_newintervention.sh"; - $initiallines=file_get_contents("./data/temp_intervention_file"); - $all_lines="$initiallines"."$keyval\nfi\nexit"; - - $fp = fopen($file1,"w"); - fwrite($fp, "$all_lines\n"); - fclose($fp); - //execute shell script for matlab - // $cmd="./runmat_inv.sh $keyval"; -// system($cmd); -shell_exec('./runmat_inv.sh '.$keyval); - - - - -$matfile=$dir.$keyval."structure_input_new.txt"; - -$fout=fopen($dir.$keyval."graphviz_new.txt","w"); -$matrix1=file_get_contents("$matfile"); -$str_arrmat=array(); -$str_arrmat=explode("\n",$matrix1); -$datamat=array(); -$data_cell=array(); - -$dataname=array(); -$dataname=explode("\t",$str_arrmat[0]); -$n=count($dataname); - -$initialstring="digraph G {\n"."size=\"10,10\"; ratio = fill;\n"."node [shape=square,width=1.5];\n"; -$endstring="}"; -fwrite($fout,"$initialstring"); - -for($i=1;$i<=$n;$i++) -{ - $ii=$i-1; - $row_name=trim($dataname[$ii]); - - - $col_arr=explode("\t",$str_arrmat[$i]); - - - for($j=0;$j<$n;$j++) - { - $col_val=trim($col_arr[$j]); - if($col_val==1) - { - $col_name=trim($dataname[$j]); - fprintf($fout,"%s -> %s;\n",$row_name,$col_name); - - - } - } - - -} -fwrite($fout,"$endstring"); - -?> -<script> -window.open("network_layout_inv_2_example.php?My_key=<?php print($keyval);?>",'_self',false); -</script> |