3D Streamtube Plots in F#
How to make 3D streamtube plots in F# with Plotly.
Plotly is known for its graphing libraries, but it's also a broader ecosystem for building interactive data apps, AI data analysis tools, and deploying and hosting Dash apps. Explore the full set of tools and platforms designed to help turn data into action. Discover Plotly.
Note: We are retiring documentation for R, MATLAB, Julia, and F#. Learn more about this change here.
In [1]:
#r "nuget: Plotly.NET, 2.0.0-preview.6"
#r "nuget: Plotly.NET.Interactive, 2.0.0-preview.6"
#r "nuget: FSharp.Data"
In [ ]:
Basic Streamtube Plot¶
In [2]:
open System
open Plotly.NET
open FSharp.Data
let x=[0; 0; 0]
let y=[0; 1; 2]
let z=[0; 0; 0]
let u=[0; 0; 0]
let v=[1; 1; 1]
let w=[0; 0; 0]
let margin =Margin.init(Left =20.0, Bottom=20.0,Top =20.0, Right = 20.0 )
let layout = Layout.init( Margin=margin)
let streamtube3d =
Trace3d.initStreamTube (fun streamtube3d ->
streamtube3d?x <- x
streamtube3d?y <-y
streamtube3d?z <-z
streamtube3d?u <- u
streamtube3d?v <-v
streamtube3d?w <-w
streamtube3d?sizeref <- 0.3
streamtube3d?colorscale <- "Portland"
streamtube3d?showscale <- false
streamtube3d?maxdisplayed <- 3000
streamtube3d
)
|> GenericChart.ofTraceObject
|> Chart.withLayout layout
In [3]:
streamtube3d
Out[3]:
Starting Position and Segments¶
In [4]:
open System
open Plotly.NET
open FSharp.Data
type DFI = CsvProvider<"https://raw.githubusercontent.com/plotly/datasets/master/streamtube-wind.csv">
let df1 = DFI.Load("https://raw.githubusercontent.com/plotly/datasets/master/streamtube-wind.csv")
let x=[for row in df1.Rows do row.X]
let y=[for row in df1.Rows do row.Y]
let z=[for row in df1.Rows do row.Z]
let u=[for row in df1.Rows do row.U]
let v=[for row in df1.Rows do row.V]
let w=[for row in df1.Rows do row.W]
let margin =Margin.init(Left =20.0, Bottom=20.0,Top =20.0, Right = 20.0 )
let layout = Layout.init( Margin=margin)
In [5]:
let streamtube3d =
Trace3d.initStreamTube (fun streamtube3d ->
streamtube3d?x <- x
streamtube3d?y <-y
streamtube3d?z <-z
streamtube3d?u <- u
streamtube3d?v <-v
streamtube3d?w <-w
streamtube3d?sizeref <- 0.3
streamtube3d?colorscale <- "Portland"
streamtube3d?showscale <- false
streamtube3d?maxdisplayed <- 3000
streamtube3d
)
|> GenericChart.ofTraceObject
|> Chart.withLayout layout
In [6]:
streamtube3d
Out[6]: