Wolfram Language Paclet Repository
Community-contributed installable additions to the Wolfram Language
QuantumMob`DrawingTools`
LineToCable  |
|
| | ||||
Details and Options
Examples
(1)
Basic Examples
(1)
In[1]:=
line=Table[{x,0.2*Sin[x*Pi],0},{x,0,3,0.05}];
In[2]:=
Graphics3D
[line,"Radius"0.1]
 | LineToCable |
Out[2]=
In[3]:=
poly={{0,3,-1},{0,3,1},{0,-3,1},{0,-3,-1}}/5
Out[3]=
0,,-,0,,,0,-,,0,-,-
3
5
1
5
3
5
1
5
3
5
1
5
3
5
1
5
In[4]:=
Graphics3D[Polygon[poly]]
Out[4]=
In[5]:=
Graphics3DEdgeForm[],{Red,Polygon[poly]},
[line,"Shape"poly]
 | LineToCable |
Out[5]=
In[6]:=
rf3=Module{R=10,L=26,W=16,thick=3,dat,d=0.5,t},dat[1]={{d,W,0.5thick},{(L-R)*0.95,W,0.5thick},{L-R,W,0.5thick}};dat[2]=Table[{L-R,W-R,0.5thick}+{R*Sin[t],R*Cos[t],0},{t,0,Pi/2,Pi/100}];dat[3]={{L,(W-R)*1.05,0.5thick}};dat[1]=Join[dat[1],dat[2],dat[3]];dat[2]=Map[{1,-1,1}*#&,dat[1]];dat[2]=Reverse[dat[2]];dat[1]=Join[dat[1],dat[2]];dat[2]=Map[{-1,1,1}*#&,dat[1]];dat[2]=Reverse[dat[2]];dat[1]=Join[dat[1],dat[2]];dat[1]=Map[{11,0,0}+#&,dat[1]];dat[2]={{0.5thick,3,0},{-0.5thick,3,0},{-0.5thick,-3,0},{0.5thick,-3,0}};
[dat[1],"Shape"dat[2]];
 | LineToCable |
In[7]:=
Graphics3D[{EdgeForm[],rf3}]
Out[7]=
 |
|
""