MaplePrimes Questions

Hey there,

 

I'm trying to evaluate some parameter of a function when x and y are 0.

 

Here's the code:

> Y1 := proc (x) options operator, arrow; int(`Y1"`(x), x)+C1 end proc;

 

> solve({Y1(0) = 0}, {C1});

But unfortunately I get the following error:

Error, (in int) integration range or variable must be specified in the second argument, got 0

 

I know that the value of C1 is gonna be 0, but I want the program to say me this...

 

Please, some help.
 

i have a nonlinear equation,W, which have two unknowns: x and b 
i want to solve W for b, and the x domain is : -4e-6<x<4e-6. can anyone help? tnx in advance


 

restart; with(DirectSearch)

E := (-7.29511346879067*10^9*b-12693.49752)*((D@@2)(phi))(x)+(5.36829162574305*b+0.3487242314e-3)*((D@@4)(phi))(x)+(2.02316788462733*10^17*b+4.107030812*10^12)*phi(x)+1.74615339888993*10^17*b

(-7295113469.*b-12693.49752)*((D@@2)(phi))(x)+(5.36829162574305*b+0.3487242314e-3)*((D@@4)(phi))(x)+(0.2023167885e18*b+0.4107030812e13)*phi(x)+0.1746153399e18*b

(1)

dsolve(E, phi(x))

ivp := {E, phi(-0.406e-3) = 1, phi(0.406e-3) = 1, (D(phi))(-0.406e-3) = 0, (D(phi))(0.406e-3) = 0}

{(-7295113469.*b-12693.49752)*((D@@2)(phi))(x)+(5.36829162574305*b+0.3487242314e-3)*((D@@4)(phi))(x)+(0.2023167885e18*b+0.4107030812e13)*phi(x)+0.1746153399e18*b, phi(-0.406e-3) = 1, phi(0.406e-3) = 1, (D(phi))(-0.406e-3) = 0, (D(phi))(0.406e-3) = 0}

(2)

N := dsolve(ivp, phi(x))

A := simplify(rhs(dsolve(ivp, phi(x))))

W := evalf(subs(phi(x) = simplify(rhs(dsolve(ivp, phi(x)))), (2.74505742817409*10^8+3.18054074382591*10^8*phi(x))^2-(1.63833629390402*(2.74505742817409*10^8+3.18054074382591*10^8*phi(x)))*(diff(phi(x), x, x))+3*(6.98727355657655*10^7+32282.4885498329*(diff(phi(x), x)))^2+2.68414581287153*(diff(phi(x), x, x))^2 = 0.9e17))

 

``

``

 

 

 


 

Download MZ2.mw

I found a condition for p, q that N=pq can be factored in plynominal time using Maple 2020.
Is fllowing Hypothesis and Proof is right?

Hypothesis

       N=pq  p and q are large prime respectively.
         R=q/p  q > p  R is very close to an small integer or a simple rational number.
       
        N=pq can be factorized in time polynomial

Proof
        point[p, q] is on y=N/x
        y=N/x  and y=Rx cross at point[p, q]
        N is n digit
        upper  2 digits N2  round off the 3rd digit
        upper  3 digits N3  round off the 4th digit
        upper  4 digits N4  round off the 5th digit
        
        y=N2/x and y=Rx cross at point[p2,q2]
        y=N3/x and y=Rx cross at point[p3,q3]
        y=N4/x and y=Rx cross at point[p4, p4]

        But we only know N.

        Let line up candidates point[p2,q2] , point[p3,q3] and point[p4, p4]


       N2 < 99  i=1..10 j=1..10
       R2=i/j
       f2=N2/R2 - j^2
       dn2=abs(N2-R2*j^2)   

      N4 < 9999  i=1..99 j=1.. sqrt(N4)
      R4=i/j
      f4=N4/R4 - j^2
      dn4=abs(N4-R4*j^2)

     Point[j, i] that have  small f2 and dn2 can be nominated as candidate for point[p2, q2]
     Point[j, i] that have  small f3 and dn3 can be nominated as candidate for point[p3, q3]
     Point[j, i] that have  small f4 and dn4 can be nominated as candidate for point[p4, q4]

    Find cross point[px, qx] of y=R2x and y=N/x , y=R3x, y=N/x and y=R4x, y=N/x
    Find the nearest prime pn for px and the nearest prime qn for qx
   
   pn*qn=N  bingo!

   Number of candidates are finit.
   You can factorized N=pq in time polynomial.
                                   
                                                                       Q.E.D. ?

In addition, using "https://www.mapleprimes.com/questions/228532-Strange-Factorization"

Rang from p - half digits of p to p + half degits of p and /or range q - half digits of q to q + half degits of q  N=pq can be factored in plynominal time.

Hello everybody,

