p1=Graphics3D[Tube[BSplineCurve[{{-2,-1,0},{-1,0,0},{-0.2,0,0},{0,0,0},{0.2,0,0},{1,0,0},{2,1,0}}]],
Axes->True,AxesLabel->{Style["x",FontFamily->"Times",FontSize->25],Style["y",FontFamily->"Times",FontSize->25],Style["z",FontFamily->"Times",FontSize->25]},PlotRange->{{-1,1},{-0.5,1.5},{-1,1}},
BaseStyle->{FontFamily->"Times",FontSize->10},
ViewPoint->{0.1674281061708244`,0.16337406628136747`,3.3756890768746377`},ViewVertical->{0.019979340572156`,0.8370188405870118`,0.5468091865108672`}];
p2=Graphics3D[{Red,Thickness[0.005],Arrow[Tube[{{0,0,0},{0.6,0,0}},0.02]]}];
p3=Graphics3D[{Blue,Thickness[0.005],Arrow[Tube[{{0,0,0},{0.3,0.52,0}},0.02]]}];
p4=Graphics3D[{Dashed,Line[{{0,0,0},{0.75,1.3,0}}]}];
p5=Graphics3D[{RGBColor[0.2,0.8,0.2],Sphere[{0.75,1.3,0},0.02],Line[{{0,0,0},{0.75,1.3,0}}]}];
Show[p1,p2,p3,p4,p5]

p1=Graphics3D[Tube[BSplineCurve[{{-2,-1,0},{-1,0,0},{-0.2,0,0},{0,0,0},{0.2,0,0},{1,0,0},{2,1,0}}]],
Boxed->False,Axes->False,AxesLabel->{Style["x",FontFamily->"Times",FontSize->20],Style["y",FontFamily->"Times",FontSize->20],Style["z",FontFamily->"Times",FontSize->20]},
ViewPoint->{0.16742810617082443`,0.16337406628136747`,3.3756890768746377`},
ViewVertical->{0.019979340572156`,0.8370188405870118`,0.5468091865108672`}];
p2=Graphics3D[{Red,Thickness[0.005],Arrow[Tube[{{0,0,0},{1.0,0,0}},0.02]]}];
p3=Graphics3D[{LightBlue,Thickness[0.005],Arrow[Tube[{{0,0,0},{0.5,0.866,0}},0.02]]}];
p4=Graphics3D[{Dashed,Line[{{0,0,0},{0.75,1.3,0}}]}];
p5=Graphics3D[{RGBColor[0.2,0.8,0.2],Sphere[{0.75,1.3,0},0.03],Line[{{0,0,0},{0.75,1.3,0}}]}];
p6=Graphics3D[{Gray,CapForm["Square"],Tube[{{-0.05,0,0},{0.05,0,0}},0.03]}];
Show[p1,p2,p3,p4,p3,p5]

p1=Graphics3D[Tube[BSplineCurve[{{-2,-1,0},{-1,0,0},{-0.2,0,0},{0,0,0},{0.2,0,0},{1,0,0},{2,1,0}}]],
Boxed->True,Axes->True,AxesLabel->{Style["x",FontFamily->"Times",FontSize->20],Style["y",FontFamily->"Times",FontSize->20],Style["z",FontFamily->"Times",FontSize->25]},PlotRange->{{-1,1},{-0.5,1.5},{-1,1}},
BaseStyle->{FontFamily->"Times",FontSize->10},ImageSize->8*72,
ViewPoint->Top];
p2=Graphics3D[{Red,Thickness[0.005],Arrow[Tube[{{0,0,0},{1.0,0,0}},0.02]]}];
p3=Graphics3D[{LightBlue,Thickness[0.005],Arrow[Tube[{{0,0,0},{0.5,0.866,0}},0.02]]}];
p4=Graphics3D[{Dashed,Line[{{0.5,0.866,0},{0.75,1.3,0}}]}];
p5=Graphics3D[{RGBColor[0.2,0.8,0.2],Sphere[{0.75,1.3,0},0.03],Line[{{0,0,0},{0.75,1.3,0}}]}];
p6=Graphics3D[{Gray,CapForm["Square"],Tube[{{0.011,0,0},{0.012,0,0}},0.03]}];
p7=Graphics3D[{RGBColor[0.2,0.2,0.8],Sphere[{0,0,0},0.03]}];
pfinal3=Show[p1,p2,p3,p4,p5,p6]

//Options

Export["/run/media/gilfoyle/USB DISK/132s25/examples/18o/biotSavartFig7.png",pfinal3]

p1=Graphics3D[Tube[BSplineCurve[{{-2,-1,0},{-1,0,0},{-0.2,0,0},{0,0,0},{0.2,0,0},{1,0,0},{2,1,0}}]],
Boxed->True,Axes->True,AxesLabel->{Style["x",FontFamily->"Times",FontSize->20],Style["y",FontFamily->"Times",FontSize->20],Style["z",FontFamily->"Times",FontSize->20]},PlotRange->{{-1,1},{-0.5,1.5},{-1,1}},
BaseStyle->{FontFamily->"Times",FontSize->10},ImageSize->8*72,ViewPoint->{2.7842268402197803`,1.2299103888683545`,1.4783102981287346`},ViewVertical->{0.22358951518966635`,0.9676029745821917`,0.1172698267967697`}
];
p2=Graphics3D[{Red,Thickness[0.005],Arrow[Tube[{{0,0,0},{1.0,0,0}},0.02]]}];
p3=Graphics3D[{LightBlue,Thickness[0.005],Arrow[Tube[{{0,0,0},{0.5,0.866,0}},0.02]]}];
p4=Graphics3D[{Dashed,Line[{{0.5,0.866,0},{0.75,1.3,0}}]}];
p5=Graphics3D[{RGBColor[0.2,0.8,0.2],Sphere[{0.75,1.3,0},0.03],Line[{{0,0,0},{0.75,1.3,0}}]}];
p6=Graphics3D[{Gray,CapForm["Square"],Tube[{{0.011,0,0},{0.012,0,0}},0.03]}];
p7=Graphics3D[{RGBColor[0.2,0.2,0.8],Sphere[{0,0,0},0.03]}];
p8=Graphics3D[{Orange,Thickness[0.005],Arrow[Tube[{{0.75,1.3,0},{0.75,1.3,0.5}},0.02]]}];
pfinal4=Show[p1,p2,p3,p4,p5,p6,p8]

Export["/run/media/gilfoyle/USB DISK/132s25/examples/18o/biotSavartFig5.png",pfinal4]

//Options

//Options

//Options

//Options

//Options

v1={0.75,1.3,0};
v2={1.0,0,0};
Cross[v1,v2]