Arb.zip_MATLAB scpi_Waveform_generator_scpi arb_实现scpi

'The purpose of this SCPI text file is to demonstrate how to generate an 'a voltage waveform with the Advanced Power System N7900 series using remote commands. 'The N7900 series provides to methods to generate complex votlage or current waveforms: '-->Arbitrary Waveform: allows you to create a voltage or current waveform 'using up to 64k points and a constant dwell time '-->List transient: allows you to create a voltage or current waveform up 'to 512 points for each point you define a separate dwell time Connect to the N7900 dynamic DC power supply 'reset to start at known state *RST 'Identify the N7900 you are connected *IDN? string= read string 'keep the output relays closed OUTP:REL:LOCK ON 'set voltage level to 20V, current level to maximum, and turn output on VOLT 20 CURR MAX OUTP ON 'First example will use the arbitrary waveoform mode. set arb function to Constant dewell arb. 'Set to repeat infinitly and for a voltage waveform ARB:FUNC:SHAP CDW ARB:COUN INF VOLT:MODE ARB 'build an interrupt voltag pulse that has a fast fall time and steps back 'up to 20V in 5V steps. Each point's dwell time set to 1 ms ARB:VOLT:CDW 20,20,20,20,20,20,0,0,0,5,10,15,20,20,20,20,20,20,20,20,20 ARB:VOLT:CDW:DWEL .001 'set the arb trig source to bus.Initiate the transient subsystem (arb) so all it needs is a trigger to 'start.Trigger the arb TRIG:ARB:SOUR BUS INIT:TRAN *TRG 'Setup voltage digitizer to measure resulting waveform. Set the sample rate to 5 us, sample count to 10,000, 'trigger source to voltage, and trigger level 10 volts on positive slope SENS:SWE:TINT 0.000005 SENS:SWE:POIN 10000 TRIG:ACQ:SOUR VOLT1 TRIG:ACQ:VOLT 10 TRIG:ACQ:VOLT:SLOP Pos,(@1) 'Initiate measurement trigger INIT:ACQ 'sleep or delay until measurement is complete sleep(.1) 'Request the measured voltage points and read them FETC:ARR:VOLT? voltWaveform = read 'Plot digitized waveform plot(voltWaveform) 'Now create an example List waveform, which will be similar to the arb 'waveform but the rise and fall aspects of the interrupt pulse have been swaped 'start at known state *RST 'keep the output relays closed OUTP:REL:LOCK ON 'set voltage level to 20V, current level to maximum, and turn output on VOLT 20 CURR MAX OUTP ON 'Put into voltage list mode and set for infinite repeat VOLT:MODE LIST LIST:COUN INF 'create a list that generates a voltage interrupt on a 20V DC level. the 'falling edge of the interrupt is stepped down in 5V intervals. The rising 'edge of the interrupt is as fast as the power supply can go. 'create the list of voltage levels for the interrupt and the corresponding dwell times 'for each voltage level LIST:VOLT 20,15,10,5,0 LIST:DWELL .015,.001,.001,.001,.003 'Terminate list at set output voltage LIST:TERM:LAST OFF 'set the list trig source to bus.Initiate the transient subsystem so all it needs is a trigger to 'start.Trigger the list TRIG:TRAN:SOUR BUS INIT:TRAN *TRG 'Setup voltage digitizer to measure resulting waveform. Set the sample rate to 5 us, sample count to 10,000, 'trigger source to voltage, and trigger level 10 volts on positive slope SENS:SWE:TINT 0.000005 SENS:SWE:POIN 10000 TRIG:ACQ:SOUR VOLT1 TRIG:ACQ:VOLT 10 TRIG:ACQ:VOLT:SLOP Pos,(@1) 'Initiate measurement trigger INIT:ACQ 'sleep or delay until measurement is complete sleep(.1) 'Request the measured voltage points and read them FETC:ARR:VOLT? voltWaveform = read 'Plot digitized waveform plot(voltWaveform) 'turn off transient subsystem and power supply output ABORt:TRAN OUTP OFF