Curve that touches three points: Difference between revisions

Realize in F#
(Added FreeBasic)
(Realize in F#)
Line 227:
[200, 10.000000]</pre>
 
=={{header|F_Sharp|F#}}==
===The function===
This task uses [[Lagrange_Interpolation#F#]]
<syntaxhighlight lang="fsharp">
// Curve that touches three points. Nigel Galloway: September 13th., 2023
open Plotly.NET
let points=let a=LIF([10;100;200],[10;200;10]).Expression in [10.0..200.0]|>List.map(fun n->(n,(Evaluate.evaluate (Map.ofList ["x",n]) a).RealValue))
Chart.Point(points)|>Chart.show
</syntaxhighlight>
{{out}}
[[File:C3p.png]]
=={{header|FreeBASIC}}==
{{trans|Ada}}
2,172

edits