the graph of tan (x) and the graph of the tangent line ( at pi/4). the graph of arctan x, and the graph of the tangent line of arctan x at x=1.

4 graphs (on the same set of axis)

 

 

Hi Users!

Hope everyone in fine and enjoying good health. I am facing problem to differential the following expression with respect to first variable (mentioned as red). Please help me to fix this query

f(z*sqrt(a/nu[f]), U*t/(2*x))

Thanks in advance

create the sequence of exp (((aπ) / b)) for a varying from 1 to 15 and b varying from 1 to 10.

Hey.
I have been trying to convert my maple .mw file to a PDF under 'Print...' but it does not work. The problem is when I click on the "Save as PDF" and I name my pdf and click on 'Save' it does not save my file anywhere. It simply will not save it. 
Does somebody know why it will not save as a PDF? It saves all other files properly (also converts word files to PDF fine). 

 

Can I somehow define a function based on a result from a PolynomialFit.
It doesn't seem to read it as a function the way I try to define it now (see attached maple file).

I could copy the result into a function, but then I lose some information since the values are approximated.

Define.mw

dS[c] := Gamma*(P*In[a]+R[a]+S[a])-rho*S[c]-S[c]*beta[h]*In[v]/(S[c]+In[c]+R[c]+S[a]+In[a]+R[a]+In[m])-mu[h]*S[c]; dIn[c] := S[c]*beta[h]*In[v]/(S[c]+In[c]+R[c]+S[a]+In[a]+R[a]+In[m])-rho*In[c]-gamma*In[c]-mu[h]*In[c]; dR[c] := gamma*In[c]-rho*R[c]-R[c]*mu[h]; dS[a] := rho*S[c]-S[a]*beta[h]*In[v]/(S[c]+In[c]+R[c]+S[a]+In[a]+R[a]+In[m])-mu[h]*S[a]; dIn[a] := rho*In[c]+S[a]*beta[h]*In[v]/(S[c]+In[c]+R[c]+S[a]+In[a]+R[a]+In[m])-gamma*In[a]-mu[h]*In[a]; dR[a] := gamma*In[a]+rho*R[c]-R[a]*mu[h]; dIn[m] := Gamma*In[a]*(1-P)-mu[m]*In[m]; dS[v] := Gamma[v]-S[v]*beta[v]*(In[c]+In[a]+In[m])/(S[c]+In[c]+R[c]+S[a]+In[a]+R[a]+In[m])-mu[v]*S[v]; dIn[v] := S[v]*beta[v]*(In[c]+In[a]+In[m])/(S[c]+In[c]+R[c]+S[a]+In[a]+R[a]+In[m])-mu[v]*In[v]; solve({dIn[a]=0, dIn[c]=0, dIn[m]=0, dIn[v]=0, dR[a]=0, dR[c]=0, dS[a]=0, dS[c]=0, dS[v]=0}, {In[a], In[c], In[m], In[v], R[a], R[c], S[a], S[c], S[v]}); Warning, solutions may have been lost

Display integers between -10 and 20. Put integers between -10 and 20 in a list.

Display the odd integers between 115 and 231, then put them in a list

Construct a procedure that takes as argument a sorted list, an element n and returns the place of n if it belongs to the list, the sequence NULL otherwise.

Hi, I am trying to run the following command in a Maple worksheet

P:= 1979 #(this is the1000-th prime);
S:=5000; k:=5:
a:=[0$i=1..k];
f:=[0$i=1..k];
a[1]:=S;
f:=x->a[1];
with(RandomTools):
for i from 2 to k do
a[i]:=Generate(integer(range=1..P-1));
f:=x->f(x)+a[i]*x^(k-1);
print(f(x));
od;

(This is a beginning step to create the Shamir's secret sharing).
However, I get the following output (with explanations)

                              5000          (This is correct. the value a[1])
x -> a[1]                                   (This should be the initial function f = 5000)
                              7005          (This is correct, the value a[2])
x -> f(x) + a[i] x^(k-1)               (one of the main problems, see below)

The main problems are in the last output above:
1. The f(x) is not as it should be: f(x) = a[1] = 5000;
2. The index i isn't changed when it should be i = 2;
3.  An error message: too many levels of recursion  

The output (I expect) should be: 5000 + 7005x, ...., etc.

Thanks in advanced for any help.

I have two lines:

line(l1, [point(p1, [15, 6, 3.4]), vector([-4, 12, .3])]) and line(l2, [point(p2, [-17, 54, 3.2]), vector([6, -6, .2])])

They Intersect in this point: point(p3, [7, 30, 4]) (Tested it with IsOnObject)

When i use intersection(i1, l1, l2) it says "intersection: the given objects do not intersect"

Where is my Mistake?

Thank you for your Help!

I am trying to find an eigenspace of a matrix, but I am getting an error. I have attached a screenshot of the error and my work to help. 

int(exp(-sec(t))*cos(t)/(-1/4+sin(t)^2), t = 0 .. (1/2)*Pi, CauchyPrincipalValue = true, numeric = true);

Returns unevaluated for me.

I tried all the methods in HELP documentation and I failed.
Integral is singular at point 1/4.

Thank you.

Hello my friends

I have a problem with initial condition for below system of differential equation

sys := {6*(diff(a(t), t))^2+12*a(t)*(diff(a(t), t$2))-3*a(t)^2*phi(t)^(-2*c)*sqrt(1-alpha*(diff(phi(t), t))^2), 2*c*a(t)^3*phi(t)^(-2*c-1)*sqrt(1-alpha*(diff(phi(t), t))^2)-3*alpha*a(t)^2*phi(t)^(-2*c)*(diff(a(t), t))*(diff(phi(t), t))/sqrt(1-alpha*(diff(phi(t), t))^2)-alpha*a(t)^3*phi(t)^(-2*c)*(diff(phi(t), t$2))/sqrt(1-alpha*(diff(phi(t), t))^2)+2*c*alpha*a(t)^3*phi(t)^(-2*c-1)*(diff(phi(t), t))^2/sqrt(1-alpha*(diff(phi(t), t))^2)-alpha^2*a(t)^3*phi(t)^(-2*c)*(diff(phi(t), t))^2*(diff(phi(t), t$2))/(1-alpha*(diff(phi(t), t))^2)^(3/2), R(t) = 6*((diff(a(t), t))^2/a(t)^2+(diff(a(t), t$2))/a(t)), W(t) = -phi(t)^(-2*c)*sqrt(1-alpha*(diff(phi(t), t))^2)/(1/a(t)^3+a(t)^3+phi(t)^(-2*c)/sqrt(1-alpha*(diff(phi(t), t))^2))}

I set {c,alpha}={1,1} but initial conditon is problem ... since I got the following message from maple to illustrate diagrams of W(t), a(t) and even phi(t)

Warning, cannot evaluate the solution past the initial point, problem may be complex, initially singular or improperly set up
 

please help me.

 

with the best regard