@Carl Love 

ok, now i'm in this mode.

but it doesn't appear to work. firstly i apply my template settings globally (a worksheet of yours).

then i creat a new worksheet and reverts to the default settings. here are 2 before screenshots.

(template )and after (untitled)  

@Carl Love 

ok, now i'm in this mode.

but it doesn't appear to work. firstly i apply my template settings globally (a worksheet of yours).

then i creat a new worksheet and reverts to the default settings. here are 2 before screenshots.

(template )and after (untitled)  

@Carl Love 

i loaded one of your worksheets ...i went through the menu steps above....didn't change anything,.

in the first instance did you go: Format=>Styles,

then...Format=>Manage Style Sets...

@Carl Love 

i loaded one of your worksheets ...i went through the menu steps above....didn't change anything,.

in the first instance did you go: Format=>Styles,

then...Format=>Manage Style Sets...

funnily enough, when I logged onto this site with my second hand ipad (by coincidence i'm currently touring in the OP's country) I found out I'd been banned (I've never visited the site before!). This is a screen shot of the message.

OP's name a coincidence?

thanks Carl. too easy for you

thanks Carl. too easy for you

@Carl Love 

Yes, your code works when I increase the precision to 3. In M16 with precision =2, same result as M15.

Font: i followed the sequence but it won't do it..arrggggh.i'm missing something obviously.....

@Carl Love 

Yes, your code works when I increase the precision to 3. In M16 with precision =2, same result as M15.

Font: i followed the sequence but it won't do it..arrggggh.i'm missing something obviously.....

thanks Carl.

as an exercise I tried to do the same for a>0,b>0,c>0,d>0....

map([a,b,c,d]@op,'>0')...doesn't work

thanks Carl.

as an exercise I tried to do the same for a>0,b>0,c>0,d>0....

map([a,b,c,d]@op,'>0')...doesn't work

How about the font? how do i change it globally to say your brown bold.i tried Format Character but that didn't work.

when i ran your code
> ListTools[MakeUnique]([seq(nextFibo(j),j = 0 .. 40)]);

 [1, 2, 3, 7, 12, 13, 21, 34, 56]

7,12 and 56 aern't fibo no's.

> seq(combinat[fibonacci](i), i = 1 .. 10);
  
  1, 1, 2, 3, 5, 8, 13, 21, 34, 55

How about the font? how do i change it globally to say your brown bold.i tried Format Character but that didn't work.

when i ran your code
> ListTools[MakeUnique]([seq(nextFibo(j),j = 0 .. 40)]);

 [1, 2, 3, 7, 12, 13, 21, 34, 56]

7,12 and 56 aern't fibo no's.

> seq(combinat[fibonacci](i), i = 1 .. 10);
  
  1, 1, 2, 3, 5, 8, 13, 21, 34, 55

thanks Carl for your code.

first, how did you get your worksheet to display the input (**) rather than: > ?

second, the code as is doesn't seem to get the correct sequence of fibo numbers. but if you change your code slightly it does work: instead of
r:= trunc(evalf[2+ilog10(x)](round(FibOfIndex(ceil(IndexOfFib(x))))));

change to

r:= round(FibOfIndex(ceil(IndexOfFib(x))));

thanks Carl for your code.

first, how did you get your worksheet to display the input (**) rather than: > ?

second, the code as is doesn't seem to get the correct sequence of fibo numbers. but if you change your code slightly it does work: instead of
r:= trunc(evalf[2+ilog10(x)](round(FibOfIndex(ceil(IndexOfFib(x))))));

change to

r:= round(FibOfIndex(ceil(IndexOfFib(x))));