I am a Maple 2020 user and I want to ask, if it is possible to change the fonts in Plots (Axes, Lables, Legend...) to the standard font that is used by LateX (Computer Modern)

This would improve the look of a plot used in a LateX document.

 

Thank you in advance.

I am trying to solve a surface integral but I am not able to get Maple to give me an actual value.  Please can you help?

 

This is what I wrote:

restart;
with(Student[VectorCalculus]):
with(Student[MultivariateCalculus]):
x:=u; y:=v; z:=(2*u*v)/(4*v-3*u);
r:=<x,y,z>;
ru:=diff(r,u);
rv:=diff(r,v)
n:=simplify(CrossProduct(ru,rv));
f:=(x,y,z)->x^2*y+3*x*z-2*y^2;
simplify(Int(f(x,y,z)*Norm(n),u=1..2,v=1..4));
int(f(x,y,z)*Norm(n),u=1..2,v=1..4, numeric=true);
 

Hi, everyone!

I'm trying to do some computations with (truncated) multivariable power series, which I'd like to put into Hironaka standard basis form.  This is almost the same as a Groebner basis, except that the "leading" terms have smallest degree instead of largest.  This requires slight changes to the algorithms in order to make sure they terminate.  Does anyone know if this has been implemented in Maple or have a good way to fake it?  Here's what I've thought of:

  • Using the Groebner package with grlex_min instead of grlex.  The documentation warns that this may not terminate, and sure enough, it doesn't.  (At least not before my computer runs out of memory.)
  • Replacing the truncated power series with their palindromes, using the Groebner package, and then switching back, making sure all the degrees are correctly accounted for.  This should work, but it's going to be a major pain.
  • Reimplementing the Groebner routines.  I'd really rather not, but I'd love to know if anyone else has.

Anybody have any other ideas or suggestions?

Thanks!

----Josh

Dear community,

I am new to maple and was trying to get a solution for simple Hagen Poiseuille Flow. Hagen Poiseuille Flow  has governing equation as :

ode2 := -v+mu((diff(r*(diff(ur), r)), r))/r) = 0

here 'v' is a constant (pressure gradient) and the equation is in cylindrical coordinates

the problem has two boundary conditions as u(R) = 0 and u(0) = 'finite'.

I am struck at the second condition as there seems to be no option to say maple that the solution should be finite at a point.

Can anyone help me in this regard?

 

 

Alternatively, I can give second boundary condition as (D(u))(0) = 0. However, this gives a solution as follows:

dsolve({ode2, u(R) = 0, (D(u))(0) = 0}, u(r)):

u(r) = (1/4)*RootOf(-mu(_Z)+v)*r^2-(1/4)*RootOf(-mu(_Z)+v)*R^2

 

This doesn't look very easy, and I don't know what to do with this. 

The solution for the above differential equation is simple and can be obtained on paper. Please help.

 

Thank you.

 

 

Hello. I am trying to solve this system of equations but I can't get Maple to show all solutions.

I have solve the system by hand and there are two more solutions (x=x, y=1) and (x=x, y=-1).

 

Thanks for any help !

 

For example, the line:

> for x from 1 by 0.2 to 2 do print (fsolve (x*y = 1)) end do;

returns a list of 6 values of y. Is there any way of transferring this list into a spreadshhet program, such as SigmaPlot or Excel, as a column other than cutting-and-pasting? A simple cut-and-paste (I've tried) leaves empty cells in-between entries. An alternative is to right-click with the mouse and choose "Conversions" => "Make into List" or "Make into Set", which results in:

> R1 := {.8333333333, .5555555556, .6250000000, 1., .7142857143, .5000000000};

> R0 := [1., .8333333333, .7142857143, .6250000000, .5555555556, .5000000000];


These can be saved into a text file that can be opened in Excel and only needs to be transposed (the results are pasted as a row). Although the solution above would be fine for a small number of values, it would be cumbersome for a larger number of values.

 

 

Hello

I was looking for a way to make maple assign an individual name to a list of values or equations. Say, for example, that you solve an equation with two solutions, and would like to make Maple assign the first solution to a name "A" and the second solution to a name "B" automatically. This would optimize a document I'm working on significantly. 

Kind Regards

Hi, could someone tell me what this comma inside the arctan means?

Screenshot: https://photos.app.goo.gl/ZHyfdqcxWDgvgMZL7

i want to compute and draw  lattice points from a given lattice basis.

for example 2d cartesian coordinate system;

thank 

 

 

Hi,

How to display combinations without repetition of a set ( order does not matter)

Thanks

CAP13Combinatoire.mw

My points are all numerical values. Why gives me such error?
 

 


``


 

Download temp.mw

Hi 
I need to represent the contourplot of sum a function as

contourplot(sum(BesselJ(n,r),n=0..5),r=-10..10).
can anyone know what the problem is ?

Thanks

First 351 352 353 354 355 356 357 Last Page 353 of 2308