@Carl Love I never knew that the ab=ba could be done 

(ab, bc, cd, da):= ((ba, cb, dc, ad):= (17, 17, 29, 18))

also `&D;` I guess because D is the derivative operator.

@acer Thank you. I will test that tonight.

@mmcdara I dont think that actualy works. I  tried something similar without LargeExpressions and managed to totally seperate the real and imaginary. But got the wrong answer. Nice try though.

@Kitonum Ah,I had triwd that. I didn't realise how csgn actualy works.Stuck in some values a got a correct result.

@Scot Gould   there is a   "    in the blanks to indicate what is above is repeated.

I has that a lot on Maple 2023. It dissappeared after I did a  reinstall of windows for months. It started again late Feb early march Just before I moved to 2024. Was having some problems initally with 2024, but not icons dissapearing though. It turned out I had installed on java viewer in late February. I removed all the java on my pc and the problem cleaned up.

@Scot Gould Sometimes it takes a quite a while to show in active conversations. I was actually going to delete the question.

There have been about two occasions where it nothing updated in active conversations over 4 or 5 months. 

@acer Thank you. I can set the results to be an Array or list.

@Scot Gould That shows the sorting very well. I converted you reply to an asnwer.

@dharr  Hi I think you just re-uploaded @Scot Gould 's worksheet.

@nm Ok, so it not a bug but pretty undependable IMO. How do I sort based on index of min value?

@nm I get the crase on Maple 2024 but not Maple 2023.2

@dharr  Not that I know off. But where should I check for the file. Could be something old in there. I am using the VS code editor and that can launch cmaple. 

@dharr I edited the code above as you suggested. Hilighted in green. There is a print statement at the end on ModuleLoad so added some "xxx" 's to it so I would know which one is printing. THe Inforlevel seems to control the print statement not what is supposed to be displayed from infolevel. Also message is displayed for any infolevel number 0,1,2,3,4. But at least I have some control over the message now.

restart

infolevel[RationalTrigonometry]:=0
 "xxxxDefault global settings:-

     GeomClr = "Blue",

      Prntmsg = true,

       Prjpsn = 3 can be set to 1,

      Normalgpt = 1 or set to 0, 

    Metric is a 3 x3 symmetric matrix defaults to the Identity 

    matrix "


              infolevel[RationalTrigonometry] := 0

with(RationalTrigonometry)

@dharr   Below outlines my package structure. I just can't get the infolevel system to work. I have tried (I think) both you methods.

Any ideas of where I am going wrong?

restart:
infolevel[RationalTrigonometry]:=3;
with(RationalTrigonometry)

RationalTrigonometry:=module()
    option package;
    
    export 
        AcuteObstuseQ,
#about 20 exports

# load = `Default global settings`;
     
local ModuleLoad, ModuleUnload,Colour_Test,Remequal, Dsp, pzp, xpsn, ypsn, zpsn, prnt,
        RMatrix, GMatrix, RProjM,`Default global settings` ;   #RelDPxyz, WhichMyType,
global  Metric,normalgpt, Prntmsg, prjpsn, GeomClr ;
 

ModuleLoad:= proc()
          
     uses TT= TypeTools;
     global _T1, _T2L,  _T2VR, _T3L,  _T3VC, _T3VR, _T4L, _T4VC, _MyType;
          #_a1:=1, _a2:=1, _a3:=1, _b1:=0, _b2:=0, _b3:=0 #GCb, GCg, GCr,xpsn, ypsn, zpsn,
     userinfo(2,RationalTrigonometry, "Default global settings:-\n GeomClr = ""Blue"",\n Prntmsg = true,\n Prjpsn = 3 can be set to 1,\n Normalgpt = 1 or set to 0, \n Metric is a 3 x3 symmetric matrix defaults to the Identity matrix ");
     GeomClr:="Blue";
     Prntmsg::boolean:=true;
     prjpsn::{1,3}:=3;
     normalgpt::{0,1}:=1;
     Metric:=Matrix(3,shape=symmetric,[[1,0,0],[0,1,0],[0,0,1]]);
  
     local 
     MyTypes:= {_T1, _T2L,  _T2VR, _T3L, _T3VC, _T3VR, _T4L,_T4VC},
     AllMyTypes:= MyTypes union {_MyType};
 
     g, #iterator over module globals
     e;
      ModuleUnload:= proc()
     local T;
          for T in AllMyTypes do if TT:-Exists(T) then TT:-RemoveType(T) end if; end do;
          return
     end proc;
     alias (eparm=CircleParmUHG,LinePts=Lines);   
    
     TT:-AddType(_T1, {algebraic,symbol});
     TT:-AddType(_T2VC, 'Vector[column](2, algebraic)');
     TT:-AddType(_T2VR, 'Vector[row](2, algebraic)');
     TT:-AddType(_T2L, [algebraic $ 2]);
     TT:-AddType(_T3VC, 'Vector[column](3, algebraic)');
     TT:-AddType(_T3VR, 'Vector[row](3, algebraic)');
     TT:-AddType(_T3L, [algebraic $ 3]);
     TT:-AddType(_T4L, [algebraic $ 4]);
     TT:-AddType(_T4VC, 'Vector[column](4, algebraic)');
     TT:-AddType(_MyType, MyTypes);

     :-print("xxxxDefault global settings:-\n  GeomClr = ""Blue"",\n   Prntmsg = true,\n    Prjpsn = 3 can be set to 1,\n   Normalgpt = 1 or set to 0, \n Metric is a 3 x3 symmetric matrix defaults to the Identity matrix ");
     return
end proc;


$include "Rational_Trigonometry\Acute Obtuse Quadrances.mpl"

#about 20  $include....

end module: