home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #20 / NN_1992_20.iso / spool / sci / math / symbolic / 2421 < prev    next >
Encoding:
Text File  |  1992-09-15  |  4.3 KB  |  111 lines
  1. Newsgroups: sci.math.symbolic
  2. Path: sparky!uunet!utcsri!torn!watserv2.uwaterloo.ca!watdragon.uwaterloo.ca!daisy.uwaterloo.ca!katherle
  3. From: katherle@daisy.uwaterloo.ca (Kate Atherley)
  4. Subject: Re: Maple Problem : Error, (in normal/doit) floats not handled
  5. Message-ID: <BuMK21.75s@watdragon.uwaterloo.ca>
  6. Sender: news@watdragon.uwaterloo.ca (USENET News System)
  7. Organization: University of Waterloo
  8. References: <1992Sep13.143621.1@ntuvax.ntu.ac.sg>
  9. Date: Tue, 15 Sep 1992 14:54:01 GMT
  10. Lines: 99
  11.  
  12. In article <1992Sep13.143621.1@ntuvax.ntu.ac.sg> mc1586217@ntuvax.ntu.ac.sg writes:
  13. >The following maple program was ran under DEC VMS and the last line gave the
  14. >following error :-
  15. >
  16. >Error, (in normal/doit) floats not handled
  17. :
  18. :
  19. >
  20. >Does anyone know what's the problem. Thank you.
  21. >
  22.  
  23. This is a bug in the current version of Maple.  This has been fixed in
  24. the research version, and you can expect to see the fix in the 
  25. next release of Maple.  I include a session with the result of the
  26. calculation.
  27.  
  28. Unfortunately, there is no patch for the current version.
  29.  
  30.     |\^/|
  31. ._|\|   |/|_. Symbolic Computation Group, University of Waterloo
  32.  \  MAPLE  /  Research Version --- Mon Sep 14 16:24:13 EDT 1992
  33.  <____ ____>  Type ? for help.
  34.       |
  35. > with(linalg):
  36. Warning: new definition for   norm
  37. Warning: new definition for   trace
  38. > Q:=array(symmetric,1..3,1..3,[(1,1)=20.0,(1,2)=0.7,(1,3)=0.0,(2,2)=2.0,\
  39. > (2,3)=0.0,(3,3)=0.7]);
  40.                                   [ 20.0   .7   0 ]
  41.                                   [               ]
  42.                              Q := [  .7   2.0   0 ]
  43.                                   [               ]
  44.                                   [   0    0   .7 ]
  45.  
  46. > m:=cos(theta);
  47.                                 m := cos(theta)
  48.  
  49. > n:=sin(theta);
  50.                                 n := sin(theta)
  51.  
  52. > T:=array(1..3,1..3,[(1,1)=m^2,(1,2)=n^2,(1,3)=2*m*n,(2,1)=n^2\
  53. > ,(2,2)=m^2,(2,3)=-(2*m*n),(3,1)=-(m*n),(3,2)=m*n,(3,3)=(m^2-n^2)]);
  54.                [           2            2                            ]
  55.                [ cos(theta)   sin(theta)              2 %1           ]
  56.                [                                                     ]
  57.                [           2            2                            ]
  58.           T := [ sin(theta)   cos(theta)             - 2 %1          ]
  59.                [                                                     ]
  60.                [                                     2             2 ]
  61.                [     - %1          %1      cos(theta)  - sin(theta)  ]
  62.  
  63. %1 :=                       cos(theta) sin(theta)
  64.  
  65. > Qbar.k:=evalm(inverse(T) &* Q);
  66.        Qbark :=                2                         2
  67.                  20. cos(theta)  + .7000000000 sin(theta)
  68.                 [-----------------------------------------,
  69.                                      %2
  70.  
  71.                                           2                2
  72.                     .7000000000 cos(theta)  + 2. sin(theta)
  73.                     ----------------------------------------,  - 1.4 %4]
  74.                                        %2
  75.  
  76.                                 2                         2
  77.                   20. sin(theta)  + .7000000000 cos(theta)
  78.                  [-----------------------------------------,
  79.                                       %2
  80.  
  81.                                            2                2
  82.                      .7000000000 sin(theta)  + 2. cos(theta)
  83.                      ----------------------------------------, 1.4 %4]
  84.                                         %2
  85.  
  86.                                                      2             2
  87.                                            cos(theta)  - sin(theta)
  88.                    [19.3 %4,  - 1.3 %4, .7 -------------------------]
  89.                                                        %3
  90.  
  91.                                      2           2
  92. %1 :=                      cos(theta)  sin(theta)
  93.  
  94.                                 4                     4
  95. %2 :=                 cos(theta)  + 2. %1 + sin(theta)
  96.  
  97.                                 4                    4
  98. %3 :=                 cos(theta)  + 2 %1 + sin(theta)
  99.  
  100.                             cos(theta) sin(theta)
  101. %4 :=                       ---------------------
  102.                                       %3
  103.  
  104. > quit
  105. bytes used=517204, alloc=458668, time=1.78
  106.  
  107. Kate Atherley
  108. Technical Support
  109. Waterloo Maple Software
  110. support@maplesoft.on.ca
  111.