IKEDA

Package Content

NameDescription
IKEDA.Yp Yp  
IKEDA.Yo Yo  
IKEDA.F65 F65  
IKEDA.PHUCaculation PHUCaculation  
IKEDA.TestPHUCalculation TestPHUCalculation  
testF65  
IKEDA.RenalAcidification RenalAcidification  
IKEDA.RenalDistalAcidification RenalDistalAcidification  
testReanalAcidification1  
IKEDA.NatriumRenalExcretion NatriumRenalExcretion  
IKEDA.PotassiumRenalExcretion PotassiumRenalExcretion  
IKEDA.ProximalTubuleOutflow ProximalTubuleOutflow  
IKEDA.Diuresis Diuresis  
IKEDA.UrineOsmolarity UrineOsmolarity  
IKEDA.STPG STPG  
IKEDA.CalciumRenalExcretion CalciumRenalExcretion  
IKEDA.TresholdExcretion TresholdExcretion  
IKEDA.MagnesiumRenalExcretion MagnesiumRenalExcretion  
IKEDA.SulphateRenalExcretion SulphateRenalExcretion  
IKEDA.GlucoseRenalExcretion GlucoseRenalExcretion  
IKEDA.PhosphateRenalExcretion PhosphateRenalExcretion  
IKEDA.OrganicAcidRenalExcretion OrganicAcidRenalExcretion  
IKEDA.BicarbonateRenalExcretion BicarbonateRenalExcretion  


IKEDA.Yp IKEDA.Yp

IKEDA.Yp

Connectors

TypeNameDescription
input RealInputYPO4 
input RealInputx 
output RealOutputYp 

Modelica definition

block Yp

  Modelica.Blocks.Interfaces.RealInput YPO4;
  Modelica.Blocks.Interfaces.RealInput x;
  Modelica.Blocks.Interfaces.RealOutput Yp;
equation 
  Yp = YPO4*(10^(-x) + 2*10^(-6.8))/(10^(-x) + 10^(-6.8));
  //from phosophate flows YPO4 expressed in mmol/min calculates phosphate flow expressed in mEq/min (Yp) dependent on pH (x)
end Yp;

IKEDA.Yo IKEDA.Yo

IKEDA.Yo

Connectors

TypeNameDescription
input RealInputYORG 
input RealInputx 
output RealOutputYo 

Modelica definition

block Yo

  Modelica.Blocks.Interfaces.RealInput YORG;
  Modelica.Blocks.Interfaces.RealInput x;
  Modelica.Blocks.Interfaces.RealOutput Yo;
equation 
  Yo = YORG*(10^(-4.3))/(10^(-x) + 10^(-4.3));
  //from organic acids (YORG) expressed in mmol/min calculates phosphate flow in mEq/min (Yp) dependent on pH (x)
end Yo;

IKEDA.F65 IKEDA.F65

IKEDA.F65

Connectors

TypeNameDescription
input RealInputYORG 
input RealInputPHU 
output RealOutputYTA 
input RealInputYPO4 
input RealInputPHA 

Modelica definition

block F65

  Modelica.Blocks.Interfaces.RealInput YORG;
  Modelica.Blocks.Interfaces.RealInput PHU;
  Modelica.Blocks.Interfaces.RealOutput YTA;
  Modelica.Blocks.Interfaces.RealInput YPO4;
  Modelica.Blocks.Interfaces.RealInput PHA;
  IKEDA.Yp yp;
  IKEDA.Yp yp1;
  IKEDA.Yo yo;
  IKEDA.Yo yo1;
  Modelica.Blocks.Math.Add add(k2=-1);
  Modelica.Blocks.Math.Add add1(k2=-1);
  Modelica.Blocks.Math.Add add2(k2=+1);
equation 
  connect(yp1.YPO4, YPO4);
  connect(PHA, yp.x);
  connect(yp.YPO4, YPO4);
  connect(YORG, yo.YORG);
  connect(YORG, yo1.YORG);
  connect(yp.Yp, add.u1);
  connect(yp1.Yp, add.u2);
  connect(yo.Yo, add1.u1);
  connect(yo1.Yo, add1.u2);
  connect(add1.y, add2.u2);
  connect(add.y, add2.u1);
  connect(add2.y, YTA);
  connect(PHU, yp1.x);
  connect(PHA, yo.x);
  connect(PHU, yo1.x);
end F65;

IKEDA.PHUCaculation IKEDA.PHUCaculation

IKEDA.PHUCaculation

Connectors

TypeNameDescription
input RealInputYPO4 
input RealInputYORG 
output RealOutputPHU 
input RealInputYTA 
input RealInputPHA 

