Agilent 33120A User's Guide

Chapter 6 Application ProgramsDownloading an Arbitrary Waveform over RS-232. . . continued’’ Calculate data points’PRINT "Calculating Data Points..."pi = 3.1415FOR I = 1 TO npntswaveform(I) = EXP(DAMPFACTOR * I / npnts) * SIN(2 * pi * NCYCLES * I / npnts)NEXT I’’ Download data points to volatile memory’PRINT "Downloading Arb..."PRINT #1, "DATA VOLATILE,";FOR I = 1 TO npnts - 1PRINT #1, STR$(waveform(I)) + ",";NEXT IPRINT #1, STR$(waveform(npnts))’PRINT #1, "*OPC?" ’ Wait for download to completeLINE INPUT #1, resp$PRINT "Download Complete"PRINT #1, "DATA:COPY DAMP_SIN, VOLATILE" ’ Copy to non-volatile memoryPRINT #1, "FUNC:USER DAMP_SIN"’ Select the active arbPRINT #1, "FUNC:SHAP USER"’ Output the selected arbPRINT #1, "*OPC?" LINE INPUT #1, resp$PRINT "Program Complete"ENDEnd of Program 56269