Dear all

I need your help to plot

1)   First:  a three dimensionl curve, that is plot F(X,Y), where X, Y, and F(X,y) is given  

curve_three_d.mw

2) Second: can plot all the curves in the same graph ( 2-dimensional curve)  obtained from the following idea 
for j from 0 by 5 to 40
plot( F(X,j), X)
end for

thank you for your help

For a long time I could not understand how to make a kinematic analysis of this device based on the coupling equations (like here). The equations were drawn up relative to the ends of the grips (horns), that is, relative to the coordinates of 4 points. That's 12 equations. But then only a finite number of mechanism positions take place (as shown by RootFinding[Isolate]). It turns out that there is no continuous transition between these positions. Then it is natural to assume that the movement can be obtained with the help of a small deformation. It seemed that if we discard the condition of a constant distance between the midpoints of the horns (this is the f7 equation at the very beginning), then this will allow us to obtain minimal distortion during movement. In fact, the maximum distortion during the movement was in the second decimal place.
(It seemed that these guys came to a similar result, but analytically "Configuration analysis of the Schatz linkage" C-C Lee and J S Dai
Department of Tool and Die-Making Engineering, National Kaohsiung University of Applied Sciences, Kaohsiung, Taiwan Department of Mechanical Engineering, King’s College, University of London, UK)
The left racks are input.


The first text is used to calculate the trajectory, and the other two show design options based on the data received.
For data transfer, a disk called E is used.
Schatz_mechanism_2_0.mw
OF_experimental_1_part_3_Barrel.mw
OF_experimental_1_part_3.mw

How to integrate the below function from 0 to eta.

A := P(eta)+S(H-2*`cosθ`(eta+1)*F)+`cosθ`*(2*F(eta)-2*H*F) = S(eta+1)*`sinθ`*F(theta)-`sinθ`(F*H(theta)-H*F(theta)+F(theta, eta))

Thanks in advance

HI, I have numerically solved the given problem using the dsolve command But I want to solve the same problem using the Differential transformation method.
Can anyone help me to get the series solution for the given problem using DTM.

I want to compare the numerical results with DTM results when lambda =0.5.

eqn1 := diff(f(eta), `$`(eta, 3))+f(eta)*(diff(f(eta), `$`(eta, 2)))-(diff(f(eta), eta))^2-lambda*(diff(f(eta), eta)) = 0.

eqn2 := diff(theta(eta), `$`(eta, 2))+f(eta)*(diff(theta(eta), eta))*Pr = 0

Bcs := (D(f))(0) = 1, f(0) = 0, (D(f))(infinity) = 0, theta(0) = 1, theta(infinity) = 0;

[lambda = .5, Pr = 6.3]

Dear all

I need to  `Put markers to emphasize the point of intersection between f, and g

iteration.mw

thank you

x := [0, 1, 2, 3, 4, 0, 1, 2, 3, 4, 0, 1, 2, 3, 4, 0, 1, 2, 3, 4, 0, 1, 2, 3, 4]

y := [0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4]
z := [0, 0, 0, 0, 0, 0, .689376362, 1.378752724, 2.068129087, 2.757505449, 0, 1.02920355, 2.0584071, 3.087610649, 4.116814199, 0, 1.216469264, 2.432938529, 3.649407793, 4.865877057, 0, 1.325720912, 2.651441823, 3.977162735, 5.302883646]

How to plot the contour plot for the given data

Hello!

How do I solve this system? could someone help me please.

restart;
eqns := {x(t+1) = (1+10^(-6)*(0.4e-2-0.6e-2)/(0.1e-3))*x(t)+0.7e-1*10^(-6)*y(t),

y(t+1) = 0.6e-2*10^(-6)*x(t)/(0.1e-3)+(1-0.7e-1*10^(-6))*y(t)};

with:
x(0) = 1
y(0) =
y(0) = 857.1428571

Download SystemRecursive.mw

Dear all

How can I add more terms, in taylor approximation of odes. 

Attached the code well written for only second order approximatiom, how can i get the fourth order approximation in taylor expansion to approximate an IVP

taylor_fourth_order.mw

thank you

Dear all

I solved a linear system using Jacobi method , then I plot the solution, someting is wrong, I can't plot the solution 

jacobi.mw

Thank you for your help 

dear all

I try to create a table with four columns but someting wrong, the code contains few lines, 

table_columns.mw

Thank you for your help 

dear all

I have a system of 4 equations with 4 unkowns, but maple says that there 7 unknowns, and fsolve does return any solution

problem_solve_system.mw

Thanks

Dear all

I tried to solve a second order ODE, using dsolve but maple doest not return an explicit solution and no solution plotted. 

solve_ode.mw

thank you for your help 

Dear all

I tried to redo the same steps as presented in 
https://www.youtube.com/watch?v=l4Y3iQrPBa8
using Maple 

BUT, I  have an error, 

                               Error, (in assembly) bad index into Vector
I hope find the error in maple code

code1.mw

thank you 

Dear all

I just write a code, everything is well written, but using 

M := Multiply(y11, Transpose(s)) 

I get a table and not a matrix,  PLEASE see equation 19 and 20

probem_multiply.mw

Thank you for your help 

Dear all

I have a nonlinear system of algebraic equations, I would like to solve it  without using fsolve and Newton's method. 
Maybe one can use, fixed point method or Broyden's method

Fixed_Broyden_method.mw

Can we solve the system of 4 equations, using the proposed methods

thank you