Skip to main content
replaced http://mathematica.stackexchange.com/ with https://mathematica.stackexchange.com/
Source Link

Although Dr.belisariusDr.belisarius has given a solution, however, which lost the geometry continuty.

Although Dr.belisarius has given a solution, however, which lost the geometry continuty.

Although Dr.belisarius has given a solution, however, which lost the geometry continuty.

Notice removed Canonical answer required by user14452
Bounty Ended with Dr. belisarius's answer chosen by CommunityBot
added 515 characters in body
Source Link
xyz
  • 655
  • 4
  • 38
  • 117

Although Dr.belisariusDr.belisarius has given a solution, however, which lost the geometry continuty.

Although Dr.belisarius has given a solution, however, which lost the geometry continuty.

Although Dr.belisarius has given a solution, however, which lost the geometry continuty.

added 515 characters in body
Source Link
xyz
  • 655
  • 4
  • 38
  • 117
ClearAll["Global`*"];
ptv = Import["http://leaf.dragonflybsd.org/~beket/ptvegomptvgeom/ag1", "Table"]
ListSurfacePlot3D[ptv, AxesLabel -> {"x", "y", "z"}]

enter image description here


###Problem

Although Dr.belisarius has given a solution, however, which lost the geometry continuty.

enter image description here

In addition, the contour didn't pass the interpolating points.

f = BSplineFunction[Most /@ t[[1]]]
Show[{ListPlot[Most /@ gb[[1]], PlotTheme -> "Classic"], 
      ParametricPlot[f[t], {t, 0, 1}, PlotTheme -> "Classic"]}]

enter image description here

ClearAll["Global`*"];
ptv = Import["http://leaf.dragonflybsd.org/~beket/ptvegom/ag1", "Table"]
ListSurfacePlot3D[ptv, AxesLabel -> {"x", "y", "z"}]

enter image description here

ClearAll["Global`*"];
ptv = Import["http://leaf.dragonflybsd.org/~beket/ptvgeom/ag1", "Table"]
ListSurfacePlot3D[ptv, AxesLabel -> {"x", "y", "z"}]

enter image description here


###Problem

Although Dr.belisarius has given a solution, however, which lost the geometry continuty.

enter image description here

In addition, the contour didn't pass the interpolating points.

f = BSplineFunction[Most /@ t[[1]]]
Show[{ListPlot[Most /@ gb[[1]], PlotTheme -> "Classic"], 
      ParametricPlot[f[t], {t, 0, 1}, PlotTheme -> "Classic"]}]

enter image description here

Fix broken link
Source Link
stathisk
  • 3.1k
  • 22
  • 38
Loading
added 1 character in body
Source Link
xyz
  • 655
  • 4
  • 38
  • 117
Loading
Tweeted twitter.com/StackMma/status/711063664107847680
deleted 5 characters in body; edited tags
Source Link
xyz
  • 655
  • 4
  • 38
  • 117
Loading
Notice added Canonical answer required by user14452
Bounty Started worth 50 reputation by CommunityBot
Mod Removes Wiki by J. M.'s missing motivation
edited title
Link
Murta
  • 26.4k
  • 6
  • 77
  • 168
Loading
Tweak markup in ptv definition to imply that z-planes don't have the same number of points
Source Link
stathisk
  • 3.1k
  • 22
  • 38
Loading
Use better variable names in 'edit 2' code snippet
Source Link
stathisk
  • 3.1k
  • 22
  • 38
Loading
Trivial cosmetic fix in 'edit 2' code snippet
Source Link
stathisk
  • 3.1k
  • 22
  • 38
Loading
Tweak code in 'edit 2' snippet, plus update screenshot to match latest code
Source Link
stathisk
  • 3.1k
  • 22
  • 38
Loading
Fix indentation in 'edit 2' code snippet
Source Link
stathisk
  • 3.1k
  • 22
  • 38
Loading
Minor markup changes. No essential changes; Post Made Community Wiki
Source Link
stathisk
  • 3.1k
  • 22
  • 38
Loading
Some math markup fixes. No essential changes
Source Link
stathisk
  • 3.1k
  • 22
  • 38
Loading
Add code and screenshots (edit 2) on the investigation
Source Link
stathisk
  • 3.1k
  • 22
  • 38
Loading
Add MWE as per commenters' suggestion
Source Link
stathisk
  • 3.1k
  • 22
  • 38
Loading
Grammar, Language; no essential change
Source Link
stathisk
  • 3.1k
  • 22
  • 38
Loading
Grammar plus minor changes not affecting the essense of question
Source Link
stathisk
  • 3.1k
  • 22
  • 38
Loading