(formatted as a .wl package file). (* ::Package:: *) (* ::Title:: *) (*Spiral phase plate*) (* ::Input:: *) (*spp=Module[{num=20,aux,aux2,i=0,step=0.01,offset=0...