codigobuzamiento
DownloadTélécharger
Actions
Vote :
ScreenshotAperçu
Informations
Catégorie :Category: nCreator TI-Nspire
Auteur Author: luisgabrielmontenegro
Type : Classeur 3.0.1
Page(s) : 1
Taille Size: 1.85 Ko KB
Mis en ligne Uploaded: 04/09/2025 - 12:36:03
Mis à jour Updated: 04/09/2025 - 12:36:35
Uploadeur Uploader: luisgabrielmontenegro (Profil)
Téléchargements Downloads: 1
Visibilité Visibility: Archive publique
Shortlink : https://tipla.net/a4832484
Type : Classeur 3.0.1
Page(s) : 1
Taille Size: 1.85 Ko KB
Mis en ligne Uploaded: 04/09/2025 - 12:36:03
Mis à jour Updated: 04/09/2025 - 12:36:35
Uploadeur Uploader: luisgabrielmontenegro (Profil)
Téléchargements Downloads: 1
Visibilité Visibility: Archive publique
Shortlink : https://tipla.net/a4832484
Description
Fichier Nspire généré sur TI-Planet.org.
Compatible OS 3.0 et ultérieurs.
<<
Definir BUZAM()= Programa TIPO local,STR,RON,DIP,DIR,S,C1,C2,AZ,ANG,LET Visualizar "1=AZIMUT (ej: 030/50E)" Pantalla "2=RUMBO (ej: N45E/38E)" Solicitud "Elija tipo: ", TIPO Si TIPO=1 Entonces Solicitud "Huelga (0-360): ", S Solicitud "Buzamiento (°): ", DIP Solicitud "Dir (E/W): ", LET Demás Solicitar "Rumbo (ej: N45E): ", RON Solicitud "Buzamiento (°): ", DIP Solicitud "Dir (E/W): ", LET ANG := expr(substr(RUM,2,longitud(RUM)-2)) Si substr(RUM,1,1)="N" y substr(RUM,length(RUM),1)="E" Entonces S := ANG FinSi Si substr(RUM,1,1)="N" y substr(RUM,length(RUM),1)="W" Entonces S := 360-ANG FinSi Si substr(RUM,1,1)="S" y substr(RUM,length(RUM),1)="E" Entonces S := 180-ANG FinSi Si substr(RUM,1,1)="S" y substr(RUM,length(RUM),1)="W" Entonces S := 180+ANG FinSi FinSi C1 := S+90 Si C1e360 Entonces C1 := C1-360 FinSi C2 := S+270 Si C2e360 Entonces C2 := C2-360 FinSi Si LET="E" o LET="e" Entonces Si C1<180 Entonces AZ:=C1 FinSi Si C2<180 Entonces AZ:=C2 FinSi FinSi Si LET="W" o LET="w" Entonces Si C1e180 Entonces AZ:=C1 FinSi Si C2e180 Entonces AZ:=C2 FinSi FinSi Disp "Azimut buzamiento:" Disp AZ Disp "Inclinación:" Disp DIP Fin del programa Made with nCreator - tiplanet.org
>>
Compatible OS 3.0 et ultérieurs.
<<
Definir BUZAM()= Programa TIPO local,STR,RON,DIP,DIR,S,C1,C2,AZ,ANG,LET Visualizar "1=AZIMUT (ej: 030/50E)" Pantalla "2=RUMBO (ej: N45E/38E)" Solicitud "Elija tipo: ", TIPO Si TIPO=1 Entonces Solicitud "Huelga (0-360): ", S Solicitud "Buzamiento (°): ", DIP Solicitud "Dir (E/W): ", LET Demás Solicitar "Rumbo (ej: N45E): ", RON Solicitud "Buzamiento (°): ", DIP Solicitud "Dir (E/W): ", LET ANG := expr(substr(RUM,2,longitud(RUM)-2)) Si substr(RUM,1,1)="N" y substr(RUM,length(RUM),1)="E" Entonces S := ANG FinSi Si substr(RUM,1,1)="N" y substr(RUM,length(RUM),1)="W" Entonces S := 360-ANG FinSi Si substr(RUM,1,1)="S" y substr(RUM,length(RUM),1)="E" Entonces S := 180-ANG FinSi Si substr(RUM,1,1)="S" y substr(RUM,length(RUM),1)="W" Entonces S := 180+ANG FinSi FinSi C1 := S+90 Si C1e360 Entonces C1 := C1-360 FinSi C2 := S+270 Si C2e360 Entonces C2 := C2-360 FinSi Si LET="E" o LET="e" Entonces Si C1<180 Entonces AZ:=C1 FinSi Si C2<180 Entonces AZ:=C2 FinSi FinSi Si LET="W" o LET="w" Entonces Si C1e180 Entonces AZ:=C1 FinSi Si C2e180 Entonces AZ:=C2 FinSi FinSi Disp "Azimut buzamiento:" Disp AZ Disp "Inclinación:" Disp DIP Fin del programa Made with nCreator - tiplanet.org
>>
