HP VXI 75000 C Series, User'S And Scpi Programming Manual

Page: 382 / 438

382 Generating User Defined Functions Appendix F
/* Note that alg:scal? won’t execute until alg:upd is done */
for ( radians = -pi/2.0; radians < pi/2.0; r= pi / 10.0 ) {
INST_SEND(e1415, "alg:scal ’alg1’,’radians’,%f\n", radians);
INST_SEND(e1415, "alg:upd\n");
INST_QUERY(e1415, "alg:scal? ’alg1’,’y’\n", "%f", &y);
printf( "’C’ sin(%f): %f, ’E1415A’ sin(%f): %f\n",radians,
(float32)sin((float64)radians), radians, y);
}
}
#if 1 /* Set to 1 if using User interactive commands to E1415 */
/* Call this function if you want to be able to type SCPI commands and
* see their responses. NOTE: switch to FORM,ASC to retrieve
* ASCII numbers during interactive mode.
*/
INST_SEND(e1415,"form asc\n");
do_interactive(); /* Calls cscpi_exe() in a loop */
#endif
#if 0
/* C-CSPI way to check for errors */
INST_QUERY(e1415,"syst:err?\n", "%d,%S", &error, string);
if (error) {
(void) printf("syst:err %d,%s\n", error, string);
exit(1);
}
#endif
return 0; /* Normal end of program */
}
#if 0
Example of results from program:
’C’ sin(-1.570798): -1.000000, ’E1415A’ sin(-1.570798): -0.999905
’C’ sin(-1.256639): -0.951057, ’E1415A’ sin(-1.256639): -0.950965
’C’ sin(-0.942479): -0.809018, ’E1415A’ sin(-0.942479): -0.808944
’C’ sin(-0.628319): -0.587786, ’E1415A’ sin(-0.628319): -0.587740
’C’ sin(-0.314160): -0.309017, ’E1415A’ sin(-0.314160): -0.308998
’C’ sin(0.000000): 0.000000, ’E1415A’ sin(0.000000): 0.000000
’C’ sin(0.314160): 0.309017, ’E1415A’ sin(0.314160): 0.308998
’C’ sin(0.628319): 0.587786, ’E1415A’ sin(0.628319): 0.587740
’C’ sin(0.942479): 0.809018, ’E1415A’ sin(0.942479): 0.808944
’C’ sin(1.256639): 0.951057, ’E1415A’ sin(1.256639): 0.950965
’C’ sin(1.570798): 1.000000, ’E1415A’ sin(1.570798): 0.999905
#endif