//===============================================================//
// DENEYSAN -  VEBS veri sistem entagrasyonu                     //
//                                                               //
// sogutmacevrimi2                                               //
// soğutma çevrimi termodinamik hesapları                        //
// sogutma makinasından gerçek zamanda veri alarak çalışır       //     
// Dr. M. Turhan Coban                                           //
// Ege University, Engineering Department                        //
// Mechanical Engineering,                                       //
// email : turhan.coban@ege.edu.tr
// Dosya ismi   : sogutmacevrimi2.java
//=======================================================//

import java.io.*;
import java.net.*;
import java.util.*;
import javax.swing.*;
//---- String s in alacağı değerler --------
//    tv tp th tu ts tx
// pv    pt ph pu ps px
// vp    vt

//---- Çıktı değerleri ---------
// a[0] P basınç kPa
// a[1] t sıcaklık derece C
// a[2] v özgül hacim m^3/kg
// a[3] h KJ/kg  entalpi
// a[4] u KJ/kg  iç enerji
// a[5] s KJ/kgK entropi
// a[6] x kg vapor/kg doygunluk derecesi
// a[7] ro yoğunluk kg/m^3
//======================

// girdi değişkenleri
//   s1          : soğutucu ismi
//   m           : kütlesel debi
//   mv          : hacimsel debi litre/dakika
//   ti[0] emme hattı
//   ti[1] basma hattı
//   ti[2] sıvı hattı 
//   ti[3] ısı değiştirici çıkışı-kondenser giriş
//   ti[4] genleşme hatı çıkış-evaporaör giriş
//   ti[5] evaporatör çıkış ısı değiştiriciye giriş
//   P1          : kompresör giriş basıncı
//   P2          : kompresör çıkış basıncı
//   Te          : Evaporatör doyma sıcaklığı
//   Tc          : Kondenser doyma sıcaklığı 
//   Patm        : atmosfer basıncı kPA

class sogutmacevrimi2
{
  refrigerant rs;
  double T[];
  double P[];
  double h[];
  double s[];
  double v[];
  double COP_evap;
  double COP_cond;
  double W;
  double Q_cond;
  double Q_evap;
  double dQ_he1,dQ_he2;
  double isentropic_efficiency;
  double mkutle;
  double Pow;
  double a[]=new double[9];
  double ZX[]=new double[10];
  double ZY[]=new double[10];
  double WX[]=new double[10];
  double WY[]=new double[10];  
  double ZXi[]=new double[2];
  double ZYi[]=new double[2];
  double WXi[]=new double[2];
  double WYi[]=new double[2];
  String s2[];
  Plot2D pl1,pl2;
//kurucu metod  
  public sogutmacevrimi2(String s1, double mv,
  double ti[],double p1,double p2,double Powi,double Patm)
  {yenidenhesapla(s1,mv,ti,p1,p2,Powi,Patm);}
  
