Hello,

I am working with numerical function with two indices, such as f[i,j], where i,j run over 1 to N, where N is n integer number.

The resluts stored in vector colummn for each value of j. i.e.

for each j=1,     G1:=Vector[column](N,i-->f(i,1))

for each j=2,     G2:=Vector[column](N,i-->f(i,2))

and so on.

The procedure is working for the first value j=1.

for the second value the following message appear

{--> enter Terminate, args = 
{--> enter Terminate, args = 
<-- exit Terminate (now in Terminate) = }
<-- exit Terminate (now at top level) = }
 

Hi, I try this numerical integral with:
int((1/2)*exp(-(1/2)*z^2)*Jo*sqrt(2)*(1-tanh(sqrt(q)*z/T)^2)/(sqrt(Pi)*T), z = -infinity .. infinity, numeric)
But does not work.
I have also tried it without success with:

evalf(Int((1/2)*exp(-(1/2)*z^2)*Jo*sqrt(2)*(1-tanh(sqrt(q)*z/T)^2)/(sqrt(Pi)*T), z = -infinity .. infinity, method = _d01amc, methodoptions = [maxintervals = 1000]))
How can i do?
Regards.

I have a nested for loop that iterates through a range of values for x and y coordinates to create a 3d surface for illustration of my research. after the x loop there is a y loop, and inside of that y loop is a series of commands to find some eigenvalues of a matrix (which become the z coordinates) and sort them into already open files. This isn't bad when the precision i require is more than .02, but some of my matrices require up to 0.005 or less. The latter precision costs hours of computation time on just one processor. However my laptop has an i7, so I want to see if i can get the for loop to send its next iteration to the next processor in line while it has the previous ones still calculating. Have any tips?

I have to crypt and decrypt with vigenere.

(procedures need lists)

"In a Caesar cipher, each letter of the alphabet is shifted along some number of places; for example, in a Caesar cipher of shift 3, A would become D, B would become E, Y would become B and so on. The Vigenère cipher consists of several Caesar ciphers in sequence with different shift values.

To encrypt, a table of alphabets can be used, termed a tabula recta, Vigenère square, or Vigenère table. It consists of the alphabet written out 26 times in different rows, each alphabet shifted cyclically to the left compared to the previous alphabet, corresponding to the 26 possible Caesar ciphers. At different points in the encryption process, the cipher uses a different alphabet from one of the rows. The alphabet used at each point depends on a repeating keyword.[citation needed]

For example, suppose that the plaintext to be encrypted is:

ATTACKATDAWN
The person sending the message chooses a keyword and repeats it until it matches the length of the plaintext, for example, the keyword "LEMON":

LEMON
Each row starts with a key letter. The remainder of the row holds the letters A to Z (in shifted order). Although there are 26 key rows shown, you will only use as many keys (different alphabets) as there are unique letters in the key string, here just 5 keys, {L, E, M, O, N}. For successive letters of the message, we are going to take successive letters of the key string, and encipher each message letter using its corresponding key row. Choose the next letter of the key, go along that row to find the column heading that matches the message character; the letter at the intersection of [key-row, msg-col] is the enciphered letter.

For example, the first letter of the plaintext, A, is paired with L, the first letter of the key. So use row L and column A of the Vigenère square, namely L. Similarly, for the second letter of the plaintext, the second letter of the key is used; the letter at row E and column T is X. The rest of the plaintext is enciphered in a similar fashion:

Plaintext:	ATTACKATDAWN
Key:	LEMON
Ciphertext:	LXFOPVEFRNHR
Decryption is performed by going to the row in the table corresponding to the key, finding the position of the ciphertext letter in this row, and then using the column's label as the plaintext. For example, in row L (from LEMON), the ciphertext L appears in column A, which is the first plaintext letter. Next we go to row E (from LEMON), locate the ciphertext X which is found in column T, thus T is the second plaintext letter."

I think that it can be done with a for loop but I do not know where to start.

Thanks in advance!

My professor insists for a homework problem that we write down a number answer to this one problem which boils down to...

I'm aware that's incredibly small. So much so that when trying to get a value to display using the command

at its max, it's still 0.00000000000000..0 as an answer.

