571 Reputation

17 years, 216 days
Technical professional in industry or government
Budapest, Hungary

with delayed evaluation...

There are wrong number of parameteres in seq, you can avoid this error using the right single quotes in order to delay the evaluation:

p:=t->piecewise(seq('q-1<=t and t<q, f[q](t+1-q)[i][j]',q=1..33));

p(t);

p(1);

isdifferentiable...

You can also try isdifferentiable with optional argument :

isdifferentiable(abs(x), x, 1, 'la');

la;

factrix from the Maple Advisor Database...

The factrix command from the Maple Advisor Database (  http://www.math.ubc.ca/~israel/advisor/ )  can be used for finding the common factors in a matrix:

M:=Matrix([[1/4, 1/2], [1/2, 1/4]]);

factrix(M);

1/4.(Matrix(2, 2, {(1, 1) = 1, (1, 2) = 2, (2, 1) = 2, (2, 2) = 1}))

without y axis...

plots[pointplot](([seq])([x, 0], x = [-2.5, -2, .5, 1.5]), symbolsize = 20, symbol = solidcircle, colour = red, axis[2] = [location = high, color = white], view = [-2.6 .. 1.6, -1 .. 1]);

I don't find  an option such as axis[n]=none in the help. It would be useful in this case.

SFloatMantissa and rounding...

SFloatMantissa can also be used to get the digits of Pi.

Pidigits:=n->convert(SFloatMantissa(evalf[n+1](Pi)),string)[..n];# n digits of Pi without rounding the last digit

Thanks....

Thanks for the suggestions.

pattern matching in digits of Pi...

I recommend this similar topic of Mapleprimes, you can find here some useful tips.

www.mapleprimes.com/forum/patternmatchingsequencedigits

fsolve...

You can use fsolve:

eq:=2.160417096*x^(2.513) + 0.9921351694*x^(0.512) -15.95645167 = 0;

plot(lhs(eq));

fsolve(eq);

first problem...

A solution for your first problem:

restart;
with(inttrans);

f:=piecewise(abs(t)>=1 and abs(t)<=2,1);

F:=fourier(f, t, w);

plot(f,t=-3..3,title=typeset("f(t)= ",f));# the plot of f(t)

# In this case the Fourier transform is real so it can be plotted directly:

plot(F,w=-20..20,title=typeset("Fourier transform of f(t) is\n",F));

free alternative...

Ganso is a free library for global optimization, it has also a Maple version:

printf...

You can use the printf command for this purpose:

poi:=x->exp(-0.2225)*0.2225^x/x!;

for i from 0 to 4 do printf("%10.2f\n",poi(i)*10000);  end do:

See it in the help:
?printf

Row...

You can use the Row command from the LlinearAlgebra package:

with(LinearAlgebra):
M:=Matrix([[1,0,0,1],[0,1,0,1],[1,0,1,0],[1,0,0,1]]);
Row(M,1);

I recommend you the Spread package for this purpose ( it was referred in the thread above). You can use it in a similar way as Excel.

In the first colunm (A) you can enter the diameters, and in the second column (B) you can type the formula:   1/4*Pi* ~A1

The cell reference is the tilde symbol:  ~A1

You can copy-paste the formula and you can force the evaluation with the Evaluate All command in the right-click menu.

changevar...

I forgot that I asked a similar question some months ago and Alex Smith suggested changevar, it works also here:

student[changevar](w=2*Pi*f,Xw);

I would like to see a stronger algsubs command in Maple.

It works....

Thanks you all for helping.

I have cleaned my maple.ini and it is ok.  I will check which package causes the problem.

 1 2 3 4 5 Page 2 of 5
﻿