 public void yenidenhesapla(String s1, double mv,
 double ti[],double p1,double p2,double Powi,double Patm)
  {Pow=Powi;
  rs=new refrigerant(s1);
  double P1=p1+Patm;
  double P2=p2+Patm;  
  T=new double[12];
  P=new double[12];
  h=new double[12];
  s=new double[12];
  v=new double[12];
  //  nokta 7 yoğuşturucu, yoğuşma başlaması, doymuş buhar
  P[7]=P2;
  a=rs.property("px",P[7],1.0);
  T[7]=a[1];
  h[7]=a[3];
  s[7]=a[5];
  v[5]=a[2];
  ZX[4]=h[7];
  ZY[4]=P[7];
  WX[4]=s[7];
  WY[4]=T[7];
  //nokta 8 yoğuşturucu doymuş sıvı noktası
  P[8]=P[7];
  a=rs.property("px",P[8],0.0);
  h[8]=a[3];
  s[8]=a[5];
  T[8]=a[1];
  v[8]=a[2];
  ZX[5]=h[8];
  ZY[5]=P[8];
  WX[5]=s[8];
  WY[5]=T[8]; 
  //nokta 3 yoğuşturucu çıkış
  T[3]=ti[2];
  P[3]=P2;
  a=rs.property("tp",T[3],P[3]);
  h[3]=a[3];
  s[3]=a[5];
  v[3]=a[2];
  ZX[6]=h[3];
  ZY[6]=P[3];
  WX[6]=s[3];
  WY[6]=T[3];
  // Nokta 4 ısı değiştirici çıkışı
  T[4]=ti[3];
  P[4]=P2;
  a=rs.property("tp",T[4],P[4]);
  h[4]=a[3];
  s[4]=a[5];
  v[4]=a[2];
   ZX[7]=h[4];
  ZY[7]=P[4];
  WX[7]=s[4];
  WY[7]=T[4];  
  // nokta 10 buharlaştırıcı doymuş sıvı noktası
  P[10]=P1; 
  a=rs.property("px",P[10],0.0);
  T[10]=a[1];
  h[10]=a[3];
  s[10]=a[5];
  v[10]=a[2];
  //nokta 0 buharlaştırıcı doymuş buhar noktası
  P[0]=P1;
  a=rs.property("px",P[0],1.0);    
  T[0]=a[1];
  h[0]=a[3];
  s[0]=a[5];
  v[0]=a[2];
  ZX[0]=h[0];
  ZY[0]=P[0];
  WX[0]=s[0];
  WY[0]=T[0];
  ZX[9]=h[0];
  ZY[9]=P[0];
  WX[9]=s[0];
  WY[9]=T[0];
  //nokta 5 evaporator inlet
  h[5]=h[4];  
  double x5=(h[5]-h[10])/(h[0]-h[10]);
  s[5]=s[10]*(1.0-x5)+s[0]*x5;
  P[5]=P[0];
  T[5]=T[0];
  v[5]=v[10]*(1.0-x5)+v[0]*x5;
  ZX[8]=h[5];
  ZY[8]=P[5];
  WX[8]=s[5];
  WY[8]=T[5]; 
  //nokta 6 (evaporatör çıkış - ısı değiştirici giriş)
  T[6]=ti[5];
  P[6]=P1; 
  double dTevap=T[6]-T[0];
  if(dTevap<=0)
  {
  T[6]=T[0];
  h[6]=h[0];
  P[6]=P[0];
  s[6]=s[0];
  v[6]=v[0];
  }
  else
  {
  a=rs.property("tp",T[6],P[6]);
  h[6]=a[3];
  s[6]=a[5];
  v[6]=a[2];
  }
  ZX[1]=h[6];
  ZY[1]=P[6];
  WX[1]=s[6];
  WY[1]=T[6];
  // nokta 1 kompresör girişi
  T[1]=ti[0];
  P[1]=P1;
  a=rs.property("tp",T[1],P[1]);
  h[1]=a[3];
  s[1]=a[5]; 
  v[1]=a[2];
  ZX[2]=h[1];
  ZY[2]=P[1];
  WX[2]=s[1];
  WY[2]=T[1];
  ZXi[0]=h[1];
  ZYi[0]=P[1];
  WXi[0]=s[1];
  WYi[0]=T[1];
  // nokta 2 kompresör çıkışı ısı değiştirici girişi
  T[2]=ti[1];
  P[2]=P2;
  a=rs.property("tp",T[2],P[2]);
  h[2]=a[3];
  s[2]=a[5]; 
  v[2]=a[2];
  ZX[3]=h[2];
  ZY[3]=P[2];
  WX[3]=s[2];
  WY[3]=T[2];
  // nokta 2s (11) isentropik kompresör çıkışı
  P[11]=P2;
  s[11]=s[1];
  a=rs.property("ps",P[11],s[11]);
  h[11]=a[3];
  T[11]=a[1];
  v[11]=a[2];
  isentropic_efficiency=(h[11]-h[1])/(h[2]-h[1]); //???????    
  ZXi[1]=h[11];
  ZYi[1]=P[11];
  WXi[1]=s[11];
  WYi[1]=T[11];
  mkutle=mv*1e-3/60.0/v[1]; //kg/s
  Q_evap=mkutle*(h[6]-h[5]);
  Q_cond = mkutle*( h[2] - h[3] );
  dQ_he1=mkutle*(h[1]-h[6]);
  dQ_he2=mkutle*(h[3]-h[4]);
  W=mkutle*(h[2]-h[1]);
  COP_evap=Q_evap/W;
  COP_cond=Q_cond/W;  
    }
// Grafik logaritma P(basınç)-h entalpi diyagramı çizimi  
  public void plot_Ph()
  {
  double t; 	
  double tc=rs.r.Tc;  
  double x[],y[];int i=0;
  x=new double[800];
  y=new double[800];
  //double tmin=rs.r.rd.tmin;
  double tmin=-10;//rs.r.rd.tmin;
  for(t=tmin;t<=(tc-2);t+=2.0)
     { a=rs.property("tx",t,0.0);
	   x[i]=a[3];//h
	   y[i]=a[0];//P
       i++;
     }
       a=rs.property("tx",tc,0.0);
	   x[i]=a[3];//h
	   y[i]=a[0];//P
  i++;
  double tt=tc;
   for(t=tt;t>=tmin;t-=2.0)
     {a=rs.property("tx",t,1.0);
	   x[i]=a[3];//h
	   y[i]=a[0];//P
       i++;}
       a=rs.property("tx",tc,1.0);
	   x[i]=a[3];//h
	   y[i]=a[0];//P        
  double xx[]=new double[i];
  double yy[]=new double[i];
  for(int j=0;j<i;j++) {xx[j]=x[j];yy[j]=y[j];}
  Plot pp1=new Plot(xx,yy);
  pp1.addData(ZX,ZY,5,0,0,255);
  //pp.addData(ZXi,ZYi,4,0,0,0);
  pl1=new Plot2D(pp1);
  pl1.setXlabel("Entalpi h KJ/kg");
  pl1.setYlabel("Basınç P kPa");
  pl1.setYlogScaleOn();
  pl1.setPlabel("Basınç - Entalpi Diyagramı gaz : "+rs.r.refrigerantName);
  pl1.setXtic(10);
  pl1.setYtic(5);
  pl1.setXgrid(1);
  pl1.setYgrid(1);
  pl1.setPlabel("Basınç - Entalpi Diyagramı gaz : "+rs.r.refrigerantName);
  FrameGraphic.plot("logP-h (basınç-entalpi diyagramı",pl1);
  //pl1.plot();
  }
// Grafik T(sıcaklık)-s entropi diyagramı çizimi   
  public void plot_Ts()
  {
  double t; 	
  double tc=rs.r.Tc;  
  double x[],y[];int i=0;
  x=new double[800];
  y=new double[800];
  //double tmin=rs.r.rd.tmin;
  double tmin=-10;
  //System.out.println("soğutkan = "+rs.r.refrigerantName);
  for(t=tmin;t<=(tc-2);t+=2.0)
     { a=rs.property("tx",t,0.0);
	   x[i]=a[5];y[i]=a[1];
       i++;}
       a=rs.property("tx",tc,0.0);
	   x[i]=a[5];y[i]=a[1];
  i++;
  double tt=tc;
   for(t=tt;t>=tmin;t-=2.0)
     {a=rs.property("tx",t,1.0);
	   x[i]=a[5];y[i]=a[1];
       i++;}
       a=rs.property("tx",tc,1.0);
	   x[i]=a[5];y[i]=a[1];       
  double xx[]=new double[i];
  double yy[]=new double[i];
  for(int j=0;j<i;j++) {xx[j]=x[j];yy[j]=y[j];}
  Plot pp=new Plot(xx,yy);
  pl2=new Plot2D(pp);
  pp.addData(WX,WY,5,0,0,255);
  //pp.addData(WXi,WYi,4,0,0,255);
  //pp.setYlogScaleOn();
  //pp.setPlabel("Sıcalık - Entropi Diyagramı");
  pl2.setPlabel("Sıcaklık - Entropi Diyagramı gaz : "+rs.r.refrigerantName);
  pl2.setXlabel("Entropi h KJ/kgK");
  pl2.setYlabel("Sıcaklık T derece C");
  pl2.setXtic(10);
  pl2.setYtic(10);
  pl2.setXgrid(1);
  pl2.setYgrid(1);
  FrameGraphic.plot("T-s (sıcaklık-entropi diyagramı",pl2);
  //pl2.plot();
  }
  
