Muhammad Usman

215 Reputation

5 Badges

8 years, 363 days
Beijing, China

MaplePrimes Activity


These are questions asked by Muhammad Usman

Dear Users!

Hope everyone should fine here. I want to know how to multiple the entries of a matrix with a matrix like If A is matrix as:

A:= Matrix(2, 2, {(1, 1) = 0, (1, 2) = 0, (2, 1) = 0, (2, 2) = 2})
I want nonzero entries should multiply with m*m identity matrix and zero entries multiply with null matrix of order m*m. for m=2 the desired results i calculated manually as:

Matrix(4, 4, {(1, 1) = 0, (1, 2) = 0, (1, 3) = 0, (1, 4) = 0, (2, 1) = 0, (2, 2) = 0, (2, 3) = 0, (2, 4) = 0, (3, 1) = 0, (3, 2) = 0, (3, 3) = 2, (3, 4) = 0, (4, 1) = 0, (4, 2) = 0, (4, 3) = 0, (4, 4) = 2});

I want to know the general way. Thanks in advance

 

Dear Users!

Hoped you will be fine. I want to define a block matrix A for any value of M like this way

A = [A[0], A[1], A[2], ..., A[M]]

A[i] = [A[i,0], A[i,1], A[i,2], ..., A[i,M]]

and

A[i,j] = Transpose([a[i,j,0], a[i,j,1], a[i,j,2], ..., a[i,j,M]]);

Kindly help me in this matter. Thanks in advance.

Dear Users!

Hoped everything going fine with you. I constrcut the following code to construct the polynomials for any M1 and M2

printlevel := 2; M1 := 3; M2 := 3; nu := 1;
for k1 from 0 while k1 <= M1-1 do
for k2 from 0 while k2 <= M2-1 do
GP[k1+1, k2+1] := simplify(sum((-1)^(k1-i1)*GAMMA(k1+i1+2*nu)*GAMMA(nu+1/2)*x^i1*(sum((-1)^(k2-i2)*GAMMA(k2+i2+2*nu)*GAMMA(nu+1/2)*y^i2/(GAMMA(i2+nu+1/2)*factorial(k2-i2)*factorial(i2)*GAMMA(2*nu)), i2 = 0 .. k2))/(GAMMA(i1+nu+1/2)*factorial(k1-i1)*factorial(i1)*GAMMA(2*nu)), i1 = 0 .. k1))
end do end do;
I want to put this polynomials in a vector like
[GP[1,1]   GP[1,2]   GP[1,3]   GP[2,1]   GP[2,2]   GP[2,3]   GP[3,1]   GP[3,2]   GP[3,3]]
Similarlty I want to construct a vector having constants for any values of M1 and M2 like this
[a[1,1]   a[1,2]   a[1,3]   a[2,1]   a[2,2]   a[2,3]   a[3,1]   a[3,2]   a[3,3]]

Dear Users!

Hope you are doing well. Below is the code to solve system of equations

restart;M:=3;
u[0, 0] := tau[1]-2*tau[2]+3*tau[3] = 1;
u[0, 1] := tau[1]-tau[3] = 1/2;
u[0, 2] := tau[1]+2*tau[2]+3*tau[3] = 2;
SOL[0] := fsolve({seq(`$`(u[0, l1], l1 = 0 .. M-1))});

the solutions SOL[0] := {tau[1] = .7500000000, tau[2] = .2500000000, tau[3] = .2500000000}
I want to define a vector of order M*1 having the solution of of tau's like that

[.7500000000  .2500000000  .2500000000]

I'm waiting for you positive response. Thanks in advance.
Special request to:
@acer @Carl Love @Kitonum @Preben Alsholm

Dear Users!

Hope you would be fine. I want to export .dat file from 2D plots in attached file. But facing some problem. Please have a look and try to fix it.

Many thanks

2._SP_alpha_varies.mw

Special request:

@Carl Love

@acer

@Kitonum

5 6 7 8 9 10 11 Last Page 7 of 34