Modelica definition

block PHUCaculation

  Modelica.Blocks.Interfaces.RealInput YPO4;
  Modelica.Blocks.Interfaces.RealInput YORG;
  Modelica.Blocks.Interfaces.RealOutput PHU;
  Modelica.Blocks.Interfaces.RealInput YTA;
  Modelica.Blocks.Interfaces.RealInput PHA;
  Modelica.Blocks.Math.InverseBlockConstraints inverseBlockConstraints;
  IKEDA.F65 f65_1;
equation 
  connect(f65_1.YTA, inverseBlockConstraints.u2);
  connect(f65_1.PHU, inverseBlockConstraints.y2);
  connect(YTA, inverseBlockConstraints.u1);
  connect(inverseBlockConstraints.y1, PHU);
  connect(PHA, f65_1.PHA);
  connect(f65_1.YORG, YORG);
  connect(f65_1.YPO4, YPO4);
end PHUCaculation;

IKEDA.TestPHUCalculation IKEDA.TestPHUCalculation

IKEDA.TestPHUCalculation

Connectors

TypeNameDescription
output RealOutputpHU 

Modelica definition

model TestPHUCalculation

  PHUCaculation pHUCaculation;
  Modelica.Blocks.Sources.Constant PHA(k=7.400);
  Modelica.Blocks.Sources.Constant YTA(k=0.0168);
  Modelica.Blocks.Sources.Constant YPO4(k=0.025);
  Modelica.Blocks.Sources.Constant YORG(k=0.01);
  Modelica.Blocks.Interfaces.RealOutput pHU;
equation 
  connect(PHA.y, pHUCaculation.PHA);
  connect(YTA.y, pHUCaculation.YTA);
  connect(YPO4.y, pHUCaculation.YPO4);
  connect(YORG.y, pHUCaculation.YORG);
  connect(pHUCaculation.PHU, pHU);
end TestPHUCalculation;

IKEDA.testF65

IKEDA.testF65

Modelica definition

model testF65

  F65 f65_1;
  Modelica.Blocks.Sources.Constant const1(k=6.0);
  Modelica.Blocks.Sources.Constant const2(k=7.4);
  Modelica.Blocks.Sources.Constant const3(k=0.01);
  Modelica.Blocks.Sources.Constant const4(k=0.025);
equation 
  connect(const1.y, f65_1.PHU);
  connect(const2.y, f65_1.PHA);
  connect(const3.y, f65_1.YORG);
  connect(const4.y, f65_1.YPO4);
end testF65;

IKEDA.RenalAcidification IKEDA.RenalAcidification

IKEDA.RenalAcidification

Connectors

TypeNameDescription
input RealInputYORG 
input RealInputYPO4 
input RealInputPHA 
input RealInputAld 
output RealOutputYTA 
output RealOutputYNH4 
output RealOutputPHU 
output RealOutputYTA1 

Modelica definition

model RenalAcidification

  Modelica.Blocks.Interfaces.RealInput YORG;
  Modelica.Blocks.Interfaces.RealInput YPO4;
  Modelica.Blocks.Interfaces.RealInput PHA;
  Modelica.Blocks.Interfaces.RealInput Ald;
  Modelica.Blocks.Interfaces.RealOutput YTA;
  Modelica.Blocks.Interfaces.RealOutput YNH4;
  Modelica.Blocks.Interfaces.RealOutput PHU;
  RenalDistalAcidification renalDistalAcidification;
  PHUCaculation pHUCaculation;
  Modelica.Blocks.Math.Product product;
  Modelica.Blocks.Math.Add add;
  Modelica.Blocks.Sources.Constant const(k=0.001);
  Modelica.Blocks.Sources.Constant const1(k=0.009);
  Modelica.Blocks.Math.Add add1;
  Modelica.Blocks.Sources.Constant TPHU1(k=300);
  Modelica.Blocks.Sources.Constant TPHA1(k=200);
  Modelica.Blocks.Sources.Constant YNH40(k=0.024);
  Modelica.Blocks.Sources.Constant YTA0(k=0.0068);
  Modelica.Blocks.Interfaces.RealOutput YTA1;