  public double[] cikti()
  {
   double a[]=new double[54];
   a[0]=mkutle;
   a[1]=W;
   a[2]=Pow*1e-3;
   a[3]=Q_evap;
   a[4]=Q_cond;
   a[5]=dQ_he1;
   a[6]=dQ_he2;
   a[7]=COP_evap;
   a[8]=COP_cond;
   
   // kompresör girişi
   a[9]=T[1];
   a[10]=P[1];
   a[11]=h[1];
   a[12]=s[1];
   a[13]=v[1];
   //kompresör çıkışı
   a[14]=T[2];
   a[15]=P[2];
   a[16]=h[2];
   a[17]=s[2];
   a[18]=v[2];
   //ısı değiştirici çıkışı genleşme vanası girişi
   a[19]=T[4];
   a[20]=P[4];
   a[21]=h[4];
   a[22]=s[4];
   a[23]=v[4];
   // yoğuşturucu doymuş buhar noktası
   a[24]=T[7];
   a[25]=P[7];
   a[26]=h[7];
   a[27]=s[7];
   a[28]=v[7];
   // yoğuşturucu doymuş sıvı noktası
   a[29]=T[8];
   a[30]=P[8];
   a[31]=h[8];
   a[32]=s[8];
   a[33]=v[8];
   //yoğuşturucu çıkışı
   a[34]=T[3];
   a[35]=P[3];
   a[36]=h[3];
   a[37]=s[3];
   a[38]=v[3];
   // buharlaştırıcı girişi
   a[39]=T[5];
   a[40]=P[5];
   a[41]=h[5];
   a[42]=s[5];
   a[43]=v[5];
   // buharlaştırıcı doymuş buhar noktası
   a[44]=T[0];
   a[45]=P[0];
   a[46]=h[0];
   a[47]=s[0];
   a[48]=v[0];
   // buharlaştırıcı çıkışı 
   a[49]=T[6];
   a[50]=P[6];
   a[51]=h[6];
   a[52]=s[6];
   a[53]=v[6];
   return a;
  }
  //=======================
   public String[] heading()
   {  
   String s2[]=new String[54];
   s2[0]=" Gaz ismi    :";
   s2[1]="m :";
   s2[2]="W kompresör    :";
   s2[3]="Q buharlaşma   :";
   s2[4]="Q yoğuşma      :";
   s2[5]="Q ısı değiştirici düşük basınç   :";
   s2[6]="Q ısı değiştirici yüksek basınç   :";
   s2[7]="COP buharlaşma :";
   s2[8]="COP yoğuşma    :";
      // kompresör girişi
   s2[9]="kompresör girişi T[1]";
   s2[10]="kompresör girişi P[1]";
   s2[11]="kompresör girişi h[1]";
   s2[12]="kompresör girişi s[1]";
   s2[13]="kompresör girişi v[1]";
   //kompresör çıkışı
   s2[14]="kompresör çıkışı T[2]";
   s2[15]="kompresör çıkışı P[2]";
   s2[16]="kompresör çıkışı h[2]";
   s2[17]="kompresör çıkışı s[2]";
   s2[18]="kompresör çıkışı v[2]";
   //ısı değiştirici çıkışı 
   s2[19]="ısı değiştirici çıkışı genleşme vanası girişi T[4]";
   s2[20]="ısı değiştirici çıkışı genleşme vanası girişi P[4]";
   s2[21]="ısı değiştirici çıkışı genleşme vanası girişi h[4]";
   s2[22]="ısı değiştirici çıkışı genleşme vanası girişi s[4]";
   s2[23]="ısı değiştirici çıkışı genleşme vanası girişi v[4]";
   // yoğuşturucu doymuş buhar noktası
   s2[24]="yoğuşturucu doymuş buhar noktası T[7]";
   s2[25]="yoğuşturucu doymuş buhar noktası P[7]";
   s2[26]="yoğuşturucu doymuş buhar noktası h[7]";
   s2[27]="yoğuşturucu doymuş buhar noktası s[7]";
   s2[28]="yoğuşturucu doymuş buhar noktası v[7]";
   // yoğuşturucu doymuş sıvı noktası
   s2[29]="yoğuşturucu doymuş sıvı noktası T[8]";
   s2[30]="yoğuşturucu doymuş sıvı noktası P[8]";
   s2[31]="yoğuşturucu doymuş sıvı noktası h[8]";
   s2[32]="yoğuşturucu doymuş sıvı noktası s[8]";
   s2[33]="yoğuşturucu doymuş sıvı noktası v[8]";
   //yoğuşturucu çıkışı
   s2[34]="yoğuşturucu çıkışı T[3]";
   s2[35]="yoğuşturucu çıkışı P[3]";
   s2[36]="yoğuşturucu çıkışı h[3]";
   s2[37]="yoğuşturucu çıkışı s[3]";
   s2[38]="yoğuşturucu çıkışı v[3]";
   // buharlaştırıcı girişi
   s2[39]="buharlaştırıcı girişi T[5]";
   s2[40]="buharlaştırıcı girişi P[5]";
   s2[41]="buharlaştırıcı girişi h[5]";
   s2[42]="buharlaştırıcı girişi s[5]";
   s2[43]="buharlaştırıcı girişi v[5]";
   // buharlaştırıcı doymuş buhar noktası
   s2[44]="buharlaştırıcı doymuş buhar noktası T[0]";
   s2[45]="buharlaştırıcı doymuş buhar noktası P[0]";
   s2[46]="buharlaştırıcı doymuş buhar noktası h[0]";
   s2[47]="buharlaştırıcı doymuş buhar noktası s[0]";
   s2[48]="buharlaştırıcı doymuş buhar noktası v[0]";
   // buharlaştırıcı çıkışı 
   s2[49]="buharlaştırıcı çıkışı  T[6]";
   s2[50]="buharlaştırıcı çıkışı P[6]";
   s2[51]="buharlaştırıcı çıkışı h[6]";
   s2[52]="buharlaştırıcı çıkışı s[6]";
   s2[53]="buharlaştırıcı çıkışı v[6]";
   return s2;
}
  
