daily pastebin goal
66%
SHARE
TWEET

Untitled

a guest Feb 13th, 2018 66 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. [<EntryPoint>]
  2. let main argv =
  3.     high_lvl_funcs.print_opt
  4.     let opt = Console.ReadLine()
  5.     match opt with
  6.     | "0" -> printfn "%A" (high_lvl_funcs.calculate_NDL)
  7.     | "1" -> printfn ("not implemented yet")
  8.     | _ -> printfn "%A is not an option" opt
  9.    
  10. let print_opt =
  11.     let options = [|"NDL"; "Deco"|]
  12.     printfn "Enter the number of the option you want"
  13.     Array.iteri (fun i x -> printfn "%A: %A" i x) options
  14.  
  15. let calculate_NDL =
  16.     printfn ("enter Depth in m")
  17.     let depth = lfuncs.m_to_absolute(float (Console.ReadLine()))
  18.     printfn ("enter amount of N2 in gas (assuming o2 is the rest)")
  19.     let fn2 = float (Console.ReadLine())
  20.     let table = lfuncs.read_table
  21.     let tissue = lfuncs.create_initialise_Tissues ATM WATERVAPOUR
  22.     lfuncs.calc_NDL depth fn2 table lfuncs.loading_constantpressure tissue 0.0
  23.  
  24. lfuncs.calc_NDL returns a float
  25.    
  26. Enter the number of the option you want
  27. 0: "NDL"
  28. 1: "Deco"
  29. enter Depth in m
  30.    
  31. Enter the number of the option you want
  32.     0: "NDL"
  33.     1: "Deco"
RAW Paste Data
Top