The following script was used to generate the animations in chapter 2.1. Replace the word "data" with the actual data points from the dataset.
>with(plots):
>display([seq(PLOT3D(POINTS(["data"]),AXESSTYLE(NORMAL),STYLE(POINT),AXESLABELS(Ang_Velocity,Ang_Velocity,Mag_Field),SYMBOL(CIRCLE,5),COLOR(ZHUE),SCALING(CONSTRAINED),VIEW(-500..500,-500..500,0..90),ORIENTATION(45,3*n)),n=0..120)],insequence=true);
The camera was rotated using the calling sequence
ORIENTATION in Maple.