I like to write second and third lines repeated operation only once as a separate module with some Name. In each main program line a set of different set boundary conditions data is given,Name invoked and plots obtained. How to do such a short code? ( *Manipulate* needs constant increments).

```
    ydi=.6;yi=1.2;Omega=.77;
    NDSolve[{Y''[t]+Omega^2 Y[t]==0,Y'[0]==ydi,Y[0]==yi},Y,{t,0,Pi}];
    y[u_]=Y[u]/.First[%];Plot[{y'[t],y''[t]},{t,0,Pi},PlotLabel->  {"\[Omega],yi,ydi = ",Omeg,yi,ydi}]
    ydi=-.4;yi=1.4;Omega=-.88;
    NDSolve[{Y''[t]+Omega^2 Y[t]==0,Y'[0]==ydi,Y[0]==yi},Y,{t,0,Pi}];
    y[u_]=Y[u]/.First[%];Plot[{y'[t],y''[t]},{t,0,Pi},PlotLabel->  {"\[Omega],yi,ydi = ",Omeg,yi,ydi}]
    ydi=.12;yi=1.6;Omega=.99;
    NDSolve[{Y''[t]+Omega^2 Y[t]==0,Y'[0]==ydi,Y[0]==yi},Y,{t,0,Pi}];
    y[u_]=Y[u]/.First[%];Plot[{y'[t],y''[t]},{t,0,Pi},PlotLabel->  {"\[Omega],yi,ydi = ",Omeg,yi,ydi}]

```