# Question:Problem with codegeneration[Fortran] and Vectors of functions!!!!!

## Question:Problem with codegeneration[Fortran] and Vectors of functions!!!!!

Maple

Hi to everybody. I have to create a fortran output a lot of time for different polinomials.and CodeGeneration gives me an error. i give you a simple example to understand my problem:

restart;

with(LinearAlgebra):

with(CodeGeneration):

np:=10;

basex := Vector(np):

for i from 1 to np do

basex[i] := unapply(x^(i-1)-1,x);

od:

Fortran(basex(x),optimize,deducetypes=false,defaulttype=numeric);

It gives me this error: Error, (in codegen/optimize/prepro) too many levels of recursion

if instead i had written basex :=vector(np) and using
fortran instead of Fortran:

restart;
with(linalg):
with(codegen):
np:=10;
basex := vector(np);
for i from 1 to np do
basex[i] := unapply(x^(i-1)-1,x);
od:
fortran( basex(x),optimized,mode=double);

does not give me the double precision!It gives me everything as integers! Finally if i use vector and Fortran:

restart;
with(LinearAlgebra):
with(CodeGeneration):
np:=10;
basex := vector(np);
for i from 1 to np do
basex[i] := unapply(x^(i-1)-1,x);
od:
Fortran(basex(x),deducetypes=false,defaulttype=numeric);

it is not bad, it has the dobleprecision, but It gives me only the non-zero element of a Vector!! but I want all the elements!!this is important for my since in my cases i have usually a lot of non zero elements so i need to print them!

do you have suggestions?thanks so much
alberto

﻿