01-25-2020, 12:36 AM
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]
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 ={
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
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
[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
it is recoded as
In HPConnectivity Kit shown as
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
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;
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;
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;