equation 
  connect(const.y, product.u2);
  connect(Ald, product.u1);
  connect(const1.y, add.u2);
  connect(product.y, add.u1);
  connect(YTA, YTA);
  connect(renalDistalAcidification.YTA1, add1.u1);
  connect(add1.y, YTA);
  connect(add.y, add1.u2);
  connect(renalDistalAcidification.YNH4, YNH4);
  connect(pHUCaculation.PHA, PHA);
  connect(renalDistalAcidification.PHA, PHA);
  connect(renalDistalAcidification.PHU, pHUCaculation.PHU);
  connect(PHU, pHUCaculation.PHU);
  connect(pHUCaculation.YTA, add1.y);
  connect(YPO4, pHUCaculation.YPO4);
  connect(YORG, pHUCaculation.YORG);
  connect(YNH40.y, renalDistalAcidification.YNH40);
  connect(TPHA1.y, renalDistalAcidification.TPHA1);
  connect(YTA0.y, renalDistalAcidification.YTA0);
  connect(TPHU1.y, renalDistalAcidification.TPHU1);
  connect(YTA1, renalDistalAcidification.YTA1);
end RenalAcidification;

IKEDA.RenalDistalAcidification IKEDA.RenalDistalAcidification

IKEDA.RenalDistalAcidification

Connectors

TypeNameDescription
input RealInputTPHU1 
input RealInputYNH40 
input RealInputYTA0 
input RealInputTPHA1 
input RealInputPHA 
input RealInputPHU 
output RealOutputYTA1 
output RealOutputYNH4 

Modelica definition

model RenalDistalAcidification

  Modelica.Blocks.Interfaces.RealInput TPHU1;
  Modelica.Blocks.Interfaces.RealInput YNH40;
  Modelica.Blocks.Interfaces.RealInput YTA0;
  Modelica.Blocks.Interfaces.RealInput TPHA1;
  Modelica.Blocks.Interfaces.RealInput PHA;
  Modelica.Blocks.Interfaces.RealInput PHU;
  Modelica.Blocks.Interfaces.RealOutput YTA1;
  Modelica.Blocks.Interfaces.RealOutput YNH4;

  Modelica.Blocks.Continuous.Integrator integrator(y_start=6.0, k=1);
  Modelica.Blocks.Math.Add add(k2=-1);
  Modelica.Blocks.Math.Product product;
  Modelica.Blocks.Math.Division division;
  Modelica.Blocks.Sources.Constant const(k=-0.5);
  Modelica.Blocks.Math.Add add1(k2=+1);
  Modelica.Blocks.Sources.Constant const1(k=4);
  Modelica.Blocks.Math.Product product1;
  Modelica.Blocks.Continuous.Integrator integrator2(k=1, y_start=7.4);
  Modelica.Blocks.Math.Division division2;
  Modelica.Blocks.Math.Add add3(k2=-1);
  Modelica.Blocks.Math.Product product2;
  Modelica.Blocks.Sources.Constant const2(k=-2.5);
  Modelica.Blocks.Sources.Constant const3(k=19.5);
  Modelica.Blocks.Math.Add add4(k2=+1);
  Modelica.Blocks.Math.Product product3;
  Modelica.Blocks.Logical.Switch switch1;
  Modelica.Blocks.Logical.LessEqual lessEqual;
  Modelica.Blocks.Sources.Constant const4(k=4);
  Modelica.Blocks.Sources.Constant const5(k=0);
  Modelica.Blocks.Logical.LessEqual lessEqual1;
  Modelica.Blocks.Logical.Switch switch2;
  Modelica.Blocks.Sources.Constant const6(k=5);
  Modelica.Blocks.Math.Add add5(k2=+1);
  Modelica.Blocks.Sources.Constant const7(k=-4);
  Modelica.Blocks.Math.Product product4;
equation 
  connect(integrator.y, add.u2);

  connect(add.y, division.u1);
  connect(division.y, integrator.u);
  connect(division.u2, TPHU1);
  connect(product.u2, integrator.y);
  connect(const.y, product.u1);
  connect(product.y, add1.u2);
  connect(add1.y, product1.u2);
  connect(YNH40, product1.u1);
  connect(add1.u1, const1.y);
  connect(YNH4, YNH4);
  connect(product1.y, YNH4);
  connect(add.u1, PHU);
  connect(TPHA1, division2.u2);
  connect(division2.y, integrator2.u);
  connect(integrator2.y, add3.u2);
  connect(add3.u1, PHA);
  connect(add3.y, division2.u1);
  connect(product2.y, add4.u2);
  connect(product2.u2, integrator2.y);
  connect(const3.y, add4.u1);
  connect(add4.y, product3.u2);
  connect(YTA0, product3.u1);
  connect(const4.y, lessEqual.u2);
  connect(lessEqual.y, switch1.u2);
  connect(switch1.u1, const5.y);
  connect(const6.y, lessEqual1.u2);
  connect(const7.y, add5.u1);
  connect(add5.y, product4.u2);
  connect(product3.y, product4.u1);
  connect(YTA1, switch2.y);
  connect(YTA1, YTA1);
  connect(switch2.u3, product3.y);
  connect(product4.y, switch1.u3);
  connect(switch1.y, switch2.u1);
  connect(lessEqual1.y, switch2.u2);
  connect(add5.u2, PHU);
  connect(lessEqual1.u1, PHU);
  connect(lessEqual.u1, PHU);
  connect(const2.y, product2.u1);
