function [status,datafiles] = writelevel(filename,datafiles)
% print count of renamings.
%datafiles=cell(10,10);
s=signal(filename);
str=history(s);
if ~isempty(datafiles)
m=length(datafiles(:,1))
function name=getlastentry(datafiles,row)
if isempty(datafiles)
name='';
else
name=char(datafiles(row));
for i=1:length(datafiles(1,:))
if ~strcmp(datafiles(row,i),'')
name=char(dataf
function rs = realifft(data, N)
% inverse fft for fourier coefficents from real valued original data
% needs the length of the original time series from which the fft was computed
% see also : realf
function rs = realfft(data)
% fft for real valued data, returns only the necessary
% fourier coefficients
N = length(data);
rs = fft(data(:));
if mod(N,2) % odd length
nh = (N+1)/2; % N = 5
function n = tsndims(data)
% function s = tsndims(data)
% Replacement for ndims
% Returns one for a columns vector
% Two for a matrix/row vector
n = length(tssize(data));
// ExtractingFilePath.cpp
#include "StdAfx.h"
#include "ExtractingFilePath.h"
static void ReplaceDisk(UString &s)
{
int i;
for (i = 0; i < s.Length(); i++)
if (s[i] != ' ')
b
