From c4f926438dcb8abe805e910399940f79ff643c4b Mon Sep 17 00:00:00 2001
From: ziejd2
Date: Thu, 14 Sep 2017 15:39:41 -0500
Subject: Add files via upload

---
 sourcecodes/add_inv_example.php | 251 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 251 insertions(+)
 create mode 100644 sourcecodes/add_inv_example.php

(limited to 'sourcecodes/add_inv_example.php')

diff --git a/sourcecodes/add_inv_example.php b/sourcecodes/add_inv_example.php
new file mode 100644
index 00000000..93c70c8d
--- /dev/null
+++ b/sourcecodes/add_inv_example.php
@@ -0,0 +1,251 @@
+<?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>
-- 
cgit 1.4.1