end RenalDistalAcidification;

IKEDA.testReanalAcidification1

IKEDA.testReanalAcidification1

Modelica definition

model testReanalAcidification1

  RenalAcidification renalAcidification;
  Modelica.Blocks.Sources.Constant YORG(k=0.01);
  Modelica.Blocks.Sources.Constant YPO4(k=0.025);
  Modelica.Blocks.Sources.Constant PHA(k=7.400);
  Modelica.Blocks.Sources.Constant Ald(k=1);
  STPG sTPG;
equation 
  connect(YPO4.y, renalAcidification.YPO4);
  connect(YORG.y, renalAcidification.YORG);
  connect(PHA.y, renalAcidification.PHA);
  connect(Ald.y, renalAcidification.Ald);
  connect(renalAcidification.YTA, sTPG.YTA);
  connect(sTPG.PHA, PHA.y);

  connect(sTPG.YORG, YORG.y);
  connect(sTPG.YPO4, YPO4.y);
end testReanalAcidification1;

IKEDA.NatriumRenalExcretion IKEDA.NatriumRenalExcretion

IKEDA.NatriumRenalExcretion

Connectors

TypeNameDescription
input RealInputXNE 
input RealInputGFR1 
input RealInputALD 
input RealInputYCO3 
input RealInputYTA1 
output RealOutputYNU 
output RealOutputYNH 
output RealOutputYND 
input RealInputYNH4 

Modelica definition

model NatriumRenalExcretion

  Modelica.Blocks.Interfaces.RealInput XNE;
  Modelica.Blocks.Interfaces.RealInput GFR1;
  Modelica.Blocks.Interfaces.RealInput ALD;
  Modelica.Blocks.Interfaces.RealInput YCO3;
  Modelica.Blocks.Interfaces.RealInput YTA1;
  Modelica.Blocks.Interfaces.RealOutput YNU;
  Modelica.Blocks.Interfaces.RealOutput YNH;
  Modelica.Blocks.Math.Product product;
  Modelica.Blocks.Sources.Constant HLO(k=0.5);
  Modelica.Blocks.Sources.Constant DTO(k=0.9);
  Modelica.Blocks.Math.Product product1;
  Modelica.Blocks.Interfaces.RealOutput YND;
  Modelica.Blocks.Math.Product product2;
  Modelica.Blocks.Sources.Constant AldR(k=0.09);
  Modelica.Blocks.Math.Product product3;
  Modelica.Blocks.Math.Add add(k2=-1);
  Modelica.Blocks.Interfaces.RealInput YNH4;
  Modelica.Blocks.Math.Add3 add3_1(k1=-1);
  Modelica.Blocks.Sources.Constant Zero(k=0);
  Modelica.Blocks.Logical.Switch switch1;
  Modelica.Blocks.Logical.Greater greater;
  Modelica.Blocks.Sources.Constant CDOF(k=0.116);
  Modelica.Blocks.Math.Product product4;
  Modelica.Blocks.Math.Add add1(k2=-1);
  Modelica.Blocks.Logical.Greater greater1;
  Modelica.Blocks.Logical.Switch switch2;
equation 
  connect(product.u1, XNE);
  connect(product.u2, GFR1);
  connect(product.y, product1.u2);
  connect(product1.u1, HLO.y);
  connect(product1.y, product2.u2);
  connect(product2.u1, DTO.y);
  connect(product3.u1, AldR.y);
  connect(product3.u2, ALD);
  connect(add.u1, product2.y);
  connect(product3.y, add.u2);
  connect(YNH4, add3_1.u3);
  connect(YTA1, add3_1.u2);
  connect(YCO3, add3_1.u1);
  connect(add3_1.y, greater.u1);
  connect(greater.u2, Zero.y);
  connect(switch1.u3, Zero.y);
  connect(switch1.u2, greater.y);
  connect(switch1.u1, add3_1.y);
  connect(YND, add.y);
  connect(YNH, product1.y);
  connect(CDOF.y, product4.u2);
  connect(product4.u1, add.y);
  connect(switch1.y, add1.u2);
  connect(add1.u1, product4.y);
  connect(greater1.u2, Zero.y);
  connect(greater1.y, switch2.u2);
  connect(switch2.u1, add1.y);
  connect(switch2.y, YNU);
  connect(greater1.u1, add1.y);
  connect(switch2.u3, Zero.y);
