Mathematica test

a=2^200

list1={1,1,3,0,1};
list2={1,1,1};
ListLinePlot[list1(*,Filling->Axis*)]

list1[[2]];

Join[list1,list2]

Graphics

f[x_]:=Sin[1-x^2];
f'[x]

Plot[{f[x],f'[x]},{x,-2,3},Filling->{1->{2}},PlotStyle->{Thick,Automatic,Red,Dashed}]

b={{0,0},{1,0},{2,4},{4,2}}; (*polygon*)
ParametricPlot[{Cos[3t],Sin[2t]},{t,0,10}];

plot1=Graphics[Line[b]];

ParametricPlot3D[{Cos[30t],Sin[t],t},{t,-3,3}]

B - Splines

Graphics[{BSplineCurve[b],Green,Line[b],Red,Point[b]}];
c={{0,0,0},{1,0,0},{1,1,1},{2,0,1},{3,2,2}};
Graphics3D[{BSplineCurve[c],Green,Line[c],Red,Point[c]}]