In[]:=
a={{0,1,0},{0,1,0},{0,1,0},{1,0,0},{0,0,1}};
In[]:=
f[x_,a1_,a2_,a3_]:=**;
a1
(Cos[x])
a2
(Sin[x])
a3
(x)
In[]:=
Element1=Cos[x]
Out[]=
Cos[x]
In[]:=
(f[x,a[[1]][[1]],a[[1]][[2]],a[[1]][[3]]]*(%))
Out[]=
Cos[x]Sin[x]
In[]:=
(f[x,a[[2]][[1]],a[[2]][[2]],a[[2]][[3]]]*(%))
Out[]=
Cos[x]
2
Sin[x]
In[]:=
(f[x,a[[3]][[1]],a[[3]][[2]],a[[3]][[3]]]*(%))
Out[]=
Cos[x]
3
Sin[x]
In[]:=
(f[x,a[[4]][[1]],a[[4]][[2]],a[[4]][[3]]]*(%))
Out[]=
2
Cos[x]
3
Sin[x]
In[]:=
(f[x,a[[5]][[1]],a[[5]][[2]],a[[5]][[3]]]*(%))
Out[]=
x
2
Cos[x]
3
Sin[x]
In[]:=
NewList={Cos[x],Cos[x]Sin[x],Cos[x]Sin[x]^2,Cos[x]Sin[x]^3,Cos[x]^2Sin[x]^3,xCos[x]^2Sin[x]^3}
Out[]=
{Cos[x],Cos[x]Sin[x],Cos[x],Cos[x],,x}
2
Sin[x]
3
Sin[x]
2
Cos[x]
3
Sin[x]
2
Cos[x]
3
Sin[x]