end NatriumRenalExcretion;

IKEDA.PotassiumRenalExcretion IKEDA.PotassiumRenalExcretion

IKEDA.PotassiumRenalExcretion

Connectors

TypeNameDescription
input RealInputGFR1 
input RealInputXKE 
input RealInputALD 
output RealOutputYKD 
output RealOutputYKU 

Modelica definition

model PotassiumRenalExcretion

  Modelica.Blocks.Interfaces.RealInput GFR1;
  Modelica.Blocks.Interfaces.RealInput XKE;
  Modelica.Blocks.Interfaces.RealInput ALD;
  Modelica.Blocks.Interfaces.RealOutput YKD;
  Modelica.Blocks.Interfaces.RealOutput YKU;
  Modelica.Blocks.Math.Product product;
  Modelica.Blocks.Sources.Constant HLO(k=0.5);
  Modelica.Blocks.Math.Add add(k2=+1);
  Modelica.Blocks.Math.Product product1;
  Modelica.Blocks.Sources.Constant DTO(k=0.9);
  Modelica.Blocks.Math.Product product2;
  Modelica.Blocks.Sources.Constant AldK(k=0.018);
  Modelica.Blocks.Math.Product product3;
  Modelica.Blocks.Math.Product product4;
  Modelica.Blocks.Math.Product product5;
  Modelica.Blocks.Sources.Constant CDO(k=0.39);
equation 
  connect(product1.u2, product.y);
  connect(HLO.y, product1.u1);
  connect(product2.u2, product1.y);
  connect(DTO.y, product2.u1);
  connect(product.u1, GFR1);
  connect(product.u2, XKE);
  connect(AldK.y, product3.u2);
  connect(product3.u1, XKE);
  connect(product3.y, product4.u1);
  connect(ALD, product4.u2);
  connect(add.u1, product2.y);
  connect(product4.y, add.u2);
  connect(add.y, product5.u1);
  connect(YKD, add.y);
  connect(CDO.y, product5.u2);
  connect(product5.y, YKU);
end PotassiumRenalExcretion;

IKEDA.ProximalTubuleOutflow IKEDA.ProximalTubuleOutflow

IKEDA.ProximalTubuleOutflow

Connectors

TypeNameDescription
input RealInputGFR 
input RealInputTHDF 
input RealInputCPR 
output RealOutputGFR1 

Modelica definition

model ProximalTubuleOutflow

  Modelica.Blocks.Interfaces.RealInput GFR;
  Modelica.Blocks.Interfaces.RealInput THDF;
  Modelica.Blocks.Interfaces.RealInput CPR;
  Modelica.Blocks.Interfaces.RealOutput GFR1;
  Modelica.Blocks.Math.Product product;
  Modelica.Blocks.Math.Product product1;
equation 
  connect(product.u1, GFR);
  connect(product.u2, THDF);
  connect(product.y, product1.u1);
  connect(CPR, product1.u2);
  connect(product1.y, GFR1);
end ProximalTubuleOutflow;

IKEDA.Diuresis IKEDA.Diuresis

IKEDA.Diuresis

Connectors

TypeNameDescription
output RealOutputQWU 
input RealInputADH 
input RealInputOSMP 
input RealInputYGLU 
input RealInputYURU 
input RealInputYMNU 
input RealInputYKD 
input RealInputYND 

Modelica definition

model Diuresis


  Modelica.Blocks.Interfaces.RealOutput QWU;
  Modelica.Blocks.Interfaces.RealInput ADH;
  Modelica.Blocks.Interfaces.RealInput OSMP;
  Modelica.Blocks.Interfaces.RealInput YGLU;
  Modelica.Blocks.Interfaces.RealInput YURU;
  Modelica.Blocks.Interfaces.RealInput YMNU;
  Modelica.Blocks.Interfaces.RealInput YKD;
  Modelica.Blocks.Interfaces.RealInput YND;
  Modelica.Blocks.Math.Add3 add3_1;
  Modelica.Blocks.Math.Add add;
  Modelica.Blocks.Math.Product product;
  Modelica.Blocks.Sources.Constant const(k=1.86);
  Modelica.Blocks.Math.Add3 add3_2;
  Modelica.Blocks.Sources.Constant const1(k=0.32);
  Modelica.Blocks.Math.Division division;
  Modelica.Blocks.Math.Product product1;
  Modelica.Blocks.Sources.Constant const2(k=0.9);
  Modelica.Blocks.Math.Product product2;
  Modelica.Blocks.Math.Add add1(k2=-1);
