From 5c1c6665fba2cd76b75f05c7c9c621461b7518ef Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Thu, 1 May 2025 12:27:50 +0200 Subject: aircraft-studio, redux. --- lib/naca/naca5.ml | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 lib/naca/naca5.ml (limited to 'lib/naca/naca5.ml') diff --git a/lib/naca/naca5.ml b/lib/naca/naca5.ml new file mode 100644 index 0000000..865f3ec --- /dev/null +++ b/lib/naca/naca5.ml @@ -0,0 +1,18 @@ +(* -*- mode: tuareg; -*- *) + +type naca5 = { l : float; p : float; s : int; t : float } + +(** Implementation for NACA 5-digit airfoil generation *) + +let generate_coordinates (naca_num : string) = + (* Logic for generating 5-digit NACA airfoil coordinates *) + naca_num + +(* type naca4 = { m : float; p : float; t : float } *) + +let parse_naca5 (naca_num : string) = + let l = String.sub naca_num 0 1 |> float_of_string |> ( *. ) 0.15 in + let p = String.sub naca_num 1 1 |> float_of_string |> ( *. ) 0.05 in + let s = String.sub naca_num 2 2 |> int_of_string in + let t = String.sub naca_num 2 2 |> float_of_string |> ( *. ) 0.01 in + { l; p; s; t } -- cgit v1.2.3