- Code: Tout sélectionner
Define hat()=
Prgm
:SetWindow 0,319,0,199
:FillRect 0,0,320,200: © Clear the background to black
:p:=160: q:=100
:xp:=144: xr:=1.5*3.1415927
:yp:=56: yr:=1: zp:=64
:xf:=((xr)/(xp)): yf:=((yp)/(yr)): zf:=((xr)/(zp))
:For zi,−q,q-1
: If zi≥−zp and zi≤zp Then
: zt:=((zi*xp)/(zp)): zz:=zi
: xl:=int(0.5+√(xp*xp-zt*zt))
: For xi,−xl,xl
: xt:=√(xi*xi+zt*zt)*xf: xx:=xi
: yy:=(sin(xt)+0.4*sin(3*xt))*yf
: x1:=xx+zz+p
: y1:=yy-zz+q
: SetColor 0,255,0: © Set color to green
: PlotXY x1,y1,7
: If y1≠0 Then
: SetColor 0,0,0: © Set color to black
: DrawLine x1,y1-1,x1,0
: EndIf
: EndFor
: EndIf
:EndFor
:EndPrgm
TI Nspire CX II CAS Hat Program
Voir le premier message non lu • 1 message
• Page 1 sur 1
TI Nspire CX II CAS Hat Program
Here's a little program that shows some of the new graphics commands in the new Nspire CX II CAS:
-
TomL12953
Niveau 2: MI2 (Membre Initié)- Messages: 4
- Inscription: 29 Mai 2019, 10:03
- Genre:
- Calculatrice(s):→ MyCalcs profile
1 message
• Page 1 sur 1
Qui est en ligne
Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 20 invités