  //=======================
   public String[][] toString(String s1, double mv,
                          double ti[],double p1,double p2,double Powi,
                          double Patm)
   {
   yenidenhesapla(s1,mv,ti,p1,p2,Powi,Patm);  
   String s2[][]=new String[55][3];
   s2[0][0]=" Gaz ismi    :";
   s2[1][0]="m :";
   s2[2][0]="W kompresör    :";
   s2[3][0]="W kompresör elektriksel :";
   s2[4][0]="Q buharlaşma   :";
   s2[5][0]="Q yoğuşma      :";
   s2[6][0]="Q ısı değiştirici düşük basınç   :";
   s2[7][0]="Q ısı değiştirici yüksek basınç   :";
   s2[8][0]="COP buharlaşma :";
   s2[9][0]="COP yoğuşma    :";
      // kompresör girişi
   s2[10][0]="kompresör girişi T[1]";
   s2[11][0]="kompresör girişi P[1]";
   s2[12][0]="kompresör girişi h[1]";
   s2[13][0]="kompresör girişi s2[1]";
   s2[14][0]="kompresör girişi v[1]";
   //kompresör çıkışı
   s2[15][0]="kompresör çıkışı T[2]";
   s2[16][0]="kompresör çıkışı P[2]";
   s2[17][0]="kompresör çıkışı h[2]";
   s2[18][0]="kompresör çıkışı s2[2]";
   s2[19][0]="kompresör çıkışı v[2]";
   //ısı değiştirici çıkışı yoğuşturucu girişi
   s2[20][0]="ısı değiştirici çıkışı genleşme vanası girişi T[4]";
   s2[21][0]="ısı değiştirici çıkışı genleşme vanası girişi P[4]";
   s2[22][0]="ısı değiştirici çıkışı genleşme vanası girişi h[4]";
   s2[23][0]="ısı değiştirici çıkışı genleşme vanası girişi s2[4]";
   s2[24][0]="ısı değiştirici çıkışı genleşme vanası girişi v[4]";
   // yoğuşturucu doymuş buhar noktası
   s2[25][0]="yoğuşturucu doymuş buhar noktası T[7]";
   s2[26][0]="yoğuşturucu doymuş buhar noktası P[7]";
   s2[27][0]="yoğuşturucu doymuş buhar noktası h[7]";
   s2[28][0]="yoğuşturucu doymuş buhar noktası s2[7]";
   s2[29][0]="yoğuşturucu doymuş buhar noktası v[7]";
   // yoğuşturucu doymuş sıvı noktası
   s2[30][0]="yoğuşturucu doymuş sıvı noktası T[8]";
   s2[31][0]="yoğuşturucu doymuş sıvı noktası P[8]";
   s2[32][0]="yoğuşturucu doymuş sıvı noktası h[8]";
   s2[33][0]="yoğuşturucu doymuş sıvı noktası s2[8]";
   s2[34][0]="yoğuşturucu doymuş sıvı noktası v[8]";
   //yoğuşturucu çıkışı
   s2[35][0]="yoğuşturucu çıkışı T[3]";
   s2[36][0]="yoğuşturucu çıkışı P[3]";
   s2[37][0]="yoğuşturucu çıkışı h[3]";
   s2[38][0]="yoğuşturucu çıkışı s2[3]";
   s2[39][0]="yoğuşturucu çıkışı v[3]";
   // buharlaştırıcı girişi
   s2[40][0]="buharlaştırıcı girişi T[5]";
   s2[41][0]="buharlaştırıcı girişi P[5]";
   s2[42][0]="buharlaştırıcı girişi h[5]";
   s2[43][0]="buharlaştırıcı girişi s2[5]";
   s2[44][0]="buharlaştırıcı girişi v[5]";
   // buharlaştırıcı doymuş buhar noktası
   s2[45][0]="buharlaştırıcı doymuş buhar noktası T[0]";
   s2[46][0]="buharlaştırıcı doymuş buhar noktası P[0]";
   s2[47][0]="buharlaştırıcı doymuş buhar noktası h[0]";
   s2[48][0]="buharlaştırıcı doymuş buhar noktası s2[0]";
   s2[49][0]="buharlaştırıcı doymuş buhar noktası v[0]";
   // buharlaştırıcı çıkışı 
   s2[50][0]="buharlaştırıcı çıkışı  T[6]";
   s2[51][0]="buharlaştırıcı çıkışı P[6]";
   s2[52][0]="buharlaştırıcı çıkışı h[6]";
   s2[53][0]="buharlaştırıcı çıkışı s2[6]";
   s2[54][0]="buharlaştırıcı çıkışı v[6]";
//=================================
   s2[0][2]=" ";
   s2[1][2]="kg/s";
   s2[2][2]="kW";
   s2[3][2]="kW";
   s2[4][2]="kW";
   s2[5][2]="kW";
   s2[6][2]="kW";
   s2[7][2]="kW";
   s2[8][2]=" ";
   s2[9][2]=" ";
      // kompresör girişi
   s2[10][2]="derece C";
   s2[11][2]="kPa     ";
   s2[12][2]="kJ/kg";
   s2[13][2]="kJ/kg K";
   s2[14][2]="m"+'\u00B3'+"/kg";
   //kompresör çıkışı
   s2[15][2]="derece C";
   s2[16][2]="kPa     ";
   s2[17][2]="kJ/kg";
   s2[18][2]="kJ/kg K";
   s2[19][2]="m"+'\u00B3'+"/kg";
   //ısı değiştirici çıkışı yoğuşturucu girişi
   s2[20][2]="derece C";
   s2[21][2]="kPa     ";
   s2[22][2]="kJ/kg";
   s2[23][2]="kJ/kg K";
   s2[24][2]="m"+'\u00B3'+"/kg";
   // yoğuşturucu doymuş buhar noktası
   s2[25][2]="derece C";
   s2[26][2]="kPa     ";
   s2[27][2]="kJ/kg";
   s2[28][2]="kJ/kg K";
   s2[29][2]="m"+'\u00B3'+"/kg";
   // yoğuşturucu doymuş sıvı noktası
   s2[30][2]="derece C";
   s2[31][2]="kPa     ";
   s2[32][2]="kJ/kg";
   s2[33][2]="kJ/kg K";
   s2[34][2]="m"+'\u00B3'+"/kg";
   //yoğuşturucu çıkışı
   s2[35][2]="derece C";
   s2[36][2]="kPa     ";
   s2[37][2]="kJ/kg";
   s2[38][2]="kJ/kg K";
   s2[39][2]="m"+'\u00B3'+"/kg";
   // buharlaştırıcı girişi
   s2[40][2]="derece C";
   s2[41][2]="kPa     ";
   s2[42][2]="kJ/kg";
   s2[43][2]="kJ/kg K";
   s2[44][2]="m"+'\u00B3'+"/kg";
   // buharlaştırıcı doymuş buhar noktası
   s2[45][2]="derece C";
   s2[46][2]="kPa     ";
   s2[47][2]="kJ/kg";
   s2[48][2]="kJ/kg K";
   s2[49][2]="m"+'\u00B3'+"/kg";
   // buharlaştırıcı çıkışı 
   s2[50][2]="derece C";
   s2[51][2]="kPa     ";
   s2[52][2]="kJ/kg";
   s2[53][2]="kJ/kg K";
   s2[54][2]="m"+'\u00B3'+"/kg";
//===========================
    s2[0][1]="";
   s2[1][1]="";
   s2[2][1]="";
   s2[3][1]="";
   s2[4][1]="";
   s2[5][1]="";
   s2[6][1]="";
   s2[7][1]="";
   s2[8][1]="";
      // kompresör girişi
   s2[9][1]="";
   s2[10][1]="";
   s2[11][1]="";
   s2[12][1]="";
   s2[13][1]="";
   //kompresör çıkışı
   s2[14][1]="";
   s2[15][1]="";
   s2[16][1]="";
   s2[17][1]="";
   s2[18][1]="";
   //ısı değiştirici çıkışı yoğuşturucu girişi
   s2[19][1]="";
   s2[20][1]="";
   s2[21][1]="";
   s2[22][1]="";
   s2[23][1]="";
   // yoğuşturucu doymuş buhar noktası
   s2[24][1]="";
   s2[25][1]="";
   s2[26][1]="";
   s2[27][1]="";
   s2[28][1]="";
   // yoğuşturucu doymuş sıvı noktası
   s2[29][1]="";
   s2[30][1]="";
   s2[31][1]="";
   s2[32][1]="";
   s2[33][1]="";
   //yoğuşturucu çıkışı
   s2[34][1]="";
   s2[35][1]="";
   s2[36][1]="";
   s2[37][1]="";
   s2[38][1]="";
   // buharlaştırıcı girişi
   s2[39][1]="";
   s2[40][1]="";
   s2[41][1]="";
   s2[42][1]="";
   s2[43][1]="";
   // buharlaştırıcı doymuş buhar noktası
   s2[44][1]="";
   s2[45][1]="";
   s2[46][1]="";
   s2[47][1]="";
   s2[48][1]="";
   // buharlaştırıcı çıkışı 
   s2[49][1]="";
   s2[50][1]="";
   s2[51][1]="";
   s2[52][1]="";
   s2[53][1]=""; 
   s2[53][1]=""; 
//===============================
double aa[]=cikti();
for(int ii=1;ii<=aa.length;ii++)
{s2[ii][1]+=aa[ii-1];}  
   return s2;
}
 
}  