Update to BioPatRec TRE

BioPatRec.m

@@ -1,32 +1,32 @@
-% ---------------------------- Copyright Notice ---------------------------
-% This file is part of BioPatRec © which is open and free software under 
-% the GNU Lesser General Public License (LGPL). See the file "LICENSE" for 
-% the full license governing this code and copyrights.
-%
-% BioPatRec was initially developed by Max J. Ortiz C. at Integrum AB and 
-% Chalmers University of Technology. All authors’ contributions must be kept
-% acknowledged below in the section "Updates % Contributors". 
-%
-% Would you like to contribute to science and sum efforts to improve 
-% amputees’ quality of life? Join this project! or, send your comments to:
-% maxo@chalmers.se.
-%
-% The entire copyright notice must be kept in this or any source file 
-% linked to BioPatRec. This will ensure communication with all authors and
-% acknowledge contributions here and in the project web page (optional).
-%
-% -------------------------- Function Description -------------------------
-% BioPatRec is a research platform for testing and development of
-% algorithms for prosthetic control. This function call the main GUI.
-% For more information and documention visit:
-% http://code.google.com/p/biopatrec/
-%
-% ------------------------- Updates & Contributors ------------------------
-% 2009-04-02 / Max Ortiz  / Creation of EMG_AQ
-% 2011-22-06 / Max Ortiz  / Software name changed from EMG_AQ to BioPatRec
-
-close all;
-clear all;
-
-%EMG_AQ
-GUI_BioPatRec;
+% ---------------------------- Copyright Notice ---------------------------
+% This file is part of BioPatRec © which is open and free software under 
+% the GNU Lesser General Public License (LGPL). See the file "LICENSE" for 
+% the full license governing this code and copyrights.
+%
+% BioPatRec was initially developed by Max J. Ortiz C. at Integrum AB and 
+% Chalmers University of Technology. All authors’ contributions must be kept
+% acknowledged below in the section "Updates % Contributors". 
+%
+% Would you like to contribute to science and sum efforts to improve 
+% amputees’ quality of life? Join this project! or, send your comments to:
+% maxo@chalmers.se.
+%
+% The entire copyright notice must be kept in this or any source file 
+% linked to BioPatRec. This will ensure communication with all authors and
+% acknowledge contributions here and in the project web page (optional).
+%
+% -------------------------- Function Description -------------------------
+% BioPatRec is a research platform for testing and development of
+% algorithms for prosthetic control. This function call the main GUI.
+% For more information and documention visit:
+% http://code.google.com/p/biopatrec/
+%
+% ------------------------- Updates & Contributors ------------------------
+% 2009-04-02 / Max Ortiz  / Creation of EMG_AQ
+% 2011-22-06 / Max Ortiz  / Software name changed from EMG_AQ to BioPatRec
+
+close all;
+clear all;
+
+%EMG_AQ
+GUI_BioPatRec;

Comm/AFE/Acquire_tWs.m

@@ -0,0 +1,68 @@
+% ---------------------------- Copyright Notice ---------------------------
+% This file is part of BioPatRec © which is open and free software under 
+% the GNU Lesser General Public License (LGPL). See the file "LICENSE" for 
+% the full license governing this code and copyrights.
+%
+% BioPatRec was initially developed by Max J. Ortiz C. at Integrum AB and 
+% Chalmers University of Technology. All authors’ contributions must be kept
+% acknowledged below in the section "Updates % Contributors". 
+%
+% Would you like to contribute to science and sum efforts to improve 
+% amputees’ quality of life? Join this project! or, send your comments to:
+% maxo@chalmers.se.
+%
+% The entire copyright notice must be kept in this or any source file 
+% linked to BioPatRec. This will ensure communication with all authors and
+% acknowledge contributions here and in the project web page (optional).
+% ------------------- Function Description ------------------
+% Function to Record Exc Sessions
+%
+% --------------------------Updates--------------------------
+% 2015-1-12 / Enzo Mastinu / Divided the RecordingSession function into
+                            % several functions: ConnectDevice(),
+                            % SetDeviceStartAcquisition(),
+                            % Acquire_tWs(), StopAcquisition(). This functions 
+                            % has been moved to COMM/AFE folder, into this new script.
+
+% 20xx-xx-xx / Author  / Comment
+
+
+
+% It acquire tWs samples from the selected device
+function cData = Acquire_tWs(deviceName, obj, nCh, tWs)
+ 
+    cData     = zeros(tWs,nCh);                                            % this is the data structure that the function must return
+    ampPP = 0.0005;
+    offVector = 0:nCh-1;
+    offVector = offVector .* ampPP;
+    
+    
+    %%%%% ADS1299 %%%%%
+    if strcmp(deviceName, 'ADS1299')
+        LSBweight = double(4.5/(24*8388607));                              % ADS1299: if gain is set on 24 V/V
+        for sampleNr = 1:tWs
+            % 27bytes package mode
+            byteData = fread(obj,27,'char');                               % Acquire 27 bytes packet from Tiva (and from ADS1299), 3 status bytes + 3 byte (24bit) for each channel
+            value = [65536 256 1]*reshape(byteData(4:end), 3, 8);          % all channels data are now available on value vector, byteData(4:end) means throw away status bytes
+            for k = 1:nCh  
+                if value(k) > 8388607                                      % the data must be converted from 2's complement
+                    value(k) = value(k) - 2^24;
+                end
+                cData(sampleNr,k) = value(k) * LSBweight;                  
+            end 
+        end
+    end
+   
+   %%%%% INTAN RHA2216 %%%%%
+   if strcmp(deviceName, 'RHA2216')   
+       LSBweight = double(2.5/(200*65535));                                % Intan differential gain is 200 V/V
+        for sampleNr = 1:tWs                  
+            value16 = fread(obj,nCh,'uint16');
+            for k = 1:nCh
+%                 cData(sampleNr,k) = value16(k) - 16384;                  % Centers data and scales it to fit the graphs
+                cData(sampleNr,k) = value16(k)*LSBweight;                  % Convert data into volt
+            end
+        end 
+   end
+   
+end

