Re: [Maxima-discuss] Fw: how translate from Matlab

[Jaime V. <vi...@fe...>]

On 08-03-2018 13:36, Luigi Marino wrote:
> I have :
> t=linspace(0,2*pi,n+1);
> s=linspace(pi/n,2*pi-pi/n,n);
> x(1:2:2*n+1)=cos(t);
> x(2:2:2*n)=a*cos(s);
> y(1:2:2*n+1)=sin(t);
> y(2:2:2*n)=a*sin(s);
>  from Matlab
> how  can I ' translate'  this in Maxima ?
Here is one possible way (I assume n and a have already some numerical 
values).

numer:true$
[n,a]: [4,2]$
t: makelist(i*2*%pi/n,i,0,n)$
s: makelist(%pi/n+i*2*%pi/n,i,0,n-1)$
x: join(cos(t),a*cos(s))$
y: join(sin(t),a*sin(s))$

Cheers,
Jaime