I might just give up and write down the exponential form. But I was just curious if there is a way to get a number in scientific notation.

Hi everybody, 

Only weights of type "numeric" can be used in a weighted graph (package GraphTheory) .
Is it possible to bypass this limitation and affect an infinite weight to an edge ?
If not possible, does it exist some "highest numeric value" in Maple I could use instead ?
(the trick of a very high value doesn't suit me)

Subsidiary question : is it possible to change the printing format for those weights ?
For instance   GraphTheory:-SetEdgeWeight(MyGraph, MyEdge, 123.4) plots the value 123 on edfe MyEdge

Thanks in advance

Hey there!

I wonder how i can solve the following using maple.

I got an equation containting 2 variables; x and T.

I want to plot x versus T, with the range of T from 300 to 800.

How can I do this? 

This is the formula I am talking about:

Thanks in advance!

Kind regards,

Geard

I have the following expression:

expand((((o * (((h * h - h * v) * (a * h - a * v) * h * h * h * h * a * a * h - h * h * h * a * a * h * o * (h * h - h * v) * (a * h - a * v)) * a * a * h * h * h * h * h - h * h * h * a * a * h * h * h * h * h * a * a * h * (a * h - a * o) * (h * h - h * v) * (h - v)) * h * a * a * h * h * h * h * a * a * h * a * a * h * h * h * h * h - h * h * h * a * a * h * h * h * h * h * a * a * h * a * a * h * h * h * h * h * ((v * (a * h - a * v) * h * h * h * a * a * h - h * a * a * h * (h * h - h * v) * v * (a * h - a * v)) * a * a * h * h * h * h * h - h * a * a * h * h * h * h * a * a * h * (a * h - a * o) * (v * h * h * h - h * (h * h - h * v) * v))) * h * a * a * h * h * a * a * h * a * a * h * h - h * h * h * a * a * h * h * h * h * h * a * a * h * a * a * h * h * h * h * h * h * a * a * h * h * h * h * a * a * h * a * a * h * h * h * h * h * o * (((a * h - a * v) * h * a * a * h - a * a * h * o * (a * h - a * v)) * a * a * h * h - a * a * h * h * a * a * h * (a * h - a * o) * (h - v))) * h * h * a * a * h * h * h * h * a * a * h * a * a * h * h * h * h * h - h * h * h * a * a * h * h * h * h * h * a * a * h * a * a * h * h * h * h * h * h * a * a * h * h * h * h * a * a * h * a * a * h * h * h * h * h * h * a * a * h * h * a * a * h * a * a * h * h * (o * (v * (a * h - a * v) * h * h * h * a * a * h - h * a * a * h * (h * h - h * v) * v * (a * h - a * v)) * a * a * h * h * h * h * h - h * a * a * h * h * h * h * a * a * h * (a * h - a * o) * (v * v * h * h * h - h * (h * h - h * v) * v * v))) );

When I tun it through the Maple GUI I get this result:

-2*a^23*h^40*o*v^2+2*a^23*h^40*v^3

This is also what Mathematica gives me. However, if I run it through the Maple command line I get this result:

-a^77*h^97*o*v^2+a^77*h^97*v^3-a^23*h^40*o*v^2+a^23*h^40*v^3

Why are the results different?

Greetings,

i have a problem working with a list of equations. The background for the whole thing is simulating the movement of 4 astronomical bodies with Newtons equation. Currently i have a list which looks like this (read x(1,1) as x-coordinate body 1 time =1):

[ x(1,1)=1,12312,y(1,1)=2,3123,z(1,1)=4,141,...,x(1,n)=5,0102,y(1,n)=0,912,z(1,n)=8,1232,...,x(4,n)=5,92y(4,n)=1,656,z(4,n)=3,141]

so i basically have all the information about where the bodies are.

I want to use this information to create a 3D-pointplot. I know that the point plot requires a special input form ( {[x(1,1),y(1,1),z(1,1],[x(1,2),y(1,2),z(1,2)].....} ), but i alread have managed to convert my original list accordingly. However, i cannot use this new list for pointplot because it contains equations and not simple values.

So how do i get from a list as shown above to a list which contains merely the numeric values?

Hello,

I know that it is possible to conduct the dynamics of multibody systems with MapleSim. But, is it possible to conduct only the kinematics ? Would it be possible to share a example where only the kinematics is conducted with MapleSim?

Thank you for your help.

Hi I was wondering if anyone can help me with the following procedure, i am trying to write a procedure that can encrypt/decrypt messages encrypted using the method of ELGamal my current procedure runs but it takes too long to compute, and it can only decrypt.
 

My procedure is as follows:

my procedure for part c is as follows it seems to run but it takes a long time to carry out the procedure when i try to decrypt.

               Elgamal := proc (ciphy, hkt, p, a, b)
               local i, icdarray, s, q;
                 icdarray := Array(5 .. 388);
                   for i from 5 to 388 do 
                   s := ciphy[i];
                   q := `mod`(1/hkt^proc3(a, b, p), p);
                   icdarray[i] := s*q;
                   end do;
                   return convert(icdarray, bytes);
                  end proc;

where proc3 is as follows

                      proc3 := proc (alpha, beta, p)
                   local k, R, i, j, N, A, t;
               Description "baby step giant step procedure";
                 N := floor(sqrt(p-1))+1;
                 A := Array(0 .. N);
                 for j from 0 to N do
                 A[j] := `mod`(alpha&^j, p);
                end do;
          for i from 0 to N do
             t := `mod`(beta*alpha&^(-N*i), p);
            for k from 0 to N do
            if t = A[k]
           then return k+N*i;
         end if; 
         end do; 
           end do; 
         end proc;

                      header := 9681348997

ciphertext: 
[12432485341, 2579085006, 13736574369, 4105371047, 9573017222, 

  7824534168, 10017411248, 13292180343, 2356887993, 9573017222, 

  10017411248, 13765667419, 9795214235, 10017411248, 2801282019, 

  608404939, 4105371047, 13765667419, 11572790339, 13765667419, 

  11765894302, 10017411248, 13765667419, 4549765073, 10017411248, 

  13736574369, 2579085006, 4549765073, 10017411248, 4549765073, 

  13765667419, 2801282019, 830601952, 4105371047, 10017411248, 

  7824534168, 13765667419, 13736574369, 2801282019, 7824534168, 

  10017411248, 830601952, 9573017222, 4327568060, 13765667419, 

  6076051114, 8268928194, 13292180343, 10017411248, 7824534168, 

  386207926, 2801282019, 4105371047, 2579085006, 6076051114, 

  608404939, 13765667419, 6076051114, 830601952, 13765667419, 

  4105371047, 11765894302, 10017411248, 13765667419, 13292180343, 

  13736574369, 10017411248, 608404939, 10017411248, 7824534168, 

  2134690980, 13765667419, 4105371047, 11765894302, 2801282019, 

  4105371047, 13765667419, 2579085006, 608404939, 13292180343, 

  11543697289, 2579085006, 7824534168, 10017411248, 4549765073, 

  13765667419, 4994159099, 5853854101, 6076051114, 830601952, 

  4327568060, 6076051114, 5853854101, 10017411248, 7824534168, 

  13765667419, 4105371047, 6076051114, 13765667419, 9573017222, 

  13292180343, 10017411248, 13765667419, 4105371047, 11765894302, 

  10017411248, 13765667419, 5853854101, 6076051114, 7824534168, 

  4549765073, 13765667419, 11572790339, 13765667419, 4105371047, 

  11765894302, 2801282019, 4105371047, 13765667419, 4105371047, 

  11765894302, 10017411248, 13765667419, 4327568060, 2801282019, 

  608404939, 4549765073, 13292180343, 13736574369, 2801282019, 

  11543697289, 10017411248, 13765667419, 5853854101, 2801282019, 

  13292180343, 13765667419, 11765894302, 6076051114, 7824534168, 

  7824534168, 2579085006, 8268928194, 4327568060, 2134690980, 

  13765667419, 11543697289, 7824534168, 10017411248, 13736574369, 

  2579085006, 11543697289, 2579085006, 4105371047, 6076051114, 

  9573017222, 13292180343, 2385981043, 13765667419, 3245676045, 

  9573017222, 2801282019, 2579085006, 608404939, 4105371047, 

  6105144164, 13765667419, 5853854101, 11765894302, 10017411248, 

  608404939, 13765667419, 9573017222, 13292180343, 10017411248, 

  4549765073, 13765667419, 4105371047, 6076051114, 13765667419, 

  4549765073, 10017411248, 13292180343, 13736574369, 7824534168, 

  2579085006, 8268928194, 10017411248, 13765667419, 4105371047, 

  11765894302, 10017411248, 13765667419, 6076051114, 13736574369, 

  13736574369, 2801282019, 13292180343, 2579085006, 6076051114, 

  608404939, 2801282019, 4327568060, 13765667419, 386207926, 

  2579085006, 4327568060, 4327568060, 2801282019, 6298248127, 

  10017411248, 13765667419, 4105371047, 11765894302, 7824534168, 

  6076051114, 9573017222, 6298248127, 11765894302, 13765667419, 

  5853854101, 11765894302, 2579085006, 13736574369, 11765894302, 

  13765667419, 4105371047, 11765894302, 10017411248, 2134690980, 

  13765667419, 11543697289, 2801282019, 13292180343, 13292180343, 

  10017411248, 4549765073, 6105144164, 13765667419, 9795214235, 

  10017411248, 2801282019, 608404939, 4105371047, 13765667419, 

  830601952, 10017411248, 386207926, 10017411248, 7824534168, 

  11572790339, 7824534168, 2579085006, 4549765073, 4549765073, 

  10017411248, 608404939, 13765667419, 2801282019, 608404939, 

  4549765073, 13765667419, 4105371047, 9573017222, 9795214235, 

  8268928194, 4327568060, 10017411248, 4549765073, 6076051114, 

  5853854101, 608404939, 2385981043, 13765667419, 4994159099, 

  5853854101, 6076051114, 830601952, 4327568060, 6076051114, 

  5853854101, 10017411248, 7824534168, 13765667419, 5853854101, 

  2801282019, 13292180343, 13765667419, 2801282019, 13765667419, 

  4105371047, 6076051114, 9573017222, 7824534168, 2579085006, 

  13292180343, 4105371047, 6105144164, 13765667419, 4105371047, 

  11765894302, 10017411248, 13765667419, 830601952, 2579085006, 

  7824534168, 13292180343, 4105371047, 13765667419, 10017411248, 

  386207926, 10017411248, 7824534168, 13765667419, 13292180343, 

  10017411248, 10017411248, 608404939, 13765667419, 6076051114, 

  608404939, 13765667419, 4105371047, 11765894302, 10017411248, 

  13765667419, 5438553125, 2579085006, 13292180343, 13736574369, 

  5853854101, 6076051114, 7824534168, 4327568060, 4549765073, 

  2385981043, 13765667419, 4994159099, 6076051114, 9573017222, 

  7824534168, 2579085006, 13292180343, 4105371047, 6105144164, 

  13765667419, 8713322220, 2579085006, 608404939, 13736574369, 

  10017411248, 5853854101, 2579085006, 608404939, 4549765073, 

  13765667419, 11765894302, 2801282019, 4549765073, 13765667419, 

  4549765073, 10017411248, 13736574369, 2579085006, 4549765073, 

  10017411248, 4549765073, 6105144164, 13765667419, 9795214235, 

  10017411248, 2801282019, 608404939, 4105371047, 13765667419, 

  8075824231, 2579085006, 4549765073, 2579085006, 6076051114, 

  4105371047, 8075824231, 2385981043]

  [1]: https://i.stack.imgur.com/xY3zd.png
  [2]: https://i.stack.imgur.com/0eYFM.png
  [3]: https://i.stack.imgur.com/PMk7s.png

I've made a system of two equations:

eq1:= x^2+y^2=0.314

eq2:= y=0.05180967688x

The first is a circle while the second is a line. I use the command fsolve in order to get the intersection and i get:

{x=0.5596,y=0.02899}

I need to use these results as the coordinates of a pointplot, how can i do it? Is there a way to isolate x and y?

Thanks

Hello everyone, I was trying to plot graph for some functions but its just plotting one plot. Anyone with useful information please.

Pe.maple

how to design antenna with maple i am looking for designing patch antenna using graphene 

smr_su_indicazioni.msim why the torque is zero?