O2-CO2 Transport and Exchange

to setup
  ca
    if (Scenario = "Normal")  ;; setting parameters for different scenarios
  [
    set F-slider 1.0
    set PS-O_1-slider 0.2
    set PS-O_2-slider 0.012
    set PS-alv-slider 0.2
    set PS-C_1-slider 1.0
    set PS-C_2-slider 0.2
    set GCair-slider 0.03
    set RQ-slider 1.0
    set Vcytox-slider 1.25
    set Kcytox-slider 0.5
    set O-11-slider 40
    set O-12-slider 100
    set O-21-slider 20
    set O-22-slider 10
    set C-11-slider 0
    set C-12-slider 0
    set C-21-slider 0
    set C-22-slider 60
    set Cin-slider 105
    set stop-timer? true
     ]

   if (Scenario = "ARDS")
  [
    set F-slider 1.0
    set PS-O_1-slider 0.02
    set PS-O_2-slider 0.025
    set PS-alv-slider 0.08
    set PS-C_1-slider 1.0
    set PS-C_2-slider 0.2; 1.0
    set GCair-slider 0.03
    set RQ-slider 1.0
    set Vcytox-slider 1.25; 1.0
    set Kcytox-slider 0.5
    set O-11-slider 40
    set O-12-slider 100
    set O-21-slider 20
    set O-22-slider 10
    set C-11-slider 0
    set C-12-slider 0
    set C-21-slider 0
    set C-22-slider 60
    set Cin-slider 105
    set stop-timer? true
     ]

   if (Scenario = "Hyperoxia")
  [
    set F-slider 1.0
    set PS-O_1-slider 0.2
    set PS-O_2-slider 0.005
    set PS-alv-slider 0.2
    set PS-C_1-slider 1.0
    set PS-C_2-slider 0.2
    set GCair-slider 0.03
    set RQ-slider 1.0
    set Vcytox-slider 1.25
    set Kcytox-slider 0.5
    set O-11-slider 40
    set O-12-slider 100
    set O-21-slider 20
    set O-22-slider 10
    set C-11-slider 0
    set C-12-slider 0
    set C-21-slider 0
    set C-22-slider 60
    set Cin-slider 290
    set stop-timer? true
     ]

   if (Scenario = "Cyanide-poisoning")
  [
    set F-slider 0.4
    set PS-O_1-slider 0.2
    set PS-O_2-slider 0.01
    set PS-alv-slider 0.2
    set PS-C_1-slider 1.0
    set PS-C_2-slider 1.0
    set GCair-slider 0.03
    set RQ-slider 1.0
    set Vcytox-slider 0.1
    set Kcytox-slider 0.5
    set O-11-slider 40
    set O-12-slider 100
    set O-21-slider 20
    set O-22-slider 10
    set C-11-slider 0
    set C-12-slider 0
    set C-21-slider 0
    set C-22-slider 60
    set Cin-slider 100
    set stop-timer? true
     ]

    system-dynamics-setup
end 

to go

  if stop-timer? = true and ticks >= 50000 [stop]     ;; setting the condition to stop running
                                                      ;; the model after 50000 ticks, if respective
  system-dynamics-do-plot                             ;; switch is on
  system-dynamics-go

 tick
end