string-arrays - different behavior of{} in Win2000 and debian linux

[Joerg Schreiber]

Hi everybody,

ee.m worked on octave for win2000, but on debian-linux I get this error.

where can I find help about how to work with string-cell-arrays, I have 
a lot of problems there and dont know which kind of brackets () {}  I 
have to use when.


octave:9> ee
uhrload = 0.0036120
error: string cannot be indexed with {
error: evaluating assignment expression near line 19, column 7
error: evaluating if command near line 17, column 1
error: evaluating for command near line 16, column 1
error: near line 34 of file `/home/jsch/matlab/ee.m'

> | GNU Octave, version 2.1.50 (i386-pc-linux-gnu).
> | Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003 John W. Eaton.
>
> | 


thanks, best regards

Jörg Schreiber

mailto:address@hidden
address@hidden <http://www.p-21.de/>

a33
Description: Binary data

 clear
%fid = fopen('euc03o.txt'),a=[]
%for i=1:33*8,a=[a;fscanf( fid , "%s'" )];end
%b{i}=a,b{i,:}=a
%end
%save a33 a
tic
load a33
uhrload=toc
%Pl Name Ort BielZeit / Pkt.    AlbZeit / Pkt.  RLZeit / Pkt.   CeljeZeit / 
Pkt.        MnisekZeit / Pkt.       Summe Zeitdiff.[s]      AusgewählteRennen   
    AK      AK-Platz
%load euc15

le=length(a);
tn=le/8;
tic
for tt=1:tn
if (tt>9 & tt<16)|sum(tt==[19 20 22 23 18])>0,c=num2str(tt);, name(tt,1:3)=[c ' 
'];
elseif sum(tt==[8])>0,c=num2str(tt);, name(tt,1:2)=[c ' '];
else b= a{2+(tt-1)*8,:};c=num2str(tt);
name(tt,1:length(c)+length(b))=[c b];;end
zbiel{tt,:}=str2num(a{4+(tt-1)*8,1:2})+str2num(a{4+(tt-1)*8,4:5})/60+str2num(a{4+(tt-1)*8,7:8})/3600;
zrenn{tt,:}=str2num(a{6+(tt-1)*8,2})+str2num(a{6+(tt-1)*8,4:5})/60+str2num(a{6+(tt-1)*8,7:8})/3600;
zalb{tt,:}=str2num(a{5+(tt-1)*8,1})+str2num(a{5+(tt-1)*8,3:4})/60+str2num(a{5+(tt-1)*8,6:7})/3600;
zcelj{tt,:}=str2num(a{7+(tt-1)*8,1:2})+str2num(a{7+(tt-1)*8,4:5})/60+str2num(a{7+(tt-1)*8,7:8})/3600;
%fak1=z1(i1)./m(i1)';fak1=mean(fak1)

zmnis{tt,:}=str2num(a{8+(tt-1)*8,1})+str2num(a{8+(tt-1)*8,3:4})/60+str2num(a{8+(tt-1)*8,6:7})/3600;
if tt==1
tt;zmnis;zcelj;
stund1=str2num(a{8+(tt-1)*8,1})
str2num(a{8+(tt-1)*8,3:4})/60
zmnis{tt,:};
end
end
%pause
zeitrech=toc,tic
%zalb(7)=nan

siegzbiel=7+7/60;
zbiel(find(zbiel==0))=nan;
zalb(find(zalb==0))=nan;
zrenn(find(zrenn==0))=nan;
zmnis(find(zmnis==0))=nan;
zcelj(find(zcelj==0))=nan;
z1=zmnis;z2=zrenn;z3=zcelj;z4=zalb;

ia=find(~isnan(sum([zbiel zalb]')));
ir=find(~isnan(sum([zbiel zrenn]')));
ic=find(~isnan(sum([zbiel zcelj]')));
i1b=find(~isnan(sum([zbiel zmnis]')));
i1=find(~isnan(([ zmnis]')));
i2=find(~isnan(([ z2]')));
i3=find(~isnan(([ z3]')));
i4=find(~isnan(([ z4]')));
ibiel=find(~isnan(([ zbiel]')));

i12=find(~isnan(sum([zrenn zmnis]')));
i23=find(~isnan(sum([zrenn zcelj]')));
i13=find(~isnan(sum([zcelj zmnis]')));
i14=find(~isnan(sum([zalb zmnis]')));
i24=find(~isnan(sum([zalb zrenn]')));
 8.61040,  3.75158
i34=find(~isnan(sum([zalb zcelj]')));
fakalb=zbiel(ia)\zalb(ia)
fakalbl=mean(zalb(ia)./zbiel(ia))
fakrenn=zbiel(ir)\zrenn(ir)
fakrennl=1/mean(zbiel(ir)./zrenn(ir))
fak1=zbiel(i1b)\z1(i1b)
fak3=zbiel(ic)\z3(ic)
fak1l=1/mean(zbiel(i1b)./z1(i1b))
fak3l=1/mean(zbiel(ic)./z3(ic))

fak=[1 0 0 0;0 1 0 0;0  0 1 0;0 0 0 1;1 -z2(i12)\z1(i12) 0 0;1 0 
-z3(i13)\z1(i13) 0;...
1 0 0 -z4(i14)\z1(i14);0 1 0 -z4(i24)\z2(i24);0 0 1 -z4(i34)\z3(i34);0 1 
-z3(i23)\z2(i23) 0]\...
[zbiel(i1b)\zmnis(i1b);zbiel(ir)\zrenn(ir);...
zbiel(ic)\zcelj(ic);zbiel(ia)\zalb(ia);0;0;0;0;0;0]


%fak=[fak1 fakrenn fak3 fakalb]
pause

%z2(i12)\z1(i12),v12=fak(1)/fak(2),z3(i23)\z2(i23),v23=fak(2)/fak(3)
%z3(i13)\z1(i13),v13=fak(1)/fak(3),z4(i14)\z1(i14),v14=fak(1)/fak(4)
%z4(i24)\z2(i24),v24=fak(2)/fak(4),z4(i34)\z3(i34),v34=fak(3)/fak(4)
fakrech=toc
automatic_replot=1;
for tt=1:tn
%disp(name{tt,1:16}),
%disp([ z1(tt)/fak(1), z2(tt)/fak(2), zbiel(tt) , z3(tt)/fak(3), z4(tt)/fak(4)])
e(tt,:)=([ z1(tt)/fak(1), z2(tt)/fak(2), zbiel(tt) , z3(tt)/fak(3), 
z4(tt)/fak(4)]);

m(tt)=mean(e(tt,(find(~isnan(e(tt,:))))));

%3 schnellste Läufe finden
if sum(~isnan(e(tt,:)))>3
e(tt,:)==max(e(tt,find(~isnan(e(tt,:)))));
find(e(tt,:)==max(e(tt,find(~isnan(e(tt,:))))));
e(tt,find(e(tt,:)==max(e(tt,find(~isnan(e(tt,:)))))))=nan;
%e(tt,find(e(tt,:)==max(e(tt,:))))=nan
end
if sum(~isnan(e(tt,:)))>3
e(tt,:)==max(e(tt,find(~isnan(e(tt,:)))));
find(e(tt,:)==max(e(tt,find(~isnan(e(tt,:))))));
e(tt,find(e(tt,:)==max(e(tt,find(~isnan(e(tt,:)))))))=nan;
%tt,e(tt,:),pause


end
m3(tt)=mean(e(tt,(find(~isnan(e(tt,:))))));

if tt<36
%disp(name{tt,1:12}),
printf(name{tt,1:15});,printf("  %4.2f ",[ z1(tt)/fak(1), z2(tt)/fak(2), 
zbiel(tt) , z3(tt)/fak(3), z4(tt)/fak(4),m(tt),m3(tt),...
z1(tt)/fak(1)-m(tt), z2(tt)/fak(2)-m(tt), zbiel(tt)-m(tt) , 
z3(tt)/fak(3)-m(tt), z4(tt)/fak(4)-m(tt)]);

disp('')
end,end
for tt=1:tn
printf("  %4.2f ",[tt, z1(tt)/fak(1)/m(tt), z2(tt)/fak(2)/m(tt), 
zbiel(tt)/m(tt) , z3(tt)/fak(3)/m(tt), z4(tt)/fak(4)/m(tt)]);
disp('')
end

fakbiel=(m(ibiel)\zbiel(ibiel)),fakbiel=zbiel(ibiel)./m(ibiel)',;fakbiel=mean(fakbiel)
fak1=z1(i1)./m(i1)';fak1=mean(fak1)
fak2=z2(i2)./m(i2)';fak2=mean(fak2)
fak3=z3(i3)./m(i3)';fak3=mean(fak3)
%fak1=z1(i1)./m(i1)';fak1=mean(fak1)
fak4=z4(i4)./m(i4)';fak4=mean(fak4)
fak

%figure(1),
clf
plot([siegzbiel max(m(i1)) ], [siegzbiel*fak(1) max(z1(i1)) ] ,'k', m,z1,'x',...
siegzbiel,siegzbiel*fak(1),'+')
xlabel('zeit Mittelwert (stunden)'),ylabel('zeit Mnisek (stunden)')
for i=i1(1:length(i1)-3), r=name{i,:}; ,text(m(i),z1(i),[' ' r]),end
text(siegzbiel,siegzbiel*fak(1),[' Siegerzeit Biel, entspricht: 
',num2str(siegzbiel*fak(1))])

pause,clf

plot([siegzbiel max(m(tt)) ], [siegzbiel*fak(2) max(z2(i2)) ] ,'k', m,z2,'x',...
siegzbiel,siegzbiel*fak(2),'+')
plot([7 11],[7 11],'2',[siegzbiel max(m(ibiel)) ], [siegzbiel max(zbiel(ibiel)) 
] ,'k', m,zbiel,'x',...
siegzbiel,siegzbiel,'+')
xlabel('zeit Mittelwert (stunden)'),ylabel('zeit Biel (stunden)')
for i=ibiel(1:length(ibiel)-4), r=name{i,:} ; ,text(m(i),zbiel(i),[' ' 
r]),name{i,:};,end
text(siegzbiel,siegzbiel,[' Siegerzeit Biel: ',num2str(siegzbiel),' Stunden 
(7:07)'])
pause,clffak1=z1(i1)./m(i1)';fak1=mean(fak1)


plot([siegzbiel max(zbiel(ir)) ], [siegzbiel max(zbiel(ir)) ]*fakrenn ,'k', 
zbiel,zrenn,'x',...
siegzbiel,siegzbiel*fakrenn,'+')

xlabel('zeit Mittelwert (stunden)'),ylabel('zeit Rennsteig (stunden)')
for i=i2(1:length(i2)-3), r=name{i,:} ; ,text(m(i),z2(i),[' ' r]),name{i,:};,end
text(siegzbiel,siegzbiel*fak(2),[' Siegerzeit Biel, entspricht: 
',num2str(siegzbiel*fak(2))])
pause,clffak1=z1(i1)./m(i1)';fak1=mean(fak1)

plot([7 11],[7 11],'2',[siegzbiel max(m(ibiel)) ], [siegzbiel max(zbiel(ibiel)) 
] ,'k', m,zbiel,'x',...
siegzbiel,siegzbiel,'+')
xlabel('zeit Mittelwert (stunden)'),ylabel('zeit Biel (stunden)')
for i=ibiel(1:length(ibiel)-4), r=name{i,:} ; ,text(m(i),zbiel(i),[' ' 
r]),name{i,:};,end
text(siegzbiel,siegzbiel,[' Siegerzeit Biel: ',num2str(siegzbiel),' Stunden 
(7:07)'])
pause,clf

plot([siegzbiel max(zbiel(ir)) ], [siegzbiel max(zbiel(ir)) ]*fakrenn ,'k', 
zbiel,zrenn,'x',...
siegzbiel,siegzbiel*fakrenn,'+')
xlabel('zeit biel (stunden)')
ylabel('zeit Rennsteig (stunden)')

for i=ir(1:length(ir)-3), r=name{i,:} ; ,text(zbiel(i),zrenn(i),[' ' 
r]),name{i,:};,end
text(siegzbiel,siegzbiel*fak(2),[' Siegerzeit Biel, entspricht: 
',num2str(siegzbiel*fak(2))])

plot([siegzbiel max(m(tt)) ], [siegzbiel*fak(3) max(z3(i3)) ] ,'k', m,z3,'x',...
siegzbiel,siegzbiel*fak(3),'+')
xlabel('zeit Mittelwert (stunden)'),ylabel('zeit Celje (stunden)')
for i=i3(1:length(i3)-3), r=name{i,:} ; ,text(m(i),z3(i),[' ' r]),name{i,:};,end
text(siegzbiel,siegzbiel*fak(3),[' Siegerzeit Biel, entspricht: 
',num2str(siegzbiel*fak(3))])
pause,clf
plot([siegzbiel max(m(tt)) ], [siegzbiel*fak(4) max(z4(i4)) ] ,'k', m,z4,'x',...
siegzbiel,siegzbiel*fak(4),'+')
xlabel('zeit Mittelwert (stunden)'),ylabel('zeit Alb (stunden)')
for i=i4(1:length(i4)-4), r=name{i,:} ; ,text(m(i),z4(i),[' ' r]),name{i,:};,end
text(siegzbiel,siegzbiel*fak(4),[' Siegerzeit Biel, entspricht: 
',num2str(siegzbiel*fak(4))])
pause,clf

plot([7 11],[7 11],'2',[siegzbiel max(m(ibiel)) ], [siegzbiel max(zbiel(ibiel)) 
] ,'k', m,zbiel,'x',...
siegzbiel,siegzbiel,'+')
xlabel('zeit Mittelwert (stunden)'),ylabel('zeit Biel (stunden)')
for i=ibiel(1:length(ibiel)-4), r=name{i,:} ; ,text(m(i),zbiel(i),[' ' 
r]),name{i,:};,endfak1=z1(i1)./m(i1)';fak1=mean(fak1)

text(siegzbiel,siegzbiel,[' Siegerzeit Biel: ',num2str(siegzbiel),' Stunden 
(7:07)'])
pause,clf

plot([siegzbiel max(zbiel(ir)) ], [siegzbiel max(zbiel(ir)) ]*fakrenn ,'k', 
zbiel,zrenn,'x',...
siegzbiel,siegzbiel*fakrenn,'+')
xlabel('zeit biel (stunden)')
ylabel('zeit Rennsteig (stunden)')

for i=ir(1:length(ir)-3), r=name{i,:} ; ,text(zbiel(i),zrenn(i),[' ' 
r]),name{i,:};,end
text(siegzbiel,siegzbiel*fak(2),[' Siegerzeit Biel, entspricht: 
',num2str(siegzbiel*fak(2))])

pause

clf

plot([siegzbiel max(zbiel(ia)) ], [siegzbiel max(zbiel(ia)) ]*fakalb ,'k', 
zbiel,zalb,'xb')
%
for i=ia(1:length(ia)-3), r=name{i,:} ; ,text(zbiel(i),zalb(i),[' ' 
r]),name{i,:};,end
text(siegzbiel,siegzbiel*fak(4),[' Siegerzeit Biel, entspricht: 
',num2str(siegzbiel*fak(4))])
xlabel('zeit biel (stunden)')
ylabel('zeit Albmarathon (stunden)')


pause,clf

plot([siegzbiel max(zbiel(ir)) ]*fak(1), [siegzbiel max(zbiel(ir)) ]*fak(2) 
,'k', z1,zrenn,'x',...
siegzbiel*fak(1),siegzbiel*fakrenn,'+')
xlabel('zeit Mnisek (Stunden)')
ylabel('zeit Rennsteig (stunden)')

for i=i12(1:length(i12)-3), r=name{i,:} ; ,text(z1(i),zrenn(i),[' ' 
r]),name{i,:};,end
text(siegzbiel*fak(1),siegzbiel*fak(2),[' Siegerzeit Biel, entspricht: 
',num2str(siegzbiel*fak(1))])
%
%