NAME

Lab::Instrument::IPS120_10 - IPS120-10 superconducting magnet power supply

SYNOPSIS

    use Lab::Instrument::IPS120_10;
    
    my $hp22=new Lab::Instrument::IPS120_10(0,22);

DESCRIPTION

CONSTRUCTORS

new($gpib_board,$gpib_addr)

METHODS

set_control($mode)

 # 0 Local & Locked
 # 1 Remote & Locked
 # 2 Local & Unlocked
 # 3 Remote & Unlocked

set_communications_protocol($mode)

 # 0 "Normal" (default)
 # 2 Sends <LF> after each <CR>
 # 4 Extended Resolution
 # 6 Extended Resolution. Sends <LF> after each <CR>.

read_parameter($parameter)

 # 0 Demand current (output current)    amp
 # 1 Measured power supply voltage      volt
 # 2 Measured magnet current            amp
 # 3 -
 # 4 -
 # 5 Set point (target current)         amp
 # 6 Current sweep rate                 amp/min
 # 7 Demand field (output field)        tesla
 # 8 Set point (target field)           tesla
 # 9 Field sweep rate                   tesla/minute
 #10 - 14 -
 #15 Software voltage limit             volt
 #16 Persistent magnet current          amp
 #17 Trip current                       amp
 #18 Persistent magnet field            tesla
 #19 Trip field                         tesla
 #20 Switch heater current              milliamp
 #21 Safe current limit, most negative  amp
 #22 Safe current limit, most positive  amp
 #23 Lead resistance                    milliohm
 #24 Magnet inductance                  henry

set_activity($activity)

 # 0 Hold
 # 1 To Set Point
 # 2 To Zero
 # 4 Clamp (clamp the power supply output)

set_switch_heater($mode)

 # 0 Heater Off                     (close switch)
 # 1 Heater On if PSU=Magnet        (open switch)
 #  (only perform operation
 #   if recorded magnet current==present power supply output current)
 # 2 Heater On, no Checks           (open switch)

set_target_current($current)

set_target_field($field)

set_mode($mode)

 #      Display     Magnet Sweep
 # 0    Amps        Fast
 # 1    Tesla       Fast
 # 4    Amps        Slow
 # 5    Tesla       Slow
 # 8    Amps        Unaffected
 # 9    Tesla       Unaffected

set_polarity($polarity)

 # 0 No action
 # 1 Set positive current
 # 2 Set negative current
 # 3 Swap polarity

set_current_sweep_rate($rate)

 amps/min

set_field_sweep_rate($rate)

 testa/min

CAVEATS/BUGS

probably many

SEE ALSO

Lab::Instrument

The IPS120_10 uses the Lab::Instrument class (Lab::Instrument).

AUTHOR/COPYRIGHT

This is $Id: IPS120_10.pm 85 2005-11-10 23:35:43Z schroeer $

Copyright 2004 Daniel Schröer (http://www.danielschroeer.de)

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

cpanm Lab::Instrument

perl -MCPAN -e shell
install Lab::Instrument