Path: ...!newsreader4.netcologne.de!news.netcologne.de!news.uzoreto.com!aioe.org!ehPmoIe1VPaiJg2plNRepQ.user.46.165.242.91.POSTED!not-for-mail
From: Arachide <houten.van@orange.fr>
Newsgroups: fr.comp.sys.atari
Subject: =?UTF-8?Q?Re=3a_FORTH_s=27=c3=a9toffe_en_Maths?=
Date: Fri, 28 Oct 2022 10:03:34 +0200
Organization: Aioe.org NNTP Server
Message-ID: <tjg2cm$1hpf$1@gioia.aioe.org>
References: <tih82e$1637$1@gioia.aioe.org>
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 8bit
Injection-Info: gioia.aioe.org; logging-data="50991"; posting-host="ehPmoIe1VPaiJg2plNRepQ.user.gioia.aioe.org"; mail-complaints-to="abuse@aioe.org";
User-Agent: Thunderbird 680x0 for Windows powered by Atari
X-Notice: Filtered by postfilter v. 0.9.2
Content-Language: fr
Bytes: 1681
Lines: 27

Coucou,

Je continue à étoffer le FORTH avec des fonctions 3D.
gr3_window qui permet de donner les limites des trois axes
gr3_axes qui trace les axes
gr3_xyz(t) qui trace une fonction paramétrique.

Voici le premier résultat:
https://gtello.pagesperso-orange.fr/temp/3d.jpg

Le petit 6 dans le coin indique que le tracé s'est effectué en 6 
centièmes de seconde (définition et tracé des axes compris).
(** je viens de me rendre compte que je n'avais pas remis le flag TT Ram 
du Forth, la bonne valeur est 1/100e de seconde! )

La V4 est quand même pas mal.

Guillaume.

Pour ceux que ça intéresse, la fonction est celle-ci:
x(t) = sin(t) * exp -√|t|
y(t) = cos(t) * exp -√|t|
z(t) = t

tracée de t=-19 à t=+19 avec 200 points.
Bornes x et y -1.1 +1.1
Bornes z -20 +20