equation 
  connect(YGLU, add3_1.u1);
  connect(YURU, add3_1.u2);
  connect(YMNU, add3_1.u3);
  connect(YKD, add.u1);
  connect(YND, add.u2);
  connect(add.y, product.u2);
  connect(const.y, product.u1);
  connect(product.y, add3_2.u2);
  connect(add3_1.y, add3_2.u1);
  connect(const1.y, add3_2.u3);
  connect(add3_2.y, division.u1);
  connect(OSMP, division.u2);
  connect(ADH, product1.u2);
  connect(const2.y, product1.u1);
  connect(product1.y, product2.u2);
  connect(division.y, add1.u1);
  connect(product2.y, add1.u2);
  connect(product2.u1, division.y);
  connect(add1.y, QWU);
end Diuresis;

IKEDA.UrineOsmolarity IKEDA.UrineOsmolarity

IKEDA.UrineOsmolarity

Connectors

TypeNameDescription
output RealOutputOSMU 
input RealInputYGLU 
input RealInputYURU 
input RealInputYMNU 
input RealInputYKU 
input RealInputYNU 
input RealInputQWU 

Modelica definition

model UrineOsmolarity


  Modelica.Blocks.Interfaces.RealOutput OSMU;
  Modelica.Blocks.Interfaces.RealInput YGLU;
  Modelica.Blocks.Interfaces.RealInput YURU;
  Modelica.Blocks.Interfaces.RealInput YMNU;
  Modelica.Blocks.Interfaces.RealInput YKU;
  Modelica.Blocks.Interfaces.RealInput YNU;
  Modelica.Blocks.Interfaces.RealInput QWU;
  Modelica.Blocks.Math.Add3 add3_1;
  Modelica.Blocks.Sources.Constant const(k=1.86);
  Modelica.Blocks.Math.Add add;
  Modelica.Blocks.Math.Product product;
  Modelica.Blocks.Math.Add add1;
  Modelica.Blocks.Math.Division division;
equation 
  connect(YURU, add3_1.u2);
  connect(YGLU, add3_1.u1);
  connect(YMNU, add3_1.u3);
  connect(const.y,product. u1);
  connect(YKU, add.u1);
  connect(YNU, add.u2);
  connect(add.y, product.u2);
  connect(product.y, add1.u2);
  connect(add3_1.y, add1.u1);
  connect(add1.y, division.u1);
  connect(division.y, OSMU);
  connect(QWU, division.u2);
end UrineOsmolarity;

IKEDA.STPG IKEDA.STPG

IKEDA.STPG

Connectors

TypeNameDescription
input RealInputPHA 
input RealInputYPO4 
input RealInputYORG 
input RealInputYTA 
output RealOutputSTPG 

Modelica definition

model STPG

  Modelica.Blocks.Interfaces.RealInput PHA;
  Modelica.Blocks.Interfaces.RealInput YPO4;
  Modelica.Blocks.Interfaces.RealInput YORG;
  Modelica.Blocks.Interfaces.RealInput YTA;
  Modelica.Blocks.Interfaces.RealOutput STPG;
  Yp yp;
  Modelica.Blocks.Math.Add3 add3_1(k3=-1);
equation 
  connect(PHA, yp.x);
  connect(YPO4, yp.YPO4);
  connect(add3_1.u1, YORG);
  connect(yp.Yp, add3_1.u2);
  connect(YTA, add3_1.u3);
  connect(STPG, STPG);
  connect(add3_1.y, STPG);
end STPG;

IKEDA.CalciumRenalExcretion IKEDA.CalciumRenalExcretion

IKEDA.CalciumRenalExcretion

Connectors

TypeNameDescription
input RealInputXCAE 
input RealInputGFR 
output RealOutputYCA 

Modelica definition

model CalciumRenalExcretion

  Modelica.Blocks.Interfaces.RealInput XCAE;
  Modelica.Blocks.Interfaces.RealInput GFR;
  Modelica.Blocks.Interfaces.RealOutput YCA;
  TresholdExcretion tresholdExcretion;
  Modelica.Blocks.Sources.Constant const(k=0.493);
equation 
  connect(XCAE, tresholdExcretion.X);
  connect(GFR, tresholdExcretion.GFR);
  connect(const.y, tresholdExcretion.TRSH);
  connect(tresholdExcretion.EXCR, YCA);
