mirror of
https://github.com/LCPQ/quantum_package
synced 2024-08-30 16:13:42 +02:00
14 lines
336 B
OCaml
14 lines
336 B
OCaml
|
let test_point3d_1 () =
|
||
|
let input = "7.4950000 -0.1499810 0.5085570" in
|
||
|
let p3d = Point3d.of_string input in
|
||
|
print_string (Point3d.to_string p3d)
|
||
|
;;
|
||
|
|
||
|
let test_point3d () =
|
||
|
let p1 = Point3d.of_string "1. 2. 3."
|
||
|
and p2 = Point3d.of_string "-2. 1. 1.5" in
|
||
|
Printf.printf "%f\n" (Point3d.distance p1 p2)
|
||
|
;;
|
||
|
|
||
|
test_point3d ();
|