Maple Tools - Symbolic engine for SMath Studio. - Сообщения
WroteWhen you are trying to calculate the last expression the maple() function takes the following expression (see mvr5\mvr5.txt):
07.06.2013 23:02:12 [->] solve({(0=(77/10000*ln({((77/10000+772893421/100000000000000*t*715*cos({(Pi/4)}))/77/10000)}))/772893421/100000000000000)},t)
07.06.2013 23:02:12 [->] C:\Temp\tmp1B5E.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):
writeto("C:\\Temp\\tmp1B5F.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc()
local i, j, out:
out := [ args[j] $ j = 1 .. args[ nargs ] ]:
for i from 2 to args[ nargs - 1 ] do
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]:
od:
convert( [ out ], array );
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
solve(((0=(77/10000*ln((((77/10000+772893421/100000000000000*t*715*cos\
(((Pi/4))))/77/10000))))/772893421/100000000000000)),t):
if ( whattype( ans ) = `exprseq` ) then
convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then
convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then
convert( convert( eval( ans ), string ), symbol );
elif ( whattype( ans ) = `series` ) then
convert( convert( ans, polynom) , symbol );
elif ( whattype( ans ) = `string` ) then
convert( ans, symbol );
else
convert( convert( ans, string ), symbol ); fi;
quit:
07.06.2013 23:02:12 [<-] C:\Temp\tmp1B5F.tmp:
1399999986000000000/10047614473*2^(1/2)
07.06.2013 23:02:12 [<-] 1399999986000000000/10047614473*2^(1/2)
As you can see: solve({(0=, but you expected solve({(x=. That's the difference. The solve() function solves another equation.
Hello,
As far as well I understand, you want to say that this is not the Maple error but SMath Studio. Am I right? Please forgive my enquiries.
Regards,
Janusz
Thank you for the answer. I do not doubt that you will find proper solution.
Best regards,
Janusz
325 сообщений из 2 052 понравились и 1 не понравились пользователям.
Группа: Moderator
Here is a simple example I've mentioned before


I do nothing but recalculate the worksheet subsequently. After few (do not know ho many) the results changed and get back. Sometimes "Empty stack..." happened (did not caught it here)
As I am not a Maple user, I might do something wrong of course - but looks strange to me.
Could someone try to reproduce this? Just open the file and press F9 until/if the results changed.
Regards,
Radovan
mvr5.txt (666 КиБ) скачан 129 раз(а).
325 сообщений из 2 052 понравились и 1 не понравились пользователям.
Группа: Moderator
Regards,
Radovan
325 сообщений из 2 052 понравились и 1 не понравились пользователям.
Группа: Moderator
Once again thank you for your perfect help. Unfortunately I do not have the experience with the Maple application, by now I used Derive. However SMath Studio with the MapleWrapper plugin is a splendid programme. I think I must better recognize the Maple language.
The best regards,
Janusz
P.S.
It's a matter of the parenthesis:

325 сообщений из 2 052 понравились и 1 не понравились пользователям.
Группа: Moderator
By the way, I did not use Maple at all

Regards,
Radovan
I try calculate the LambertW function as in the after-mentioned example. During calculations I receive the answer: "function is not defined". I found the name of LambertW function in the cmds file of MapleWrapper plug-in, but I'm not sure that the function is implemented in that plug-in. From the prompt of the plug-in or SMath Studio - I'm not sure, results that the function is not implemented in MapleWrapper. Please for the confirmation is that function implemented or not. Maybe I do something improperly?

Regards,
Janusz
325 сообщений из 2 052 понравились и 1 не понравились пользователям.
Группа: Moderator
Regards,
Radovan
WroteThe problem in the fractional representation of the numbers.
Uni,
Thank you for the bright and complete answer.

The best regards,
Janusz
mvr5 (2).txt (2 КиБ) скачан 141 раз(а).
error maplescript.txt (15 КиБ) скачан 123 раз(а).
WroteI am not able to reproduce the maple plot examples in 4909 any more. maple() runs as usual, just the maple plot region seems to have problems to produce the image files. The temporary files mentioned in the log file are created but empty.
Fixed.
ЦитатаSMath crashes when I try to access the context menu of a maple region. The contents of the error message is attached. Using SMath 4909.
Do not use this region for now.
After writing the command, you can evaluate just once. Upon recalculation (button in toolbar) control gets lost.
You could either translate the = to boolean equal (this is how we plan to handle that in Maxima)
or translate it into : and thereby immediately defining the solution function. This, however, would provide problems upon recalculation of the sheet. You also might just cut off the left hand side, but that perhaps won't work for systems of equations.
dsolve.sm (2 КиБ) скачан 145 раз(а).
325 сообщений из 2 052 понравились и 1 не понравились пользователям.
Группа: Moderator
[MATH=eng]f(x):maple(op(2,dsolve(diff(f(x),x)+5*x*f(x)≡x^2,f(x))))[/MATH]
[MATH=eng]f(x)={sqrt(10)*(x*sqrt(10)+i*sqrt(π)*exp(-{5*x^2}/2)*Erf({i*x*sqrt(10)}/2))+50*exp(-{5*x^2}/2)*_C1}/50[/MATH]
Regards,
Radovan
-
Новые сообщения
-
Нет новых сообщений