end CalciumRenalExcretion;

IKEDA.TresholdExcretion IKEDA.TresholdExcretion

IKEDA.TresholdExcretion

Connectors

TypeNameDescription
input RealInputGFR 
input RealInputTRSH 
output RealOutputEXCR 
input RealInputX 

Modelica definition

model TresholdExcretion

  Modelica.Blocks.Interfaces.RealInput GFR;
  Modelica.Blocks.Interfaces.RealInput TRSH;
  Modelica.Blocks.Interfaces.RealOutput EXCR;
  Modelica.Blocks.Math.Product product;
  Modelica.Blocks.Logical.LessEqual lessEqual;
  Modelica.Blocks.Interfaces.RealInput X;
  Modelica.Blocks.Logical.Switch switch1;
  Modelica.Blocks.Sources.Constant const(k=0);
  Modelica.Blocks.Math.Add add(k2=-1);
equation 
  connect(product.u1, GFR);
  connect(X, product.u2);
  connect(product.y, lessEqual.u1);
  connect(TRSH, lessEqual.u2);
  connect(lessEqual.y, switch1.u2);
  connect(const.y, switch1.u1);
  connect(add.u2, TRSH);
  connect(add.u1, product.y);
  connect(add.y, switch1.u3);
  connect(switch1.y, EXCR);
end TresholdExcretion;

IKEDA.MagnesiumRenalExcretion IKEDA.MagnesiumRenalExcretion

IKEDA.MagnesiumRenalExcretion

Connectors

TypeNameDescription
input RealInputXMGE 
input RealInputGFR 
output RealOutputYMG 

Modelica definition

model MagnesiumRenalExcretion

  Modelica.Blocks.Interfaces.RealInput XMGE;
  Modelica.Blocks.Interfaces.RealInput GFR;
  Modelica.Blocks.Interfaces.RealOutput YMG;
  TresholdExcretion tresholdExcretion;
  Modelica.Blocks.Sources.Constant const(k=0.292);
equation 
  connect(XMGE, tresholdExcretion.X);
  connect(GFR, tresholdExcretion.GFR);
  connect(const.y, tresholdExcretion.TRSH);
  connect(tresholdExcretion.EXCR, YMG);
end MagnesiumRenalExcretion;

IKEDA.SulphateRenalExcretion IKEDA.SulphateRenalExcretion

IKEDA.SulphateRenalExcretion

Connectors

TypeNameDescription
input RealInputXSO4 
input RealInputGFR 
output RealOutputYSO4 

Modelica definition

model SulphateRenalExcretion

  Modelica.Blocks.Interfaces.RealInput XSO4;
  Modelica.Blocks.Interfaces.RealInput GFR;
  Modelica.Blocks.Interfaces.RealOutput YSO4;
  TresholdExcretion tresholdExcretion;
  Modelica.Blocks.Sources.Constant const(k=0.08);
equation 
  connect(XSO4, tresholdExcretion.X);
  connect(GFR, tresholdExcretion.GFR);
  connect(const.y, tresholdExcretion.TRSH);
  connect(tresholdExcretion.EXCR, YSO4);
end SulphateRenalExcretion;

IKEDA.GlucoseRenalExcretion IKEDA.GlucoseRenalExcretion

IKEDA.GlucoseRenalExcretion

Connectors

TypeNameDescription
input RealInputXGLE 
input RealInputGFR 
output RealOutputYGLU 

Modelica definition

model GlucoseRenalExcretion

  Modelica.Blocks.Interfaces.RealInput XGLE;
  Modelica.Blocks.Interfaces.RealInput GFR;
  Modelica.Blocks.Interfaces.RealOutput YGLU;
  TresholdExcretion tresholdExcretion;
  Modelica.Blocks.Sources.Constant const(k=0.65);
equation 
  connect(XGLE, tresholdExcretion.X);
  connect(GFR, tresholdExcretion.GFR);
  connect(const.y, tresholdExcretion.TRSH);
  connect(tresholdExcretion.EXCR, YGLU);
end GlucoseRenalExcretion;

IKEDA.PhosphateRenalExcretion IKEDA.PhosphateRenalExcretion

IKEDA.PhosphateRenalExcretion

Connectors

TypeNameDescription
input RealInputXPO4 
input RealInputGFR 
output RealOutputYPO4 

Modelica definition

