lineas
DownloadTélécharger
Actions
Vote :
ScreenshotAperçu
Informations
Catégorie :Category: nCreator TI-Nspire
Auteur Author: maik404
Type : Classeur 3.0.1
Page(s) : 1
Taille Size: 2.39 Ko KB
Mis en ligne Uploaded: 17/07/2025 - 04:00:40
Mis à jour Updated: 17/07/2025 - 04:00:47
Uploadeur Uploader: maik404 (Profil)
Téléchargements Downloads: 1
Visibilité Visibility: Archive publique
Shortlink : https://tipla.net/a4799019
Type : Classeur 3.0.1
Page(s) : 1
Taille Size: 2.39 Ko KB
Mis en ligne Uploaded: 17/07/2025 - 04:00:40
Mis à jour Updated: 17/07/2025 - 04:00:47
Uploadeur Uploader: maik404 (Profil)
Téléchargements Downloads: 1
Visibilité Visibility: Archive publique
Shortlink : https://tipla.net/a4799019
Description
Fichier Nspire généré sur TI-Planet.org.
Compatible OS 3.0 et ultérieurs.
<<
-- Declaración de variables Local n_barras, Ybus, V, S, i, k Local suma_parcial, Yik, Vk -- Solicitar número de barras Request "Número total de barras:", n_barras -- Inicializar matriz de admitancias Ybus Local Ybus := newMat(n_barras, n_barras) For i,1,n_barras For k,1,n_barras RequestStr "Y"&string(i)&string(k)&" (ej: 1.5-6.2i):", Y_str Ybus[i,k] := c(Y_str) EndFor EndFor -- Inicializar vector de tensiones V Local V := {} For i,1,n_barras RequestStr "V"&string(i)&" (ej: 1.02 5):", V_str V[i] := c(V_str) EndFor -- Inicializar vector de potencias S Local S := newMat(n_barras,1) -- Configurar pantalla para mejor visualización setMode("Pretty Print", "ON") setMode("Screen Width", "FULL") -- Calcular potencias para cada barra For i,1,n_barras suma_parcial := 0 For k,1,n_barras Yik := Ybus[i,k] Vk := V[k] suma_parcial := suma_parcial + Yik*Vk EndFor S[i] := V[i]*conj(suma_parcial) EndFor -- Mostrar resultados para todas las barras Disp "" Disp "========================================" Disp " CÁLCULO DE POTENCIAS EN TODAS LAS BARRAS" Disp "========================================" Disp "" Disp "Barra | P (pu) | Q (pu) | S (pu) | Ángulo (°)" Disp "------------------------------------------------------------" For i,1,n_barras Disp string(i) & " | " & format_num(re(S[i])) & " | " & format_num(im(S[i])) & " | " & format_num(abs(S[i])) & " | " & format_num(angle(S[i])*180/À) EndFor Disp "" Disp "========================================" Disp "Leyenda:" Disp "P = Potencia activa" Disp "Q = Potencia reactiva" Disp "S = Potencia aparente" Disp "Ángulo = Fase de la potencia compleja" Disp "========================================" Return "Cálculo completado para " & string(n_barras) & " barras" EndPrgm -- Función auxiliar para formatear números Define format_num(x)= Func Local sig_figs := 4 -- Cifras significativas Return string(approx(x)¶exp¶num, "f" & string(sig_figs)) Made with nCreator - tiplanet.org
>>
Compatible OS 3.0 et ultérieurs.
<<
-- Declaración de variables Local n_barras, Ybus, V, S, i, k Local suma_parcial, Yik, Vk -- Solicitar número de barras Request "Número total de barras:", n_barras -- Inicializar matriz de admitancias Ybus Local Ybus := newMat(n_barras, n_barras) For i,1,n_barras For k,1,n_barras RequestStr "Y"&string(i)&string(k)&" (ej: 1.5-6.2i):", Y_str Ybus[i,k] := c(Y_str) EndFor EndFor -- Inicializar vector de tensiones V Local V := {} For i,1,n_barras RequestStr "V"&string(i)&" (ej: 1.02 5):", V_str V[i] := c(V_str) EndFor -- Inicializar vector de potencias S Local S := newMat(n_barras,1) -- Configurar pantalla para mejor visualización setMode("Pretty Print", "ON") setMode("Screen Width", "FULL") -- Calcular potencias para cada barra For i,1,n_barras suma_parcial := 0 For k,1,n_barras Yik := Ybus[i,k] Vk := V[k] suma_parcial := suma_parcial + Yik*Vk EndFor S[i] := V[i]*conj(suma_parcial) EndFor -- Mostrar resultados para todas las barras Disp "" Disp "========================================" Disp " CÁLCULO DE POTENCIAS EN TODAS LAS BARRAS" Disp "========================================" Disp "" Disp "Barra | P (pu) | Q (pu) | S (pu) | Ángulo (°)" Disp "------------------------------------------------------------" For i,1,n_barras Disp string(i) & " | " & format_num(re(S[i])) & " | " & format_num(im(S[i])) & " | " & format_num(abs(S[i])) & " | " & format_num(angle(S[i])*180/À) EndFor Disp "" Disp "========================================" Disp "Leyenda:" Disp "P = Potencia activa" Disp "Q = Potencia reactiva" Disp "S = Potencia aparente" Disp "Ángulo = Fase de la potencia compleja" Disp "========================================" Return "Cálculo completado para " & string(n_barras) & " barras" EndPrgm -- Función auxiliar para formatear números Define format_num(x)= Func Local sig_figs := 4 -- Cifras significativas Return string(approx(x)¶exp¶num, "f" & string(sig_figs)) Made with nCreator - tiplanet.org
>>
