matpva/mpvaPut_test_script.m at master · slaclab/matpva · GitHub

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
%% Matlab script to test mpvaPut.m

% -----------------------------------------------------------------------------
% Title      : mpvaPut test script
% -----------------------------------------------------------------------------
% File       : mpvaPut_test_script.m
% Author     : Kuktae Kim, ktkim@slac.stanford.edu
% Created    : 2023-11-02
% Last update: 2023-11-02
% -----------------------------------------------------------------------------
% Description:
% Matlab script to test mpvaPut function.
% -----------------------------------------------------------------------------
% This file is part of matpva. It is subject to the license terms in the
% LICENSE.txt file found in the top-level directory of this distribution
% and at: https://confluence.slac.stanford.edu/display/ppareg/LICENSE.html.
% No part of matpva, including this file, may be copied, modified,
% propagated, or distributed except according to the terms contained in
% the LICENSE.txt file.
% -----------------------------------------------------------------------------
% Test Scalar PV Values
IntValue    = 3;
FloatValue  = 7.7;
BoolValue   = true;
ByteValue   = 123;
ShortValue  = 35;
StringValue = "test string";

% Put Test Scalar PV Values
mpvaPut("TEST:PVA:IntValue", IntValue, "mpvaDebugOn")
mpvaPut("TEST:PVA:FloatValue", FloatValue, "mpvaDebugOn")
mpvaPut("TEST:PVA:BoolValue", BoolValue, "mpvaDebugOn")
mpvaPut("TEST:PVA:ByteValue", ByteValue, "mpvaDebugOn")
mpvaPut("TEST:PVA:ShortValue", ShortValue, "mpvaDebugOn")
mpvaPut("TEST:PVA:StringValue", StringValue, "mpvaDebugOn")

% Test Array PV Values
ai = [1, 2, 3, 4, 5, 6];
ah = [0, 1, 1, 0, 0, 0, 1, 1, 0];
af = [1.5, 2.5, 3.5, 4.5, 5.5, 6.7];
ad = [11.5, 22.5, 33.5, 44.5, 55.5, 66.5];
ab = [true, false, true, false, true];
as = ["One", "Two", "Three", "Four", "Five"];

% Put Test Array PV Values
mpvaPut("TEST:PVA:IntArray", ai, "mpvaDebugOn")
mpvaPut("TEST:PVA:ShortArray", ah, "mpvaDebugOn")
mpvaPut("TEST:PVA:DoubleArray", ad, "mpvaDebugOn")
mpvaPut("TEST:PVA:FloatArray", af, "mpvaDebugOn")
mpvaPut("TEST:PVA:BoolArray", ab, "mpvaDebugOn")
mpvaPut("TEST:PVA:StringArray", as, "mpvaDebugOn")

% Test NTTable PV Values
Name    = ["test1", "test2", "test3", "test4"];
Number  = [1, 2, 3, 4];

% Put Test NTTable PV Values
mpvaPut("TEST:PVA:NTTable", "name", Name, "number", Number, "mpvaDebugOn")

% Test TWISS NTTable PV Values
Element     = ["SOL9000", "XC99", "YC99", "ZC99"];
Device_name = ["SOL:IN20:111", "XCOR:IN20:112", "YCOR:IN20:113", "ZCOR:IN20:114"];
S           = [1, 2, 3, 4];
Z           = [10, 11, 12, 13];
Length      = [100, 200, 300, 400];
P0C         = [6, 16, 26, 36];
Alpha_x     = [0.1, 0.2, 0.3, 0.4];
Beta_x      = [0.1, 0.2, 0.3, 0.4];
Eta_x       = [0.1, 0.2, 0.3, 0.4];
Etap_x      = [0.1, 0.2, 0.3, 0.4];
Psi_x       = [0.1, 0.2, 0.3, 0.4];
Alpha_y     = [0.1, 0.2, 0.3, 0.4];
Beta_y      = [0.1, 0.2, 0.3, 0.4];
Eta_y       = [0.1, 0.2, 0.3, 0.4];
Etap_y      = [0.1, 0.2, 0.3, 0.4];
Psi_y       = [0.1, 0.2, 0.3, 0.4];

% Put Test TWISS NTTable PV Values
mpvaPut("TBLEM:SYS0:1:CU_HXR:LIVE:TWISS", "element", Element, "device_name", Device_name, "s", S, "z", Z, ...
    "length", Length, "p0c", P0C, "alpha_x", Alpha_x, "beta_x", Beta_x, "eta_x", Eta_x, "etap_x", Etap_x, ...
    "psi_x", Psi_x, "alpha_y", Alpha_y, "beta_y", Beta_y, "eta_y", Eta_y, "etap_y", Etap_y, "psi_y", Psi_y, "mpvaDebugOn")