Sponsored links: Algebra eBooks
 

Related

sinsert

Run Example
(%i1)trennzeichen(zahl):=(if numberp(zahl)=true then zahl:string(zahl),if ssearch(zahl,".")=false then (l:slength(zahl),while l>
3 do (l:(l-3),(zahl:sinsert(" ",zahl,l))))else (nachkommastellen:sconcat(".",part(split(zahl,"."),2)),vorkommastellen:part(split(zahl,"."),1),l:slength(vorkommastellen),while l>
3 do (l:(l-3),(vorkommastellen:sinsert(" ",vorkommastellen,l))),zahl:sconcat(vorkommastellen,nachkommastellen)),zahl);
(%o1) trennzeichen(zahl) := (if numberp(zahl) = true then zahl : string(zahl), 
if ssearch(zahl, ".") = false then (l : slength(zahl), 
while l > 3 do (l : l - 3, zahl : sinsert(" ", zahl, l)))
 else (nachkommastellen : sconcat(".", part(split(zahl, "."), 2)), 
vorkommastellen : part(split(zahl, "."), 1), l : slength(vorkommastellen), 
while l > 3 do (l : l - 3, vorkommastellen : 
sinsert(" ", vorkommastellen, l)), zahl : 
sconcat(vorkommastellen, nachkommastellen)), zahl)
(%i2) a:trennzeichen("1000000000.23546564");
(%o2)                       100 000 000 0.2 354 6564
(%i3) a;
(%o3)                       100 000 000 0.2 354 6564
(%i4) 
Run Example
trennzeichen(zahl):=(if numberp(zahl)=true then zahl:string(zahl),if ssearch(zahl,".")=false then (l:slength(zahl),while l>
3 do (l:(l-3),(zahl:sinsert(" ",zahl,l+1))))else (nachkommastellen:sconcat(".",part(split(zahl,"."),2)),vorkommastellen:part(split(zahl,"."),1),l:slength(vorkommastellen),while l>
3 do (l:(l-3),(vorkommastellen:sinsert(" ",vorkommastellen,l+1))),zahl:sconcat(vorkommastellen,nachkommastellen)),zahl);
(%o1) trennzeichen(zahl) := (if numberp(zahl) = true then zahl : string(zahl), 
if ssearch(zahl, ".") = false then (l : slength(zahl), 
while l > 3 do (l : l - 3, zahl : sinsert(" ", zahl, l + 1)))
 else (nachkommastellen : sconcat(".", part(split(zahl, "."), 2)), 
vorkommastellen : part(split(zahl, "."), 1), l : slength(vorkommastellen), 
while l > 3 do (l : l - 3, vorkommastellen : 
sinsert(" ", vorkommastellen, l + 1)), 
zahl : sconcat(vorkommastellen, nachkommastellen)), zahl)
(%i2) a:trennzeichen(1000.234);
(%o2)                             10 00. 234
(%i3) a;
(%o3)                             10 00. 234
(%i4) 
Run Example
trennzeichen(zahl):=(if numberp(zahl)=true then zahl:string(zahl),if ssearch(zahl,".")=false then (l:slength(zahl),while l>
3 do (l:(l-3),(zahl:sinsert(" ",zahl,l+4-3))))else (nachkommastellen:sconcat(".",part(split(zahl,"."),2)),vorkommastellen:part(split(zahl,"."),1),l:slength(vorkommastellen),while l>
3 do (l:(l-3),(vorkommastellen:sinsert(" ",vorkommastellen,l+4-3))),stringzahl:sconcat(vorkommastellen,nachkommastellen)));
(%o1) trennzeichen(zahl) := (if numberp(zahl) = true then zahl : string(zahl), 
if ssearch(zahl, ".") = false then (l : slength(zahl), 
while l > 3 do (l : l - 3, zahl : sinsert(" ", zahl, l + 4 - 3)))
 else (nachkommastellen : sconcat(".", part(split(zahl, "."), 2)), 
vorkommastellen : part(split(zahl, "."), 1), l : slength(vorkommastellen), 
while l > 3 do (l : l - 3, vorkommastellen : 
sinsert(" ", vorkommastellen, l + 4 - 3)), 
stringzahl : sconcat(vorkommastellen, nachkommastellen)))
(%i2) a:trennzeichen(1000);
(%o2)                                done
(%i3) 

Related Help

Help for Sinsert