From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

AKHUETTEL / Lab-Measurement-3.930 / examples / Sweeps / gate-vna.pl 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
—
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111

              
#PODNAME: gate-vna.pl
#ABSTRACT: Gate voltage sweep with VNA spectrum at each point
use 5.010;
use Lab::Moose;
#Sample description
my $sample = 'mysample'; #chip name
#set parameters at devices of the setup
my $gatestart = 0;
my $gateend = 8;
my $stepwidth = 0.02; #stepwidth at gateyoko
my $vna_bw = 10;
my $vna_power = -20;
#instruments
my $vna = instrument(
    type               => 'RS_ZVA',
    connection_type    => 'VXI11',
    connection_options => { host => '192.168.3.27' },
);
# IF bandwidth (Hz)
$vna->sense_bandwidth_resolution( value => $vna_bw );
$vna->sense_sweep_points(value => 1000);
$vna->sense_frequency_start(value => 10e6);
$vna->sense_frequency_stop(value => 150e6);
$vna->source_power_level_immediate_amplitude( value => $vna_power );
my $gateyoko = instrument(
    type => 'YokogawaGS200',
    connection_type => 'LinuxGPIB',
    connection_options => {pad => 2},
    # möglichst kleine Werte
    max_units_per_step => 0.005,
    max_units_per_second => 0.1,
    min_units => -10,
    max_units => 10,
);
#sweep
my $sweep = sweep(
    type       => 'Step::Voltage',
    instrument => $gateyoko,
    delay_in_loop => 0.05,
    from => $gatestart, to => $gateend, step => $stepwidth
);
#datafile
my $datafile = sweep_datafile(columns => [qw/Vg frq Re Im Amp phi/]);
$datafile->add_plot(
type => 'pm3d',
x => 'Vg',
y => 'frq',
z => 'Amp',
);
#measurement
my $meas = sub {
 my $sweep = shift;
  
 my $pdl = $vna->sparam_sweep( timeout => 300 );
 my $Vg = $gateyoko->cached_level();
  
 $sweep->log_block(
        prefix => {Vg => $Vg},
        block => $pdl,
    );
};
#run
$sweep->start(
    measurement => $meas,
    datafile    => $datafile,
    folder => $sample.'_gatevna',
    date_prefix => 1,
    datafile_dim => 2,
    point_dim => 1,
);
__END__
=pod
=encoding UTF-8
=head1 NAME
gate-vna.pl - Gate voltage sweep with VNA spectrum at each point
=head1 VERSION
version 3.930
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2025 by the Lab::Measurement team; in detail:
  Copyright 2022       Andreas K. Huettel, 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.
=cut