Trouble with function rectangle

i have this function but it doesn't works:

<<

<<

>>

>> any help?

Answer 1

[Walter Roberson]

Change

 h = subs(f,c);

to

h = double( subs(f,c) );

[felix jose chavez torres]

thanks!!