=1)
{
$SatirdakiMonomerSayisi=$SatirdakiMonomerSayisi+1;
}
}
//echo"$i. satirdaki monomer:$SatirdakiMonomerSayisi";
//echo" satirdaki solvent:$SatirdakiSolventSayisi
";
$SatirdakiToplamMolekul=$SatirdakiMonomerSayisi+$SatirdakiSolventSayisi;
$MolKesriSolvent=$SatirdakiSolventSayisi/$SatirdakiToplamMolekul;
$MolKesriPolimer=$SatirdakiMonomerSayisi/$SatirdakiToplamMolekul;
if($MolKesriSolvent==0) { $MolKesriSolvent=1;}
if($MolKesriPolimer==0) { $MolKesriPolimer=1;}
//echo"mol kesri solvent:$MolKesriSolvent --- mol kesri monomer:$MolKesriPolimer
";
$EntropiS=-8.314*($SatirdakiSolventSayisi*log($MolKesriSolvent));
$EntropiM=-8.314*($SatirdakiMonomerSayisi*log($MolKesriPolimer));
//echo " *********** $i Solvent -8.314*($SatirdakiSolventSayisi*log($MolKesriSolvent)) *******************";
//echo " *********** $i Monomer -8.314*($SatirdakiMonomerSayisi*log($MolKesriPolimer) *******************";
$EntropiT=$EntropiS+$EntropiM;
//echo"$i.entropi:$EntropiT ";
$SatirdakiMonomerSayisi=0;
$SatirdakiSolventSayisi=0;
$ToplamEntropiS=$ToplamEntropiS+$EntropiS;
$ToplamEntropiM=$ToplamEntropiM+$EntropiM;
$ToplamEntropiT=$ToplamEntropiT+$EntropiT;
$MolarEntropi=$ToplamEntropiT/($SatirSayisi*$SutunSayisi);
//Ayse
$SolventMolekulSayisi=$SatirSayisi*$SutunSayisi-$SonMonomerID;
// fwrite($dosyaveri,"$k;$SolventMolekulSayisi;$SonMonomerID;$ToplamEntropiS;$ToplamEntropiM;$ToplamEntropiT;");
// fwrite($dosyaveri,"\n");
//Ayse Son
//AYSE
//$sure=date("is");
//if ($sure%1000==0) {
$filetablo="data/".$SutunSayisi."x".$SatirSayisi."_".$k."_".$MonomerSayisi."_tabloveri.csv";
$dosyatablo=fopen($filetablo,w);
for ($row = 0; $row < $SatirSayisi; $row++)
{
for ($col = 0; $col < $SutunSayisi; $col++)
{
$HucreIcerik=$Matris[$row][$col];
fwrite($dosyatablo,"$HucreIcerik;");
}
fwrite($dosyatablo,"\n");
}
fclose($dosyatablo);
// }
// fwrite($dosyaveri,"$k;$SolventMolekulSayisi;$SonMonomerID;$ToplamEntropiS;$ToplamEntropiM;$ToplamEntropiT;");
// fwrite($dosyaveri,"\n");
//AYSE SON
}
fwrite($dosyaveri,"$k;$SolventMolekulSayisi;$SonMonomerID;$ToplamEntropiS;$ToplamEntropiM;$ToplamEntropiT;");
fwrite($dosyaveri,"\n");
?>