//======================================================
// java Termodinamik paketi
// Class liquid_CS sıvıların termofiziksel özellikleri
// Dr. Turhan Coban
// Ege Üniversitesi Mühendislik fakultesi
// Makina Bölümü
// 
//===========================================================
// Dosya adı   : liquid_CS.java
// Bu dosya soğutucu akışkanların  
// doyma notalarındaki termodinamik özelliklerini verir
// ==========================================================
   
import java.io.*;
import java.net.*;
import java.util.*;
import javax.swing.*;

public class liquid_CS
{
String s[];
public liquid_CS_Data rd;
public String liquidName;
public String openName;

public liquid_CS()
{String s2[]={"su","motoryağı"};
 s=s2; 
 readref("su");}

public liquid_CS(String rName)
{
String s2[]={"su","motoryağı"};
s=s2;
readref(rName);
}

public String[] liste()
{ return s;}

public String readGasNames()
{ String s1="";
 for(int i=0;i<s.length;i++) {s1+=s[i]+" ";}
return s1;
}

public boolean readref(String rName)
{  boolean b2=false;
  if(readref1(rName))      {b2=true;}
  //else if(readref2(rName)) {b2=true;}
  //else if(readref3(rName)) {b2=true;}
  //else if(readref4(rName)) {b2=true;}
  //else if(readref5(rName)) {b2=true;}
liquidName=rd.liquidName;
openName=rd.openName;
return b2;
}


public boolean readref1(String rName)
{
boolean b1=false;
if(rName.equals("motoryağı"))
{
double a[][]={{ 273.0,280.0,290.0,300.0,310.0,320.0,330.0,340.0,350.0,360.0,370.0,380.0,390.0,400.0,410.0,420.0,430.0},
{899.1,895.3,890.0,884.1,877.9,871.8,865.8,859.9,853.9,847.8,841.8,836.0,830.6,825.1,818.9,812.1,806.5 },
{1.796,1.827,1.868,1.909,1.951,1.993,2.035,2.076,2.118,2.161,2.206,2.25,2.294,2.337,2.381,2.427,2.471 },
{385.0e-6,217.0e-6,99.9e-6,48.6e-6,25.3e-6,14.1e-6,8.36e-6,5.31e-6,3.56e-6,2.52e-6,1.86e-6,1.41e-6,1.10e-6,0.874e-6,0.698e-6,0.564e-6,0.470E-6 },
{147e-3,144e-3,145e-3,145e-3,145E-3,143e-3,141e-3,139e-3,138e-3,138e-3,137e-3,136e-3,135e-3,134e-3,133e-3,133e-3,132e-3 }};
rd=new liquid_CS_Data("motoryağı","motor yağı",a,100.0,0.0,0.0);
b1=true;
}
else if(rName.equals("su"))
{
double a[][]={{ 273.0  ,278.0  ,283.0  ,288.0  ,293.0  ,298.0  ,303.0  ,308.0  ,313.0  ,318.0  ,323.0  ,328.0  ,333.0  ,338.0  ,343.0  ,348.0  ,353.0  ,358.0  ,363.0  ,368.0  ,372.97  ,373.0  ,378.0  ,383.0  ,388.0  ,393.0  ,398.0  ,403.0  ,408.0  ,413.0  ,418.0  ,423.0  ,428.0  ,433.0  ,438.0  ,443.0  ,448.0  ,453.0  ,458.0  ,463.0  ,468.0  ,473.0  ,478.0  ,483.0  ,488.0  ,493.0  ,498.0  ,503.0  ,508.0  ,513.0  ,518.0  ,523.0  ,528.0  ,533.0  ,538.0  ,543.0  ,548.0  ,553.0  ,558.0  ,563.0  ,568.0  ,573.0  ,583.0  ,593.0  ,603.0  ,613.0  ,623.0  ,633.0  ,643.0  ,646.95},
{ 999.8  ,999.9  ,999.7  ,999.1  ,998.2  ,997.0  ,995.6  ,994.0  ,992.2  ,990.2  ,988.0  ,985.7  ,983.2  ,980.5  ,977.7  ,974.8  ,971.8  ,968.6  ,965.3  ,961.9  ,958.4  ,958.3  ,954.7  ,950.9  ,947.1  ,943.1  ,939.0  ,934.8  ,930.5  ,926.1  ,921.6  ,917.0  ,912.3  ,907.4  ,902.5  ,897.5  ,892.3  ,887.0  ,881.6  ,876.1  ,870.4  ,864.7  ,858.8  ,852.7  ,846.5  ,840.2  ,833.7  ,827.1  ,820.3  ,813.4  ,806.2  ,798.9  ,791.4  ,783.6  ,775.7  ,767.5  ,759.0  ,750.3  ,741.3  ,731.9  ,722.2  ,712.1  ,690.7  ,667.1  ,640.8  ,610.7  ,574.7  ,527.6  ,451.4  ,322.0},
{ 4.22  ,4.205  ,4.196  ,4.189  ,4.184  ,4.182  ,4.18  ,4.18  ,4.18  ,4.18  ,4.182  ,4.183  ,4.185  ,4.187  ,4.19  ,4.193  ,4.197  ,4.201  ,4.205  ,4.21  ,4.216  ,4.216  ,4.222  ,4.228  ,4.236  ,4.244  ,4.252  ,4.261  ,4.272  ,4.283  ,4.294  ,4.307  ,4.321  ,4.335  ,4.351  ,4.368  ,4.386  ,4.405  ,4.425  ,4.447  ,4.471  ,4.496  ,4.523  ,4.551  ,4.582  ,4.615  ,4.65  ,4.688  ,4.728  ,4.772  ,4.819  ,4.87  ,4.925  ,4.986  ,5.051  ,5.123  ,5.202  ,5.289  ,5.385  ,5.493  ,5.614  ,5.75  ,6.085  ,6.537  ,7.186  ,8.21  ,10.12  ,15.0  ,45.16  ,100.0},
{ 0.0017912  ,0.0015183  ,0.001306  ,0.0011376  ,0.0010016  ,8.901E-4  ,7.974E-4  ,7.193E-4  ,6.53E-4  ,5.961E-4  ,5.468E-4  ,5.04E-4  ,4.664E-4  ,4.332E-4  ,4.039E-4  ,3.777E-4  ,3.543E-4  ,3.333E-4  ,3.144E-4  ,2.973E-4  ,2.818E-4  ,2.817E-4  ,2.676E-4  ,2.547E-4  ,2.429E-4  ,2.321E-4  ,2.221E-4  ,2.129E-4  ,2.044E-4  ,1.965E-4  ,1.892E-4  ,1.825E-4  ,1.761E-4  ,1.702E-4  ,1.647E-4  ,1.596E-4  ,1.547E-4  ,1.501E-4  ,1.458E-4  ,1.418E-4  ,1.379E-4  ,1.343E-4  ,1.309E-4  ,1.276E-4  ,1.245E-4  ,1.215E-4  ,1.187E-4  ,1.16E-4  ,1.134E-4  ,1.109E-4  ,1.084E-4  ,1.061E-4  ,1.039E-4  ,1.017E-4  ,9.96E-5  ,9.75E-5  ,9.55E-5  ,9.35E-5  ,9.16E-5  ,8.97E-5  ,8.78E-5  ,8.59E-5  ,8.22E-5  ,7.84E-5  ,7.45E-5  ,7.04E-5  ,6.59E-5  ,6.03E-5  ,5.21E-5  ,0.0},
{ 5.61e-1,5.705e-1,5.8e-1,5.893e-1,5.984e-1,6.072e-1,6.155e-1,6.233e-1,6.306e-1,6.373e-1,6.436e-1,6.492e-1,6.543e-1,6.59e-1,6.631e-1,6.668e-1,6.7e-1,6.728e-1,6.753e-1,6.773e-1,6.791e-1,6.791e-1,6.805e-1,6.817e-1,6.826e-1,6.832e-1,6.836e-1,6.837e-1,6.836e-1,6.833e-1,6.828e-1,6.82e-1,6.811e-1,6.8e-1,6.786e-1,6.77e-1,6.753e-1,6.733e-1,6.711e-1,6.688e-1,6.661e-1,6.633e-1,6.603e-1,6.57e-1,6.534e-1,6.497e-1,6.456e-1,6.413e-1,6.367e-1,6.318e-1,6.267e-1,6.212e-1,6.154e-1,6.092e-1,6.028e-1,5.959e-1,5.887e-1,5.811e-1,5.732e-1,5.65e-1,5.563e-1,5.474e-1,5.287e-1,5.092e-1,4.891e-1,4.685e-1,4.474e-1,4.257e-1,4.25e-1,1.0}};
rd=new liquid_CS_Data("su","H2O",a,18.0,0.0,0.0);
b1=true;
}
else if(rName.equals("glycerin"))
{
double a[][]={{ 273.0  ,280.0  ,290.0  ,300.0  ,310.0  ,320.0},
{ 1276.0  ,1271.9  ,1265.8  ,1259.9  ,1253.9  ,1247.2},
{ 2.261  ,2.298  ,2.367  ,2.427  ,2.49  ,2.564},
{ 10.6  ,5.34  ,1.85  ,7.99E-1  ,3.52E-1  ,2.1E-1},
{ 0.282  ,0.284  ,0.286  ,0.286  ,0.286  ,0.287}};
rd=new liquid_CS_Data("glycerin","C3H5(OH)3",a,92.0,0.0,0.0);
b1=true;
}
else if(rName.equals("xceltherm_MK1"))
{
double a[][]={{ 273.0  ,288.6  ,299.7  ,310.8  ,321.9  ,333.0  ,344.1  ,355.2  ,366.3  ,377.4  ,388.6  ,399.7  ,410.8  ,421.9  ,433.0  ,444.1  ,455.2  ,466.3  ,477.4  ,488.6  ,499.7},
{ 1070.1  ,1068.5  ,1058.9  ,1049.3  ,1041.3  ,1031.7  ,1022.1  ,1014.1  ,1004.5  ,994.8  ,985.2  ,977.2  ,967.6  ,958.0  ,948.4  ,938.8  ,929.2  ,919.5  ,909.9  ,898.7  ,889.1},
{ 1.523  ,1.532  ,1.565  ,1.599  ,1.632  ,1.662  ,1.695  ,1.724  ,1.758  ,1.787  ,1.821  ,1.85  ,1.879  ,1.913  ,1.942  ,1.971  ,2.001  ,2.03  ,2.059  ,2.088  ,2.122},
{ 5.708E-3  ,4.961E-3  ,3.47E-3  ,2.629E-3  ,2.12E-3  ,1.727E-3  ,1.449E-3  ,1.245E-3  ,1.082E-3  ,9.36E-4  ,8.22E-4  ,7.3E-4  ,6.54E-4  ,5.91E-4  ,5.37E-4  ,4.9E-4  ,4.49E-4  ,4.14E-4  ,3.83E-4  ,3.54E-4  ,3.3E-4},
{ 0.1371  ,0.1367  ,0.1357  ,0.1347  ,0.1336  ,0.1324  ,0.1312  ,0.1298  ,0.1286  ,0.1272  ,0.1258  ,0.1244  ,0.1229  ,0.1213  ,0.1198  ,0.1182  ,0.1167  ,0.1149  ,0.1132  ,0.1115  ,0.1096}};
rd=new liquid_CS_Data("xceltherm_MK1","limonen ısı_transferi_yağı",a,10.0,0.0,0.0);
b1=true;
//System.out.println(rd.liquidName);
}
else if(rName.equals("yag"))
{
double a[][]={{ 200.15  ,223.15  ,248.15  ,273.15  ,298.15  ,323.15  ,348.15  ,373.15  ,398.15  ,423.15},
{ 914.3  ,897.1  ,878.3  ,859.2  ,839.8  ,820.1  ,800.0  ,779.5  ,758.4  ,736.6},
{ 1.27  ,1.39  ,1.51  ,1.65  ,1.78  ,1.91  ,2.04  ,2.17  ,2.3  ,2.41},
{ 0.0038  ,0.0030  ,0.0023  ,0.0018  ,0.0014  ,0.0011  ,8.0E-4  ,7.0E-4  ,5.0E-4  ,4.0E-4},
{ 0.137  ,0.133  ,0.128  ,0.124  ,0.119  ,0.114  ,0.11  ,0.105  ,0.1  ,0.096},
};
rd=new liquid_CS_Data("yag","ısı_transferi_yağı",a,10.0,0.0,0.0);
b1=true;
}
else if(rName.equals("Polydimethylsiloxane"))
{
double a[][]={{ 200.15  ,223.15  ,248.15  ,273.15  ,298.15  ,323.15  ,348.15  ,373.15  ,398.15  ,423.15},
{ 914.3  ,897.1  ,878.3  ,859.2  ,839.8  ,820.1  ,800.0  ,779.5  ,758.4  ,736.6},
{ 1.27  ,1.39  ,1.51  ,1.65  ,1.78  ,1.91  ,2.04  ,2.17  ,2.3  ,2.41},
{ 0.0038  ,0.0030  ,0.0023  ,0.0018  ,0.0014  ,0.0011  ,8.0E-4  ,7.0E-4  ,5.0E-4  ,4.0E-4},
{ 0.137  ,0.133  ,0.128  ,0.124  ,0.119  ,0.114  ,0.11  ,0.105  ,0.1  ,0.096},
};
rd=new liquid_CS_Data("Polydimethylsiloxane","ısı_transferi_yağı",a,10.0,0.0,0.0);
b1=true;
}

//{
//}
//    rd=new ref_CS_Data("R123","2,2 dichloro-1,1,1-trifluoroethane  CHCl2CF3",152.93,27.823,-107.15,183.68,3661.8,550.0,a);
//b1=true;
return b1;
}

public String[][] toString(double t, double x)
{
  String s1[][]=new String[9][3];
   s1[0][0]="T,  sıcaklık                 ";
   s1[1][0]="x,  karışım yüzdesi          ";
   s1[2][0]='\u03C1'+", yoğunluk          ";
   s1[3][0]="Cp, özgül ısı                ";
   s1[4][0]="h, entalpi                   ";
   s1[5][0]="s, entropi                   ";
   s1[6][0]="k,  ısıl iletkenlik katsayısı";
   s1[7][0]="Pr, Prandtl sayısı           ";
   s1[8][0]='\u03BC'+", vizkozite         ";

   s1[0][2]=" derece C          ";
   s1[1][2]="          ";
   s1[2][2]=" kg/m^3            ";
   s1[3][2]=" KJ/kg K           ";
   s1[4][2]=" KJ/kg K           ";
   s1[5][2]=" KJ/kg             ";
   s1[6][2]=" W/mK              ";
   s1[7][2]="                   ";
   s1[8][2]=" Pa.s              ";
   s1[0][1]=""+t;
   s1[1][1]=""+0.0;
   s1[2][1]=""+ro(x,t);
   s1[3][1]=""+Cp(x,t);
   s1[4][1]=""+h(x,t);
   s1[5][1]=""+s(x,t);   
   s1[6][1]=""+k(x,t);
   s1[7][1]=""+Pr(x,t); 
   s1[8][1]=""+vis(x,t); 
    
return s1;
}

    

double ro(double x,double t)
{   double T=t+273.15;
	return rd.ro_l(T);}
	
double Cp(double x,double t)
{double T=t+273.15;return rd.Cp_l(T);}

double k(double x,double t)
{double T=t+273.15;return rd.k_l(T);}

double Pr(double x,double t)
{double T=t+273.15;return rd.Pr_l(T);}

double vis(double x,double t)
{double T=t+273.15;return rd.viscosity_l(T);}
 
double alfa(double x,double t)
{double T=t+273.15;return rd.alfa_l(T);}
 
double h(double x,double t)
{double T=t+273.15;return rd.h_l(T);}
  
double s(double x,double t)
{double T=t+273.15;return rd.s_l(T);}
    
}