Comm/AFE/ConnectDevice.m

@@ -0,0 +1,88 @@
+% ---------------------------- Copyright Notice ---------------------------
+% This file is part of BioPatRec © which is open and free software under 
+% the GNU Lesser General Public License (LGPL). See the file "LICENSE" for 
+% the full license governing this code and copyrights.
+%
+% BioPatRec was initially developed by Max J. Ortiz C. at Integrum AB and 
+% Chalmers University of Technology. All authors’ contributions must be kept
+% acknowledged below in the section "Updates % Contributors". 
+%
+% Would you like to contribute to science and sum efforts to improve 
+% amputees’ quality of life? Join this project! or, send your comments to:
+% maxo@chalmers.se.
+%
+% The entire copyright notice must be kept in this or any source file 
+% linked to BioPatRec. This will ensure communication with all authors and
+% acknowledge contributions here and in the project web page (optional).
+% ------------------- Function Description ------------------
+% Function to Record Exc Sessions
+%
+% --------------------------Updates--------------------------
+% 2015-1-12 / Enzo Mastinu / Divided the RecordingSession function into
+                            % several functions: ConnectDevice(),
+                            % SetDeviceStartAcquisition(),
+                            % Acquire_tWs(), StopAcquisition(). This functions 
+                            % has been moved to COMM/AFE folder, into this new script.
+                            
+
+% 20xx-xx-xx / Author  / Comment
+
+
+
+% it creates IP object and sets the buffersize depending on the device that has been chose
+function obj = ConnectDevice(handles)
+
+    deviceName  = handles.deviceName;
+    ComPortType = handles.ComPortType;
+    if strcmp(ComPortType, 'COM')
+        ComPortName = handles.ComPortName;
+    end
+    sF          = handles.sF;
+    sT          = handles.sT;
+    nCh         = handles.nCh;
+    sTall       = handles.sTall;
+    
+    % Delete previous connection objects
+    if exist('obj')
+        fclose(obj);
+        delete(obj);
+    end
+
+    %%%%% WiFi %%%%%
+    if strcmp(ComPortType, 'WiFi')
+        %%%%% TI ADS1299 %%%%%
+        if strcmp(deviceName, 'ADS1299')
+           obj = tcpip('192.168.100.10',65100,'NetworkRole','client');     % WIICOM                       
+           obj.InputBufferSize = sTall*sF*27;                              % 27bytes data package
+        end
+        %%%%% INTAN RHA2216 %%%%%
+        if strcmp(deviceName, 'RHA2216')
+            obj = tcpip('192.168.100.10',65100,'NetworkRole','client');    % WIICOM
+            obj.InputBufferSize = sT*sF*nCh*2;  
+        end
+    end
+
+    %%%%% COM %%%%%
+    if strcmp(ComPortType, 'COM')
+        %%%%% TI ADS1299 %%%%%
+        if strcmp(deviceName, 'ADS1299')
+           obj = serial (ComPortName, 'baudrate', 2500000, 'databits', 8, 'byteorder', 'bigEndian');                       
+           obj.InputBufferSize = sTall*sF*27;                              % 27bytes data package
+        end
+        %%%%% INTAN RHA2216 %%%%%
+        if strcmp(deviceName, 'RHA2216')
+            obj = serial (ComPortName, 'baudrate', 1250000, 'databits', 8, 'byteorder', 'bigEndian');
+            obj.InputBufferSize = sT*sF*nCh*2;
+        end
+    end     
+
+    % Open the connection
+    fopen(obj);
+
+    % Read available data and discard it
+    if obj.BytesAvailable > 1
+        fread(obj,obj.BytesAvailable,'uint8');       
+    end    
+%     disp(obj);
+    
+end