G with Order 12 acts on the Set 1.2...12.
How can I get an isomorphic group which acts on the Set 1.2...4 ?
Kurt Ewald
With Maplets, it is possible to create popup windows to tell or ask the user something, but only when it is appropriate. That is, it is not there all the time. A particular usage would be to give the user a facilitating question when they have incorrect entries.
Is that possible in some way with Möbius apps also? Or does one have to always keep a blank TextArea available, just a blank space if invisible perhaps but using up space in the presentation nonetheless, to give the student the information?
i have read data from a text file. i want to convert this data to array,how should i do that ?
for example :
i have readed these files and i want convert them to array which for the first one,has 3 rows and 4 columns.
what should i do ?
> 
FileTools[Text][ReadFile]("NLIST.txt");


(1) 
> 
op(FileTools[Text][ReadFile]("ELIST.txt"));


(2) 

Download convert_to_array.mw ELIST.txt NLIST.txt
Hi
i have two questions about paths in graph package:
1. suppose we have:
path1=[1,3,5,7,9]
path2=[1,2,3,6,7,8,9]
if we want to create a graph that it's edges are edges of path1 and edges of path2,how can we do this?
edge set of our graph should be {[1,3],[3,5],[5,7],[7,9],[1,2],[2,3],[3,6],[6,7],[7,8],[8,9]}
2. suppose p is an arbitrary path on a given weighted graph G
how can i calculate weight of p (that is sum of it's edges weights) in maple ?
thanks very much for your help
Hi,
RTABLE(151446624,MATRIX([[tf[1,1] = 24110714285.0000/(1000000000000*s+1071534859*218^(1/2))], [tf[2,1] = .843883770817266e20*218^(1/2)/(2500000000000000000000000*s^2+4870187206000000000000*218^(1/2)*s+487482532797170793867)], [tf[1,2] = .841458646091250e19*218^(1/2)/(125000000000000000000000*s^2+350952468875000000000*218^(1/2)*s+50692506828944068713)], [tf[2,2] = 87390625000.0000/(5000000000000*s+3705223967*218^(1/2))]]),Vector[column])
How can I read the individual elements tf[1,1], tf[2,1], tf[2,1], tf[2,2] form this RTABLE?
Regards,
Can someone please help me to find first 5 coplex valued roots of the followind expression:
Frequency_Equation := (2.220315292*10^21*I)*csgn(omega)*omega^4*sin(1.236117731*(omega^2)^(1/4))*cosh(1.236117731*(omega^2)^(1/4))2.354665581*10^22*csgn(omega)*omega^3*sin(1.236117731*(omega^2)^(1/4))*cosh(1.236117731*(omega^2)^(1/4))2.354665581*10^22*sinh(1.236117731*(omega^2)^(1/4))*csgn(omega)*omega^3*cos(1.236117731*(omega^2)^(1/4))6.415296703*10^25*(omega^2)^(3/4)*cos(1.236117731*(omega^2)^(1/4))*cosh(1.236117731*(omega^2)^(1/4))2.177438228*10^22*cosh(1.236117731*(omega^2)^(1/4))*(omega^2)^(3/4)*omega^2*cos(1.236117731*(omega^2)^(1/4))5.946035576*10^21*omega^2*(omega^2)^(3/4)6.415296702*10^25*(omega^2)^(3/4)(3.560760000*10^24*I)*sinh(1.236117731*(omega^2)^(1/4))*omega^3*cos(1.236117731*(omega^2)^(1/4))+(3.560760000*10^24*I)*cosh(1.236117731*(omega^2)^(1/4))*omega^3*sin(1.236117731*(omega^2)^(1/4))(2.613877239*10^21*I)*cosh(1.236117731*(omega^2)^(1/4))*(omega^2)^(3/4)*omega^3*cos(1.236117731*(omega^2)^(1/4))(6.049258752*10^24*I)*(omega^2)^(3/4)*omega1.907153069*10^25*sinh(1.236117731*(omega^2)^(1/4))*omega^2*sin(1.236117731*(omega^2)^(1/4))*(omega^2)^(1/4)(2.220315292*10^21*I)*sinh(1.236117731*(omega^2)^(1/4))*csgn(omega)*omega^4*cos(1.236117731*(omega^2)^(1/4))(6.049258753*10^24*I)*(omega^2)^(3/4)*cos(1.236117731*(omega^2)^(1/4))*cosh(1.236117731*(omega^2)^(1/4))*omega3.500000000*10^21*cosh(1.236117731*(omega^2)^(1/4))*omega^4*sin(1.236117731*(omega^2)^(1/4))+3.500000000*10^21*sinh(1.236117731*(omega^2)^(1/4))*omega^4*cos(1.236117731*(omega^2)^(1/4))2.156220000*10^25*sinh(1.236117731*(omega^2)^(1/4))*omega^2*cos(1.236117731*(omega^2)^(1/4))+2.156220000*10^25*cosh(1.236117731*(omega^2)^(1/4))*omega^2*sin(1.236117731*(omega^2)^(1/4));
Hi all
Assume that we have construct new orthogonal Hybrid function of block pulse and bernstein poly nomials as follow:
and assume that we want to approximate a function as follows:
how can we do this with maple????Indeed we want to optimize using this hybrid functions
note that the degree of bernstein polynomials is fix or should be fixed...and
regards
Mahmood Dadkhah
Ph.D Candidate
Applied Mathematics Department
AOA. I want to plot the graph of the following function
A new generalized complex representation of Euler gamma function in terms of Dirac delta function, which is
GAMMA(s) = 2*Pi*(sum((1)^n*Dirac(s+n)/factorial(n), n = 0 .. infinity))
where*s = sigma+i*tau
for differenet values of parameters
i have 2 questions:
Question 1. suppose we have generated a random weighted graph with 100 vertices and 2300 edges and found shortest path frome node 1 to node 100 using function ShortestPath(G,1,100). this function returns a path like [1 3 8 2 9 100] but don't get us value of shortest path!
in other words if weights are costs of travelling on edges,we want to find minimum cost of travelling from node 1 to node 100.
how can i find value of shortest path (minimum weight/cost) ?
Question 2. i want to create a sub graph of G by removing the edge that has maximum weight on shortest path found in Question 1. how can i find such edge and how to create such sub graph?
thanks
The answer should be around 15.7, i.e., function h is maximized at around x=15.7, I don't know why my computer/maple is having a hard time with it.
f := proc (a, b, k) options operator, arrow; (sum(exp(x)*x^m/(m!), m = a .. b))^k end proc;
h := f(0,0,82)*f(1,3,49)*f(4,6,47)*f(7,10,47)*f(11,15,57)*f(16,20,40)*f(21,25,38)*f(26,35,52)*(1f(0,35,1))^91;
fsolve(diff(h,x),x);
thanks in advance!
July 10 2014
kuku 10
Hi all
I am having a very complicated equation that has the form of
x*y^2/(x+1)+x*(1/(x2y)^2)=0
Of course, the actual equation is more complicate than above. It is just an example. I want to solve the equation in terms of x. And I know that both x and y are real, and they are positive (greater than 0). My question is, how should I specify this when solving the equation?
PS: I try to run the program to the solve the equation (without specifying that they are real and positive), and at the output, it gave me something like:
"RootOf(y^2+2y+.......)". What is that "RootOf" means? Squareroot or what?
I have a set, R consisting of 9 elements:
R = {A_1, A_2, A_3, A_4, B_1, B_2, B_3, B_4, C_1}
where
B_1 = A_1 + A_2,
B_2 = A_1 + A_3,
B_3 = A_3 + A_4,
B_4 = A_2 + A_4,
C_1 = A_1 + A_2 + A_3 + A_4.
I want to know how to do 2 things:
1) For each element x in R I want x to become x_1, x_2, and x_3 (where x_3 = x_2 + x_1). So for example:
A_1 will become A_11, A_12, A_13 (where A_13 = A_11 + A_12). This should create a total of 27 elements (since each of the 9 elements splits into 3). I want all 27 elements to go into a new set called S_1.
2) The second thing I want is a procedure that takes x in S_1 and y in S_1 and computes z=(x+y)mod2. If z is not already an element of S_1 then put it into a new set S_2. This procedure should terminate when all the possible additions of x and y have been computed. I know that S_2 will contain 162 elements (all of which are different from the 27 elements in S_1). Then I want the procedure to take x in S_1 and y in S_2 and do the same thing: z=(x+y)mod2, where new elements not in S_1 or S_2 will be placed in S_3. Then again repeat this: x in S_1 and y in S_r until no new sets S_{r+1} can be created (i.e. S_{r+1} is empty because no new possible elements exist).
I am evaluating the following integral:
Int(5*exp(t)*exp(2*j*pi*f*t), t = infinity .. 0)+Int(5*exp(t)*exp(2*j*pi*f*t), t = 0 .. infinity)
Maple gives the answer:
limit((5*(exp(2*Pi*f*j*t+t)1))/(2*Pi*f*j1), t = infinity)+limit((5*(exp(2*Pi*f*j*tt)1))/(2*Pi*f*j+1), t = infinity)
How do I solve for the limits?
The answer is:
10/[1+(2*Pi*f)^2]
Vhha
I am trying to evaluate the following INTEGRAL:
Int(2*e^((2/7)*j*Pi*n*t), t = 4 .. 5)
Maple gives me the following ANSWER:
(7*(e^((8/7)*j*Pi*n)+e^((10/7)*j*Pi*n)))/(j*Pi*n*ln(e))
Everything is correct but there is a ln(e) in the denominator of the answer. And we know that ln(e) = 1.
Why does Maple not simplify this and get rid of the ln(e) from the answer?