Alger

524 Reputation

18 Badges

15 years, 195 days

MaplePrimes Activity


These are questions asked by Alger

Hi 

I want to store the matrix m2 representing a system m2*x=b with vectors as given by the command "CompressedSparseForm" and solve the system using those vectors and b without using m2 and b.

Thanks

vectors.mw


 

``

restart; with(LinearAlgebra)

``

``

``

m2 := Matrix([[102, 0, 0, .1, 1], [0, 3, 0, 0, 1], [1, 3.1, 7, 0, 0], [1, 33, 0, .5, 0], [1, 0, 0, 0, 1]], 'datatype = float')

Matrix([[102., 0., 0., .100000000000000, 1.], [0., 3., 0., 0., 1.], [1., 3.10000000000000, 7., 0., 0.], [1., 33., 0., .500000000000000, 0.], [1., 0., 0., 0., 1.]])

(1)

``

cm, rm, values := CompressedSparseForm(m2)

Vector(6, {(1) = 1, (2) = 5, (3) = 8, (4) = 9, (5) = 11, (6) = 14}, datatype = integer[8]), Vector(4, {(1) = ` 1 .. 13 `*Vector[column], (2) = `Data Type: `*integer[8], (3) = `Storage: `*rectangular, (4) = `Order: `*Fortran_order}), Vector(4, {(1) = ` 1 .. 13 `*Vector[column], (2) = `Data Type: `*float[8], (3) = `Storage: `*rectangular, (4) = `Order: `*Fortran_order})

(2)

``

b := `<,>`(1.1, 2, 5, .5, 5)

Vector(5, {(1) = 1.1, (2) = 2, (3) = 5, (4) = .5, (5) = 5})

(3)

``

LinearSolve(m2, b)

Vector(5, {(1) = -.107505070993915, (2) = -1.03583502366464, (3) = 1.18837052062204, (4) = 69.5801217038540, (5) = 5.10750507099392})

(4)

``

NULL b

``

``

``

``


 

Download vectors.mw

Hi

I have the values of of a function A(x,y,z) in 3d cartesian coordinates as [x[1],y[1],z[1],A(x[1],y[1],z[1])], [x[2],y[2],z[2],A(x[2],y[2],z[2])], [x[i],y[i],z[i],A(x[i],y[i],z[i])],etc...where i vary from 1 to 300 (or higher).

How to plot A(x[i],y[i],z[i]) in 3d.

Thanks

trig_interp3.mw

Hi all

I have this type of generalized Fourier serie: a0+Sum(an*cos(n*Pi*ln(x)/ln(2))+bn*sin(n*Pi*ln(x)/ln(2)), n = 1 .. N)

The coefficients I calculated and the results seems correct. However, the amplitude of Fourier expansion is twice the amplitude of the function.

Find in the attached file my maple code.

Regards

Hi all,

I have this equation that I can not get all solutions symbolically:

restart:

eq1 := cos(lambda*ln(r1))*cos(lambda*ln(r2))+sin(lambda*ln(r1))*sin(lambda*ln(r2))-1 = 0:

solve(eq1, lambda, allsolutions) assuming r1>0, r2>0, r2>r1

when r1:=1: r2:=2: I get the solution

2*Pi*Z/ln(2)

when r1:=1.1: and r2:=2.1: # no solutions

How to get symbolique solution

Thanks

 

 

Dear all,

I have somme difficulties to calculate this integral.

int(I*sqrt((R*exp(I*theta)+1)/(R*exp(I*theta)-a)), theta = 0 .. Pi);

Thanks

1 2 3 4 5 6 7 Last Page 2 of 15