error editing a CAS program outside the program editor

[compsystems]

Hello

There was an error editing a CAS program outside the program editor.
Steps to reproduce the error.

press the keys [shift]+[1] + Menu: [new]
Name: fract1
CAS: ✔
then [ok]

PHP Code:

#cas
fract1():=
BEGIN
|
END;
#end 


Position the cursor between BEGIN ... END;
if you are operating the simulator copy and paste the next code (Mandelbrot fractal)

In HPConnectivity Kit program editor (2020) still does not allow to put a template for functions of type CAS ={

PHP Code:

EXPORT fract1()
BEGIN

END; 


the EXPORT statement must be removed, then add the #cas directive and the assignment operator :=
In other words, better select all, and delete the template and start writing.


// Mandelbrot fractal

PHP Code:

#cas
fract1(X_,Y_,Nmax):=
BEGIN
  local x,y,z,c,j,w,h,res1,res2;
  freeze;
  w:=2.7/X_;
  h:=-1.87/Y_;
  res1:=[]; 
  Y_:=Y_-1;
  for y from 0 to Y_ do
    c:=-2.1+i*(h*y+0.935);
    for x from 0 to X_-1 do
      z:=0;
      for j from 0 to Nmax-1 do
        if abs(z:=z^2+c)>2 then break; end;
      end;
      res1.append(pixon_p(x,y,126*j+2079));
      c:=c+w;
    end;
   end;
   return "Done"
END;
#end 


fract1(320,240,10) [enter] correctly draw the fractal [esc] for exit
then
[shift]+[mem] CAS Vars [enter]
fract1 [edit]
the code is shown as

PHP Code:

(X_,Y_,Nmax)->BEGIN  
 LOCAL x,y,z,c,j,w,h,res1,res2; 
  freeze;  
  w:=(2.7/X_);  
  h:=(−1.87/Y_);  
  res1:=copy(NULL);  
  Y_:=Y_-1;  
  FOR y FROM 0 TO Y_ DO  
  c:=−2.1+i*(h*y+0.935); 
  FOR x FROM 0 TO X_-1 DO  
  z:=0; 
  FOR j FROM 0 TO Nmax-1 DO IF (ABS(z:=z^2+c))>2 THEN BREAK ;  END ; 
  END;; 
  res1::append(pixon_p(x,y,126*j+2079)); 
  c:=c+w; 
  END;; 
  END;;  
  RETURN(Done);  
END; 


[enter] [edit] [enter] [esc]

fract1(320,240,10) [enter] stays in an infinite cycle
[esc] "append(res1,pixon_p(x,y,126*j+2079)) in fract1(320,240,10) instruction #15 error, try debug(fract1(320,240,10))
Error: Bad Argument Value"

I think the problem is that the COPY() Xcas function is not yet incorporated into the more recent firmware

when writing

PHP Code:

res1:=[]; 


it is recoded as

PHP Code:

res1:=copy(NULL); 


In HPConnectivity Kit shown as

PHP Code:

res1:=undef;