The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

 / 
Lab-Measurement-3.920
River stage zero No dependents
/ Lab::Moose::Instrument::Cryomagnetics_4G

NAME

Lab::Moose::Instrument::Cryomagnetics_4G - Cryomagnetics 4G superconducting magnet power supply

VERSION

version 3.920

SYNOPSIS


            

              
              
use Lab::Moose;
# Constructor
my $magnet = instrument(
    type => 'Cryomagnetics_4G',
    connection_type => 'VISA::GPIB',
    connection_options => {'gpib_address' => 10}
);

METHODS

LOW-LEVEL DEVICE METHODS

get_imag


            

              
              
my $value = $magnet->get_imag();

Uses either Amps or kilo Gauss, depending on units setting.

get_iout


            

              
              
my $value = $magnet->get_iout();

Uses either Amps or kilo Gauss, depending on units setting.

set_llim/get_llim


            

              
              
$magnet->set_llim(value => 10);
my $value = $magnet->get_llim();

Uses either Amps or kilo Gauss, depending on units setting.

local

$magnet->local();

get_mode


            

              
              
my $mode = $magnet->get_mode();

Possible return values: Shim, Manual

set_pshtr/get_pshtr


            

              
              
$magnet->set_pshtr(value => 0);
my $value = $magnet->get_pshtr();

Returns 0 or 1.

set_range/get_range


            

              
              
$magnet->set_range(select => 1, limit => 2); # 2 Amps
my $range = $magnet->get_range(select => 1);

select is in range 0,..,4.

set_rate/get_rate


            

              
              
$magnet->set_rate(range => 1, rate => 0.001); # 1mA / sec 
my $rate = $magnet->get_rate(range => 1);

range is in range 0,...5, where 5 specifies the rate in fast sweep mode. rate arg is given in Amps per second.

set_sweep/get_sweep


            

              
              
$magnet->set_sweep(value => 'UP');
$magnet->set_sweep(value => 'UP FAST'); # with switch heater off
my $mode = $magnet->get_sweep();

value is one off 'UP', 'UP FAST', 'DOWN', 'DOWN FAST', 'PAUSE', 'ZERO', 'LIMIT'

set_ulim/get_ulim


            

              
              
$magnet->set_ulim(value => 10);
my $value = $magnet->get_ulim();

Uses either Amps or kilo Gauss, depending on units setting.

set_units/get_units


            

              
              
$magnet->set_units(value => 'A'); # use Amps
$magnet->set_units(value => 'G'); # use kiloGauss
my $units = $magnet->get_units(); # 'A' or 'G'

set_vlim/get_vlim


            

              
              
$magnet->set_vlim(value => 2); # 2V
my $vlim = $magnet->get_vlim();

get_vmag


            

              
              
my $vmag = $magnet->get_vmag();

get_vout


            

              
              
my $vmag = $magnet->get_vout();

Consumed Roles

This driver consumes the following roles:

Lab::Moose::Instrument::Common

COPYRIGHT AND LICENSE

This software is copyright (c) 2024 by the Lab::Measurement team; in detail:


            

              
              
Copyright 2022-2023  Simon Reinhardt

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