% plotmydatacheck (Version 2.0)
%
% Written by LeRoy W Alaways Version 1.0 Summer 2000 at Fastball Inc.
% lwalaways@mac.com Matlab R11
% Version 2.0 October 19, 2003
% Matlab R12/R13 6.5.0
%
% This program is designed to control the check box list in plotmydata.
%
function plotmydatacheck(flag)
global xflag yflag cflag mflag lflag columns
if flag < 99
if flag > (columns + 1)
flag = columns + 1;
end
xflag = flag;
set(findobj('tag','ckbx_value(1)'),'value',0)
set(findobj('tag','ckbx_value(2)'),'value',0)
set(findobj('tag','ckbx_value(3)'),'value',0)
set(findobj('tag','ckbx_value(4)'),'value',0)
set(findobj('tag','ckbx_value(5)'),'value',0)
set(findobj('tag','ckbx_value(6)'),'value',0)
set(findobj('tag','ckbx_value(7)'),'value',0)
set(findobj('tag','ckbx_value(8)'),'value',0)
set(findobj('tag','ckbx_value(9)'),'value',0)
set(findobj('tag','ckbx_value(10)'),'value',0)
set(findobj('tag','ckbx_value(11)'),'value',0)
set(findobj('tag','ckbx_value(12)'),'value',0)
set(findobj('tag','ckbx_value(13)'),'value',0)
set(findobj('tag','ckbx_value(14)'),'value',0)
set(findobj('tag','ckbx_value(15)'),'value',0)
set(findobj('tag','ckbx_value(16)'),'value',0)
set(findobj('tag','ckbx_value(17)'),'value',0)
set(findobj('tag','ckbx_value(18)'),'value',0)
set(findobj('tag','ckbx_value(19)'),'value',0)
set(findobj('tag','ckbx_value(20)'),'value',0)
set(findobj('tag','ckbx_value(21)'),'value',0)
set(findobj('tag','ckbx_value(22)'),'value',0)
set(findobj('tag','ckbx_value(23)'),'value',0)
set(findobj('tag','ckbx_value(24)'),'value',0)
set(findobj('tag','ckbx_value(25)'),'value',0)
set(findobj('tag','ckbx_value(26)'),'value',0)
if flag == 1
set(findobj('tag','ckbx_value(1)'),'value',1)
elseif flag == 2
set(findobj('tag','ckbx_value(2)'),'value',1)
elseif flag == 3
set(findobj('tag','ckbx_value(3)'),'value',1)
elseif flag == 4
set(findobj('tag','ckbx_value(4)'),'value',1)
elseif flag == 5
set(findobj('tag','ckbx_value(5)'),'value',1)
elseif flag == 6
set(findobj('tag','ckbx_value(6)'),'value',1)
elseif flag == 7
set(findobj('tag','ckbx_value(7)'),'value',1)
elseif flag == 8
set(findobj('tag','ckbx_value(8)'),'value',1)
elseif flag == 9
set(findobj('tag','ckbx_value(9)'),'value',1)
elseif flag == 10
set(findobj('tag','ckbx_value(10)'),'value',1)
elseif flag == 11
set(findobj('tag','ckbx_value(11)'),'value',1)
elseif flag == 12
set(findobj('tag','ckbx_value(12)'),'value',1)
elseif flag == 13
set(findobj('tag','ckbx_value(13)'),'value',1)
elseif flag == 14
set(findobj('tag','ckbx_value(14)'),'value',1)
elseif flag == 15
set(findobj('tag','ckbx_value(15)'),'value',1)
elseif flag == 16
set(findobj('tag','ckbx_value(16)'),'value',1)
elseif flag == 17
set(findobj('tag','ckbx_value(17)'),'value',1)
elseif flag == 18
set(findobj('tag','ckbx_value(18)'),'value',1)
elseif flag == 19
set(findobj('tag','ckbx_value(19)'),'value',1)
elseif flag == 20
set(findobj('tag','ckbx_value(20)'),'value',1)
elseif flag == 21
set(findobj('tag','ckbx_value(21)'),'value',1)
elseif flag == 22
set(findobj('tag','ckbx_value(22)'),'value',1)
elseif flag == 23
set(findobj('tag','ckbx_value(23)'),'value',1)
elseif flag == 24
set(findobj('tag','ckbx_value(24)'),'value',1)
elseif flag == 25
set(findobj('tag','ckbx_value(25)'),'value',1)
elseif flag == 26
set(findobj('tag','ckbx_value(26)'),'value',1)
else
%more flags
end
elseif flag < 199
if (flag - 100) > (columns + 1)
flag = columns + 101;
end
yflag = flag;
set(findobj('tag','ckbx_value(101)'),'value',0)
set(findobj('tag','ckbx_value(102)'),'value',0)
set(findobj('tag','ckbx_value(103)'),'value',0)
set(findobj('tag','ckbx_value(104)'),'value',0)
set(findobj('tag','ckbx_value(105)'),'value',0)
set(findobj('tag','ckbx_value(106)'),'value',0)
set(findobj('tag','ckbx_value(107)'),'value',0)
set(findobj('tag','ckbx_value(108)'),'value',0)
set(findobj('tag','ckbx_value(109)'),'value',0)
set(findobj('tag','ckbx_value(110)'),'value',0)
set(findobj('tag','ckbx_value(111)'),'value',0)
set(findobj('tag','ckbx_value(112)'),'value',0)
set(findobj('tag','ckbx_value(113)'),'value',0)
set(findobj('tag','ckbx_value(114)'),'value',0)
set(findobj('tag','ckbx_value(115)'),'value',0)
set(findobj('tag','ckbx_value(116)'),'value',0)
set(findobj('tag','ckbx_value(117)'),'value',0)
set(findobj('tag','ckbx_value(118)'),'value',0)
set(findobj('tag','ckbx_value(119)'),'value',0)
set(findobj('tag','ckbx_value(120)'),'value',0)
set(findobj('tag','ckbx_value(121)'),'value',0)
set(findobj('tag','ckbx_value(122)'),'value',0)
set(findobj('tag','ckbx_value(123)'),'value',0)
set(findobj('tag','ckbx_value(124)'),'value',0)
set(findobj('tag','ckbx_value(125)'),'value',0)
set(findobj('tag','ckbx_value(126)'),'value',0)
if flag == 101
set(findobj('tag','ckbx_value(101)'),'value',1)
elseif flag == 102
set(findobj('tag','ckbx_value(102)'),'value',1)
elseif flag == 103
set(findobj('tag','ckbx_value(103)'),'value',1)
elseif flag == 104
set(findobj('tag','ckbx_value(104)'),'value',1)
elseif flag == 105
set(findobj('tag','ckbx_value(105)'),'value',1)
elseif flag == 106
set(findobj('tag','ckbx_value(106)'),'value',1)
elseif flag == 107
set(findobj('tag','ckbx_value(107)'),'value',1)
elseif flag == 108
set(findobj('tag','ckbx_value(108)'),'value',1)
elseif flag == 109
set(findobj('tag','ckbx_value(109)'),'value',1)
elseif flag == 110
set(findobj('tag','ckbx_value(110)'),'value',1)
elseif flag == 111
set(findobj('tag','ckbx_value(111)'),'value',1)
elseif flag == 112
set(findobj('tag','ckbx_value(112)'),'value',1)
elseif flag == 113
set(findobj('tag','ckbx_value(113)'),'value',1)
elseif flag == 114
set(findobj('tag','ckbx_value(114)'),'value',1)
elseif flag == 115
set(findobj('tag','ckbx_value(115)'),'value',1)
elseif flag == 116
set(findobj('tag','ckbx_value(116)'),'value',1)
elseif flag == 117
set(findobj('tag','ckbx_value(117)'),'value',1)
elseif flag == 118
set(findobj('tag','ckbx_value(118)'),'value',1)
elseif flag == 119
set(findobj('tag','ckbx_value(119)'),'value',1)
elseif flag == 120
set(findobj('tag','ckbx_value(120)'),'value',1)
elseif flag == 121
set(findobj('tag','ckbx_value(121)'),'value',1)
elseif flag == 122
set(findobj('tag','ckbx_value(122)'),'value',1)
elseif flag == 123
set(findobj('tag','ckbx_value(123)'),'value',1)
elseif flag == 124
set(findobj('tag','ckbx_value(124)'),'value',1)
elseif flag == 125
set(findobj('tag','ckbx_value(125)'),'value',1)
elseif flag == 126
set(findobj('tag','ckbx_value(126)'),'value',1)
else
%more flags
end
elseif flag < 299
cflag = flag;
set(findobj('tag','ckbx_value(201)'),'value',0)
set(findobj('tag','ckbx_value(202)'),'value',0)
set(findobj('tag','ckbx_value(203)'),'value',0)
set(findobj('tag','ckbx_value(204)'),'value',0)
set(findobj('tag','ckbx_value(205)'),'value',0)
set(findobj('tag','ckbx_value(206)'),'value',0)
set(findobj('tag','ckbx_value(207)'),'value',0)
if flag == 201
set(findobj('tag','ckbx_value(201)'),'value',1)
elseif flag == 202
set(findobj('tag','ckbx_value(202)'),'value',1)
elseif flag == 203
set(findobj('tag','ckbx_value(203)'),'value',1)
elseif flag == 204
set(findobj('tag','ckbx_value(204)'),'value',1)
elseif flag == 205
set(findobj('tag','ckbx_value(205)'),'value',1)
elseif flag == 206
set(findobj('tag','ckbx_value(206)'),'value',1)
elseif flag == 207
set(findobj('tag','ckbx_value(207)'),'value',1)
else
%more flags
end
elseif flag < 399
mflag = flag;
set(findobj('tag','ckbx_value(301)'),'value',0)
set(findobj('tag','ckbx_value(302)'),'value',0)
set(findobj('tag','ckbx_value(303)'),'value',0)
set(findobj('tag','ckbx_value(304)'),'value',0)
set(findobj('tag','ckbx_value(305)'),'value',0)
set(findobj('tag','ckbx_value(306)'),'value',0)
set(findobj('tag','ckbx_value(307)'),'value',0)
if flag == 301
set(findobj('tag','ckbx_value(301)'),'value',1)
elseif flag == 302
set(findobj('tag','ckbx_value(302)'),'value',1)
elseif flag == 303
set(findobj('tag','ckbx_value(303)'),'value',1)
elseif flag == 304
set(findobj('tag','ckbx_value(304)'),'value',1)
elseif flag == 305
set(findobj('tag','ckbx_value(305)'),'value',1)
elseif flag == 306
set(findobj('tag','ckbx_value(306)'),'value',1)
elseif flag == 307
set(findobj('tag','ckbx_value(307)'),'value',1)
else
%more flags
end
else
lflag = flag;
set(findobj('tag','ckbx_value(401)'),'value',0)
set(findobj('tag','ckbx_value(402)'),'value',0)
set(findobj('tag','ckbx_value(403)'),'value',0)
set(findobj('tag','ckbx_value(404)'),'value',0)
set(findobj('tag','ckbx_value(405)'),'value',0)
if flag == 401
set(findobj('tag','ckbx_value(401)'),'value',1)
elseif flag == 402
set(findobj('tag','ckbx_value(402)'),'value',1)
elseif flag == 403
set(findobj('tag','ckbx_value(403)'),'value',1)
elseif flag == 404
set(findobj('tag','ckbx_value(404)'),'value',1)
elseif flag == 405
set(findobj('tag','ckbx_value(405)'),'value',1)
else
%more flags
end
end
