Skip to main content
Mathematica

Return to Question

edited tags
Link
Michael E2
Michael E2
  • 258.7k
  • 21
  • 370
  • 830
Fixed the question formation - missing auxiliary (or helping) verb - see e.g. <https://www.youtube.com/watch?v=t4yWEt0OSpg&t=1m49s> (see also <https://www.youtube.com/watch?v=kS5NfSzXfrI> (QUASM)). Removed historical information (the question should appear as if it was written right now).
Source Link
edit approved May 18, 2021 at 0:45
Peter Mortensen
edit approved May 18, 2021 at 0:45
Peter Mortensen
  • 765
  • 4
  • 7

How tocan I create an animation showing how a circular sector deformed to a cone?

I want to create the following animation with Mathematica.

enter image description hereEnter image description here

What is the simplest way to do so?

Edit

My first effort:

GenerateLines[a_, b_, r_, n_] :=  Table[r {Cos[\[Theta]], Sin[\[Theta]], 0}, {\[Theta], a, b, (b - a)/ n}]; basePts = GenerateLines[\[Pi]/6, 2 \[Pi] - \[Pi]/6, 3, 200]; peakPt = {{0, 0, 3}}; baseLine = Line@basePts; slantedLines = Line /@ Tuples[{basePts, peakPt}]; Graphics3D[{baseLine, slantedLines}]

enter image description hereEnter image description here

How to create an animation showing how a circular sector deformed to a cone?

I want to create the following animation with Mathematica.

enter image description here

What is the simplest way to do so?

Edit

My first effort:

GenerateLines[a_, b_, r_, n_] :=  Table[r {Cos[\[Theta]], Sin[\[Theta]], 0}, {\[Theta], a, b, (b - a)/ n}]; basePts = GenerateLines[\[Pi]/6, 2 \[Pi] - \[Pi]/6, 3, 200]; peakPt = {{0, 0, 3}}; baseLine = Line@basePts; slantedLines = Line /@ Tuples[{basePts, peakPt}]; Graphics3D[{baseLine, slantedLines}]

enter image description here

How can I create an animation showing how a circular sector deformed to a cone?

I want to create the following animation with Mathematica.

Enter image description here

What is the simplest way to do so?

My first effort:

GenerateLines[a_, b_, r_, n_] := Table[r {Cos[\[Theta]], Sin[\[Theta]], 0}, {\[Theta], a, b, (b - a)/ n}]; basePts = GenerateLines[\[Pi]/6, 2 \[Pi] - \[Pi]/6, 3, 200]; peakPt = {{0, 0, 3}}; baseLine = Line@basePts; slantedLines = Line /@ Tuples[{basePts, peakPt}]; Graphics3D[{baseLine, slantedLines}]

Enter image description here

Became Hot Network Question
Tweeted twitter.com/StackMma/status/1394352019071188994
added 472 characters in body
Source Link
Display Name
Display Name
  • 2.1k
  • 10
  • 19

I want to create the following animation with Mathematica.

enter image description here

What is the simplest way to do so?

Edit

My first effort:

GenerateLines[a_, b_, r_, n_] := Table[r {Cos[\[Theta]], Sin[\[Theta]], 0}, {\[Theta], a, b, (b - a)/ n}]; basePts = GenerateLines[\[Pi]/6, 2 \[Pi] - \[Pi]/6, 3, 200]; peakPt = {{0, 0, 3}}; baseLine = Line@basePts; slantedLines = Line /@ Tuples[{basePts, peakPt}]; Graphics3D[{baseLine, slantedLines}]

enter image description here

I want to create the following animation with Mathematica.

enter image description here

What is the simplest way to do so?

I want to create the following animation with Mathematica.

enter image description here

What is the simplest way to do so?

Edit

My first effort:

GenerateLines[a_, b_, r_, n_] := Table[r {Cos[\[Theta]], Sin[\[Theta]], 0}, {\[Theta], a, b, (b - a)/ n}]; basePts = GenerateLines[\[Pi]/6, 2 \[Pi] - \[Pi]/6, 3, 200]; peakPt = {{0, 0, 3}}; baseLine = Line@basePts; slantedLines = Line /@ Tuples[{basePts, peakPt}]; Graphics3D[{baseLine, slantedLines}]

enter image description here

Source Link
Display Name
Display Name
  • 2.1k
  • 10
  • 19