File: forvec.gp

package info (click to toggle)
gp2c 0.0.14pl1-1
  • links: PTS
  • area: main
  • in suites: forky, sid
  • size: 3,180 kB
  • sloc: ansic: 8,608; sh: 1,630; lex: 347; yacc: 227; makefile: 107
file content (28 lines) | stat: -rw-r--r-- 413 bytes parent folder | download | duplicates (11) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
g(n,f)=
{
  forvec(v=vector(n,i,[1,2]),
    s=sum(i:small=1,#v,v[i]);print1(s," "),f);
  print
}
h(n,f)=
{
  forvec(v=vector(n,i,[2*i-1,2*i]),
    s=sum(i:small=1,#v,v[i]);print1(s," "),f);
  print
}
FV(R)=
{
  local(b=vector(5,i,[0,R]),N);
  forvec(a=b, N+=prod(n=1,100, sum(m=0,4,a[m+1]*n^m)));
  N
}

fv(N)=
{
  local(a);
  forvec(b=vector(2,k,[1,5]),
      if((2^b[1])*(3^b[2])==N, a=b));
  print(a);
  a;
}