7 replies to this topic

[enproblemado]

Hi to anyone, first of all I don't speak english, so my post may have gramatical errors, at the end of this topic I will write in spanish if you speak spanish and don't understand my english.

Ok, lets go...

My calcutator is a cfx-9850 gb plus we, and I've searched a function to make a graphic in 3d, but I not found it, so I've downloaded the users manual of the lastest model of the casio calculator, and this model doesn't graphic in 3d, so I made a simple program that draw this 3d surfaces, is (cat format):

%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:270
File Name:GRA3D
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
\ClrGraph
\AxesOff
0\->L~O
0\->Q
\Locate 5,3,"\slash"
\Locate 7,3,F+1
\For D\->Y \To E \Step (E-D)/F
\Isz Q
\Locate 1,3,Q
\For A\->X \To B \Step (B-A)/C
\Prog "3DCUD"
\If W=1
\Then H<L\=>H\->L
H>M\=>H\->M
I<N\=>I\->N
I>O\=>I\->O
\IfEnd
\Next
\Next
\ViewWindow L,M,1,N,O,1
\For D\->Y \To E \Step (E-D)/F
0\->G
\For A\->X \To B \Step (B-A)/C
\Prog "3DDIB"
\Next
\Next
\For A\->X \To B \Step (B-A)/C
0\->G
\For D\->Y \To E \Step (E-D)/F
\Prog "3DDIB"
\Next
\Next

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:187
File Name:3DCUD
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
P=1\=>\Deg
P=2\=>\Rad
P=3\=>\Gra
\If \f5\<>0
\Then \f6\->Z
\If \ImP (Z)=0
\Then 1\->W
\Deg
\If \r\<>0
\Then X*\cos (\r)-Y*\sin (\r)\->R
X*\sin (\r)+Y*\cos (\r)\->S
\Else X\->R:Y\->S
\IfEnd
\If \theta\<>0
\Then S*\cos (\theta)-Z*\sin (\theta)\->T
S*\sin (\theta)+Z*\cos (\theta)\->U
\Else S\->T:Z\->U
\IfEnd
R-T\->H
U-T\->I
\Else 0\->W
\IfEnd
\Else 0\->W
\IfEnd

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:75
File Name:3DDIB
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Prog "3DCUD"
\If G=0
\Then W\->G
\Else \If W=1
\Then \F-Line J,K,H,I
\Else 0\->G
\IfEnd
\IfEnd
\If W=1
\Then H\->J:I\->K
\IfEnd

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:457
File Name:GRAPHI3D
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"GRAPHIC FUNCTION"
"Z=\f6(X,Y)"
"DENOMINATION IN \f5"
"EX:"
"\f6=(\sin X*\sin Y)/(XY)"
"\f5=XY"
"\f5 MAY BE 1"\Disp"X INTERVAL"
"X MIN"
"COMMENDABLE \(-)2\Pi "
?\->A
"X MAX"
"COMMENDABLE 2\Pi "
?\->B
"NUMBER OF STEPS"
"COMMENDABLE 13 "
?\->C
"Y INTERVAL"
"Y MIN"
"COMMENDABLE \(-)2\Pi "
?\->D
"Y MAX"
"COMMENDABLE 2\Pi "
?\->E
"NUMBER OF STEPS"
"COMMENDABLE 13 "
?\->F
"ROTATION (\Deg)"
"HORIZONTAL ANGLE"?\->\r
"VERTICAL ANGLE"?\->\theta
"ANGLES IN FUNCTION"
"1\->DEG"
"2\->RAD"
"3\->GRA"?\->P
P<1\ Or P>3\=>2\->P
\Prog "GRA3D"
\PlotOn L,N\Disp
%End

Ahora s?, lo que quice decir es que como no encontr? por ninguna parte una funcionalidad de las calculadoras casio para realizar im?genes 3d, hice un programa sencillo que las grafica, el c?digo fuente es el que se muestra anteriormente, para correrlo se debe guardar la funci?n f(x,y) que se desea graficar en f6, y si tiene denominador, ?ste deber?a ir en f5, esto es solo para comprobar si da cero (el denominador puede ser 1), no de un error matem?tico sino que grafique el siguiente punto.

Si es la primera vez que usa el programa, recomiendo que los ?ngulos de rotaci?n tanto vertical como horizonal sean cero, como se dar?n cuenta mi ingl?s no es muy refinado as? que si alguien corrige el programa GRAPHI3D arreglando problemas gramaticales, mucho mejor.

El programa realiza tres escaneos a la funci?n:

1. Busca los valores m?ximos y m?nimos para cuadrar el valor m?ximo y m?nimo del ?rea de graficado
2. Grafica la funci?n recorriendo x
3. Grafica la funci?n recorriendo y

Lo prueban y me cuentan como es parece =)

Si encuentran alg?n error en el c?digo, no dude en avisarme.

[kucalc]

Hey enproblemado and welcome to the forum!

This seems like a nice program and from the looks of it, it works (although I have seen a couple of 3D graphers already made for the CFX series). If you want, you can save this in CAT format and upload it to the File Share.

[enproblemado]

Hi kucalc, please tell me where I can download the couple of 3d graphers what you have...

and, I uploaded my 3d grapher in "cfx utilities" section.

[The_AFX_Master]

Bienvenido al foro, cualquier duda que no puedas expresar en ingles, pregunta en espa?ol que de seguro te respondere

[enproblemado]

A bueno pues ya que lo dice =) me gustar?a que me dijera si ha visto por ah? los programas graficadores 3d que cita kucalc, ya que no los encontr? en la secci?n de compartir programas..

Y tambi?n quer?a preguntarle cuanto tarda la evaluaci?n de un programa, para que pongan el v?nculo de descarga en la p?gina de la secci?n de compartir programas...

[caspro]

Here you will find a 3D-grapher:
http://members.lycos...gramsindex.html

Near the top of the page it can be downloaded in .cat or .g1m,
the instructions are in .txt format further down the page.

The current version now uses the Drawstat command to speed things up.
On a 9850, a graph that used to take 90s with the Plot and Line commands now takes 15s
and on a 9860 it only takes a couple of seconds to draw.

[enproblemado]

I don't have a 9860.

thanks for the source, but this uses gotos and labels, and I'm a programmer of structured source...

PD. I will fix the source, because the program have problems if one try to plot a 3d graphic with a vertical angle <> 0, but not today...

[caspro]

but this uses gotos and labels,

The 9850 version doesn't.


There are two versions on that page.

Here are direct urls:

9850:
http://members.lycos...s/9x50g/g3d.txt

The .cat file contains the 9850 version.

9700:
http://members.lycos.../9700ge/g3d.txt

The 9700 does have Lbls and Gotos because For loops aren't available on the earlier models.

-----------------------

Here's another couple of 3D-graphers:
http://www.planet-ca...c-programs.html

http://www.planet-ca...t-programs.html