Clear a persistent variable in a MATLAB Fcn block as serial object

Question

Marco 2014-2-26

0
链接

此问题的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/119258-clear-a-persistent-variable-in-a-matlab-fcn-block-as-serial-object

回答： Ryan Livingston 2014-4-2

Hello! I am using following code for read data from serial port:

function y = fcn(u)
coder.extrinsic('only3')
coder.extrinsic('strncmp')
coder.extrinsic('serial', 'fopen','fread')
coder.extrinsic('get')
persistent s a b
y = uint8(zeros(2,1));  %signal is an uint8
   if isempty(s)
     % only do this the first time
      s = serial('COM12','Terminator','', 'InputBufferSize', 1024);
      a = '000';
      b = false;
      a = only3(get(s,'status'));
  b = strncmp(a,'clo',3);
      switch double(b)
      case 1
          fopen(s);
      otherwise
          fclose(s);
      end
  end
     y = uint8(fread(s,[2 1],'uint8'));

Where 'only3' is my function that takes only the first 3 chars from a string. The problem is that communication does not terminate with simulation stopping. Switch case has no effect (I thought that it shuts down reading after an other run). How can I clear persistent variable 's' and reset the block after stopping?

0 个评论
显示 -2更早的评论隐藏 -2更早的评论

请先登录，再进行评论。

请先登录，再回答此问题。

Answer 1

Paul 2014-2-26

0
链接

此回答的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/119258-clear-a-persistent-variable-in-a-matlab-fcn-block-as-serial-object#answer_126270

在 MATLAB Online 中打开

clear fcn

1 个评论
显示 -1更早的评论隐藏 -1更早的评论

Marco 2014-2-27

在 MATLAB Online 中打开

I tried that but it returns an error:

Open failed: Port: COM12 is not available. No ports are available. Use INSTRFIND to determine if other instrument objects are connected to the requested device. Block Gyro/Serial Read (#59) While executing: State During Action

where #59 points to 'fopen(s)' command

请先登录，再进行评论。

Answer 2

Friedrich 2014-2-27

0
链接

此回答的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/119258-clear-a-persistent-variable-in-a-matlab-fcn-block-as-serial-object#answer_126340

编辑：Friedrich 2014-2-27

Hi,

A MATLAB FCN Block is a bad idea here. Better would be a MATLAB LVL 2 S-function because you can better control your serial port. In the mdlStart you create your serial object and later in the mdlTerminate you close it propperly. In the mdlOutputs you calculate the signal as usual.

6 个评论
显示 4更早的评论隐藏 4更早的评论

Marco 2014-2-27

在 MATLAB Online 中打开

serread_sfun.m

Of course, I used this content http://www.mathworks.it/matlabcentral/fileexchange/25478-serialio-mex

but I edited that because it did not work: (sorry for file instead code but question editor does not allow me to write a so long code); where before execution I must run this script to load configurations:

clear all ;
%For write operation
serobjw = serial('COM12') ;           % Creating serial port object now its connected to COM12
%Set connection properties
serobjw.Baudrate = 9600;      % Set the baud rate at the specific value
set(serobjw, 'Parity', 'none') ;     % Set parity as none
set(serobjw, 'Databits', 8) ;        % set the number of data bits
set(serobjw, 'StopBits', 1) ;        % set number of stop bits as 1
set(serobjw, 'Terminator', '') ; % set the terminator value to newline
set(serobjw, 'OutputBufferSize', 16) ;   % Buffer for write operation, default it is 512
set(serobjw,'InputBufferSize',16);
get(serobjw) ;       
fopen(serobjw) ;
get(serobjw, 'Status')                 % Gets the status of connection if 'open' connection was established

Data arrives after some lag. I do not know if it is a "packing problem" (the sender have a int16 data and I convert/re-convert it using byte-pack/unpack block, fut with a MATLAB Fcn it works in real time.

Marco 2014-2-28

在 MATLAB Online 中打开

Are you saying that I have to modify mdlInitializeSizes section as:

    function [sys,x0,str,ts]=mdlInitializeSizes(stime)
global s
  s = serial('COM12');
  fopen(s)
    sizes = simsizes;
    sizes.NumContStates  = 0;
  sizes.NumDiscStates  = 0;
  sizes.NumOutputs     = 2;
  sizes.NumInputs      = 0;
  sizes.DirFeedthrough = 1;
  sizes.NumSampleTimes = 1;   % at least one sample time is needed
sys = simsizes(sizes);
x0  = [];
str = [];
ts  = [stime 0];
   end