From 25b843f6bbacb1937bdb960777b73acbece64115 Mon Sep 17 00:00:00 2001 From: ziejd2 Date: Wed, 24 Feb 2021 14:36:59 -0600 Subject: GENENET8 update --- sourcecodes/network_layout_evd_2_example.php | 956 --------------------------- 1 file changed, 956 deletions(-) delete mode 100644 sourcecodes/network_layout_evd_2_example.php (limited to 'sourcecodes/network_layout_evd_2_example.php') diff --git a/sourcecodes/network_layout_evd_2_example.php b/sourcecodes/network_layout_evd_2_example.php deleted file mode 100644 index 876d674f..00000000 --- a/sourcecodes/network_layout_evd_2_example.php +++ /dev/null @@ -1,956 +0,0 @@ - $line) -{ - $data_cell_ev=explode("\t",$line); - foreach ($data_cell_ev as $ld) - { - $ldd=trim($ld); - if($ldd !="") - { - $ev_arr[$cev]=$ldd; - $cev++; - //echo "Line #{$line_num} : " . htmlspecialchars($ldd) . "
\n"; - } - } - -} - -$lf=$dir."$keyval"."vardata.txt"; -$linesd = file("$lf"); - -$cevdata=0; -// Loop through our array, show HTML source as HTML source; and line numbers too. -foreach ($linesd as $line_num => $line) -{ - - $data_cell_ev=explode("\t",$line); - foreach ($data_cell_ev as $ld) - { - $ldd=trim($ld); - if($ldd !="") - { - $evdata_arr[$cevdata]=$ldd; - $cevdata++; - //echo "Line #{$line_num} : " . htmlspecialchars($ldd) . "
\n"; - - - } - } - -} - - - -////////////////////////////////////Read data from net_figure file///////////////////////Graphp Display///////////////////////////////////////////// - - -$matfile=$dir.$keyval."net_figure_new.txt"; - -$data_val=""; - -$matrix=file("$matfile"); -$matrix1=file_get_contents("$matfile"); //file("$matfile"); - - -$str_arrmat=array(); -$str_arrmat=explode("\n",$matrix1); - -$node=trim($str_arrmat[1]); - -if($str_arrmat[2]=="" || $matrix1=="") -{ -?> -

Error: Unable to display your network structure.

-5 && $node<=7) -{ - $width=150; - $height=120; - $font=10; - -} -else if($node>7 && $node<=10) -{ - $width=110; - $height=85; - $font=8; -} -else -{ - $width=80; - $height=60; - $font=7; -} -*/ - $width=150; - $height=150; - $font=12; - - -$datamat=array(); -$data_read=array(); - -$r_index=$node+3; - -for($i=0;$i<$node;$i++) -{ - $datamat=explode("\t",$str_arrmat[$r_index]); - $data_read[$i][0]=trim($datamat[0]); //name - $data_read[$i][1]=trim($datamat[1]); //datatype - $nodetype=$data_read[$i][1]; - $col_in=2; - $r_index+=4; - $evd=-9999; - $name=$data_read[$i][0]; - for($ii=0;$ii<$cev;$ii++) - { - if($ev_arr[$ii]==$name) - { - $evd=$evdata_arr[$ii]; - if($nodetype>1) - $evd=levelmap($evd,$data_read[$i][0],$levelmap); - - break; - } - } - - if($evd!=-9999)//with evidence - { - $datamat=explode("\t",$str_arrmat[$r_index]); - $data_read[$i][$col_in]=trim($datamat[0]); //x data - $col_in++; - $data_read[$i][$col_in]=trim($datamat[1]); //y data - $col_in++; - $r_index++; // increment to point next data - - - } - else //without evidence - { - if($nodetype==1) //type=coninuous - { - for($j=1;$j<=101;$j++) - { - $datamat=explode("\t",$str_arrmat[$r_index]); - $data_read[$i][$col_in]=trim($datamat[0]); //x data - $col_in++; - $data_read[$i][$col_in]=trim($datamat[1]); //y data - $col_in++; - $r_index++; // increment to point next data - - } - } - if($nodetype>1) //type=descrete - { - $iter=$datamat[1]; - for($j=1;$j<=$iter;$j++) - { - $datamat=explode("\t",$str_arrmat[$r_index]); - $data_read[$i][$col_in]=trim($datamat[0]); //x data - $data_read[$i][$col_in]=levelmap($data_read[$i][$col_in],$data_read[$i][0],$levelmap); - $col_in++; - $data_read[$i][$col_in]=trim($datamat[1]); //y data - $col_in++; - $r_index++; // increment to point next data - //echo "
"; - } - } - - } - -} - - -$matfile_old=$dir.$keyval."net_figure.txt"; - -$data_val=""; - -$matrix_old=file("$matfile_old"); -$matrix1_old=file_get_contents("$matfile_old"); //file("$matfile"); -$str_arrmat_old=array(); -$str_arrmat_old=explode("\n",$matrix1_old); -$datamat_old=array(); -$data_read_old=array(); -$node_old=trim($str_arrmat_old[0]); -$r_index_old=$node_old+2; - -for($i=0;$i<$node_old;$i++) -{ - $datamat_old=explode("\t",$str_arrmat_old[$r_index_old]); - $data_read_old[$i][0]=trim($datamat_old[0]); //name - $data_read_old[$i][1]=trim($datamat_old[1]); //datatype - $col_in_old=2; - $r_index_old+=4; - if($datamat_old[1]==1) //type=coninuous - { - for($j=1;$j<=101;$j++) - { - $datamat_old=explode("\t",$str_arrmat_old[$r_index_old]); - $data_read_old[$i][$col_in_old]=trim($datamat_old[0]); //x data - - $col_in_old++; - $data_read_old[$i][$col_in_old]=trim($datamat_old[1]); //y data - - $col_in_old++; - $r_index_old++; // increment to point next data - - } - } - if($datamat_old[1]>1) //type=descrete - { - $iter=$datamat_old[1]; - for($j=1;$j<=$iter;$j++) - { - $datamat_old=explode("\t",$str_arrmat_old[$r_index_old]); - $data_read_old[$i][$col_in_old]=trim($datamat_old[0]); //x data - //$data_read_old[$i][$col_in_old]='y'; - $data_read_old[$i][$col_in_old]=levelmap($data_read_old[$i][$col_in_old],$data_read_old[$i][0],$levelmap); - - $col_in_old++; - $data_read_old[$i][$col_in_old]=trim($datamat_old[1]); //y data - $col_in_old++; - $r_index_old++; // increment to point next data - - } - } -} - - -////////////////////////////////////////////////Graphviz data read//////////////////////////////////////////////////////////////////////////////// -$grv=$dir.$keyval."graphviz.txt"; -$line=shell_exec('/usr/bin/dot -Tplain -y '.$grv); - - -//$grfilename=$keyval."graphviz.txt"; -//$cmd="/usr/bin/dot -Tplain -y $grfilename"; -//$line=system($cmd); - - - -//shell_exec('/usr/bin/dot -Tpng -o /var/www/html/compbio/BNW/graphviz.png /var/www/html/compbio/BNW/graphviz.txt'); -$str_arrname=array(); -$str_arrname=explode("\n",$line); -$data=array(); -$ID_data=array(); -$i=0; -$ii=0; -foreach($str_arrname as $row) -{ - $i++; - if($i>1) - { - - $data=explode(" ",$row); - $j=0; - $k=0; - $flag=0; - foreach($data as $cell) - { - - $j++; - - $cell=trim($cell); - //echo $cell; - //echo ' '; - if($j==1 && $cell=="node") - { - $flag=1; - } - - if($j>1 && $j<5 && $flag==1) - { - //echo $cell; - //echo ' '; - if($j==2) - $ID_data[$ii][$k]=$cell; - else - $ID_data[$ii][$k]=round($cell/10*900); - // echo $ID_data[$ii][$k]; - //echo ' '; - - $k++; - } - } - - if($flag==1) - { - $ID_data[$ii][3]=$ID_data[$ii][1]+100; - $ID_data[$ii][4]=$ID_data[$ii][2]+150; - $ID_data[$ii][5]=$ID_data[$ii][1]+100; - $ID_data[$ii][6]=$ID_data[$ii][2]; - $ii++; - //echo "
"; - } - // echo "
"; - - } -} - -$nnode=$ii; -$edge_data=array(); - -$i=0; -$ii=0; - -foreach($str_arrname as $row) -{ - $i++; - if($i>1) - { - - $data=explode(" ",$row); - $j=0; - - $flag=0; - $number_of_point=0; - $index=0; - foreach($data as $cell) - { - $j++; - $cell=trim($cell); - - if($j==1 && $cell=="edge") - { - $flag=1; - } - - if($j==2 && $flag==1) - { - - for($k=0;$k<$nnode;$k++) - { - if($cell==$ID_data[$k][0]) - { - $edge_data[$ii][0]=$ID_data[$k][3]; - $edge_data[$ii][1]=$ID_data[$k][4]; - } - - } - - } - else if($j==3 && $flag==1) - { - for($k=0;$k<$nnode;$k++) - { - if($cell==$ID_data[$k][0]) - { - $edge_data[$ii][2]=$ID_data[$k][5]; - $edge_data[$ii][3]=$ID_data[$k][6]; - } - - } - - } - else if($j==4 && $flag==1) - { - $edge_data[$ii][4]=$cell; - $number_of_point=$cell*2; - $index=5; - } - else if($j>4 && $number_of_point>0 && $flag==1) - { - if(($j%2)!=0) - $edge_data[$ii][$index]=round($cell/10*900)+60;//+30+30; - else - $edge_data[$ii][$index]=round($cell/10*900)+48;//+18+30; - - $number_of_point--; - $index++; - } - - - - } - if($flag==1) - { - $ii++; - //echo "
"; - } - - } -} - - -$nedges=$ii; -//echo $nedges; - -?> - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - -- cgit 1.4.1