model PhosphateRenalExcretion

  Modelica.Blocks.Interfaces.RealInput XPO4;
  Modelica.Blocks.Interfaces.RealInput GFR;
  Modelica.Blocks.Interfaces.RealOutput YPO4;
  Modelica.Blocks.Sources.Constant const(k=0.11);
  Modelica.Blocks.Math.Product product;
  Modelica.Blocks.Math.Division division;
  Modelica.Blocks.Math.Add add(k2=-1);
  Modelica.Blocks.Logical.LessEqual lessEqual;
  Modelica.Blocks.Logical.Switch switch1;
  Modelica.Blocks.Math.Product product1;
  Modelica.Blocks.Sources.Constant const1(k=5);
  Modelica.Blocks.Sources.Constant const2(k=22);
  Modelica.Blocks.Sources.Constant const3(k=0.85);
equation 
  connect(XPO4, product.u2);
  connect(GFR, product.u1);
  connect(lessEqual.y, switch1.u2);
  connect(product.y, lessEqual.u1);
  connect(const.y, lessEqual.u2);
  connect(const1.y, product1.u1);
  connect(product1.u2, product.y);
  connect(const2.y, division.u2);
  connect(product1.y, division.u1);
  connect(switch1.u1, division.y);
  connect(const3.y, add.u2);
  connect(add.u1, product.y);
  connect(add.y, switch1.u3);
  connect(switch1.y, YPO4);
end PhosphateRenalExcretion;

IKEDA.OrganicAcidRenalExcretion IKEDA.OrganicAcidRenalExcretion

IKEDA.OrganicAcidRenalExcretion

Connectors

TypeNameDescription
input RealInputXOGE 
input RealInputGFR 
output RealOutputYORG 

Modelica definition

model OrganicAcidRenalExcretion

  Modelica.Blocks.Interfaces.RealInput XOGE;
  Modelica.Blocks.Interfaces.RealInput GFR;
  Modelica.Blocks.Interfaces.RealOutput YORG;
  Modelica.Blocks.Sources.Constant const(k=0.6);
  Modelica.Blocks.Math.Product product;
  Modelica.Blocks.Math.Division division;
  Modelica.Blocks.Math.Add add(k2=-1);
  Modelica.Blocks.Logical.LessEqual lessEqual;
  Modelica.Blocks.Logical.Switch switch1;
  Modelica.Blocks.Sources.Constant const1(k=3);
  Modelica.Blocks.Sources.Constant const2(k=60);
  Modelica.Blocks.Sources.Constant const3(k=0.19);
  Modelica.Blocks.Math.Division division1;
equation 
  connect(XOGE, product.u2);
  connect(GFR, product.u1);
  connect(lessEqual.y, switch1.u2);
  connect(product.y, lessEqual.u1);
  connect(const.y, lessEqual.u2);
  connect(const2.y, division.u2);
  connect(switch1.u1, division.y);
  connect(switch1.y, YORG);
  connect(division.u1, product.y);
  connect(const1.y, division1.u2);
  connect(division1.u1, product.y);
  connect(division1.y, add.u1);
  connect(const3.y, add.u2);
  connect(add.y, switch1.u3);
end OrganicAcidRenalExcretion;

IKEDA.BicarbonateRenalExcretion IKEDA.BicarbonateRenalExcretion

IKEDA.BicarbonateRenalExcretion

Information


Bicarbonate excretion

Connectors

TypeNameDescription
input RealInputXCO3 
input RealInputGFR 
output RealOutputYCO3 
input RealInputPCOA 

Modelica definition

model BicarbonateRenalExcretion

  Modelica.Blocks.Interfaces.RealInput XCO3;
  Modelica.Blocks.Interfaces.RealInput GFR;
  Modelica.Blocks.Interfaces.RealOutput YCO3;
  Modelica.Blocks.Sources.Constant const(k=0.6);
  Modelica.Blocks.Math.Product product;
  Modelica.Blocks.Math.Division division;
  Modelica.Blocks.Math.Add add(k2=-1);
  Modelica.Blocks.Logical.LessEqual lessEqual;
  Modelica.Blocks.Logical.Switch switch1;
  Modelica.Blocks.Sources.Constant const1(k=3);
  Modelica.Blocks.Sources.Constant const2(k=120);
  Modelica.Blocks.Sources.Constant const3(k=0.19);
  Modelica.Blocks.Math.Division division1;
  Modelica.Blocks.Interfaces.RealInput PCOA;
equation 
  connect(XCO3, product.u2);
  connect(GFR, product.u1);
  connect(YCO3, YCO3);
  connect(const2.y, division.u2);
  connect(PCOA, division.u1);
  connect(division.y, add.u2);
end BicarbonateRenalExcretion;

HTML-documentation generated by Dymola Mon Dec 28 18:26:31 2009.