Delphi Magic

Simulación del movimiento de los electrones en un campo electrico

2024-03-30T18:39:00.004+01:00

Espectacular simulación realizada con OpenGL del movimiento de los electrones cuando atraviesan un campo eléctrico.

Como muestra la imagen se ven los electrones saliendo en tiempo real de la placa de color gris hacia la placa de color rojo acelerándose cuando atraviesan el campo eléctrico.

El escenario se puede girar o rotar en todas direcciones para apreciar mejor el movimiento.

Autor:

Email: systemhalt@nm.ru

www.systemhalt.nm.ru

Codigo fuente

Obtener parametros de los paneles solares

2024-02-28T23:29:00.003+01:00

Partiendo de los siguientes datos: (se obtienen de la hoja de características del fabricante de los módulos fotovoltaicos)

Intensidad de cortocircuito (Isc).
Tensión de circuito abierto (Voc).
Tensión PMP (Vm).
Intensidad PMP (Im).
Porcentaje de eficiencia.
Temperatura operación nominal (TONC) en grados Kelvin.

El software calcularía los siguientes:

Factor de forma (FF).
Temperatura de célula (Tc) en grados kelvin.
Área (Ac) en metros cuadrados.
Máxima potencia (Pm).
Resistencia para PMP (Rm).

Pulsando el botón "Calcular datos irradiancia G" la aplicación obtendrá los siguientes datos en condiciones de irradiancia G:

Temperatura célula (Tc2).
Tensión (Voc2).
Intensidad cortocircuito (Isc2).
Máxima potencia (Pm2).
Eficiencia con G.

Codigo fuente

Autor: ajpdsoft

Fuente: http://www.ajpdsoft.com/modules.php?name=News&file=article&sid=439

Ejemplo:

Cálculo para un sistema básico fotovoltaico

Corrección: E4=E1xE2xE3, E3 es la cantidad de horas de uso.

Cálculo de la corriente requerida

A1 Carga total diaria (sumar la columna E4) 273
watts-hora/día

A2 Tensión CD del sistema (generalmente 12 ó 24 V) 12 voltios

A3 Carga diaria corriente (A1/A2)
22.8 amperios-hora

A4 Multiplicar con el factor de seguridad 20% (para
compensar

las pérdidas en las baterías y otros componentes) 1.2

A5 Carga diaria corriente corregida (A4*A3) 27.3
amperios-hora

A6 Promedio de horas de sol por día.
4 horas

A7 Amperaje que el sistema tendrá que producir (A5/A6) 6.8 amperios

Cálculo del número de paneles

B1 Amperaje máximo del modulo solar seleccionado

(según especificaciones del fabricante)
3.9 amperios

B2 Divida la línea A7 entre la B1 para obtener el número

de módulos que se necesita
1.75

B3 Redondee al número completo inmediato superior 2

Cálculo del número de baterías

C1 Carga total diaria (A5)
27.3 amperios-hora

C2 Días de reserva (este es el tiempo que el

sistema tiene que estar funcionando sin sol) 3

C3 Capacidad nominal del banco de baterías (C1*C2) 81.9 amperios-hora

C4 Factor de profundidad de descarga (generalmente 80%,

significa que siempre se deja un 20% de reserva en las
baterías) 0.8

C5 Capacidad corregida del banco de baterías (C3/C4) 102.4 amperios-hora

C6 Capacidad nominal de batería

(según especificaciones del fabricante)
120 amperios-hora

C7 Número de baterías
(C5/C6) 0.9

C8 Número de baterías (redondear C7) 1

Rotaciones en 3D con RAD Studio

2024-02-28T07:22:00.001+01:00

En este post veremos cómo crear y rotar una figura en 3D, utilizando Delphi RAD Studio.

Empezamos desde File – New – Multi-Device Application y
seleccionamos “3D Application”

A continuación vamos añadiendo los componentes básicos:

- tViewPort3D : será el lienzo donde se mostrará la
animación en 3D.

- tColorMaterialSource, en la propiedad “Color”
selecciono “Snow”

- tLightMaterialSource, dejamos marcadas las

propiedades como se indica en la imagen:

Ahora tenemos que indicar la orientación de la luz y la
orientación del observador de la escena.

Añadimos 2 componentes más:

tLight

tCamera

Estos dos últimos componentes tienen unos botones de control
que permiten moverlos en los 3 ejes del espacio.

Y otro botón más que permite cambiar el tamaño de cada una
de las caras del objeto.

Por último sólo nos queda añadir los bloques de la figura
que queremos crear.

En nuestro caso utilizaremos los siguientes:

tRoundcube (el bloque principal), tPlane (será la pantalla)
y dos tDisk correspondientes a las cámaras

Utilizando los controles de orientación tendremos que mover
cada bloque hasta conseguir lo siguiente:

Ahora sólo nos queda conseguir el movimiento de la figura

Lo haremos utilizando un tTimer y variaremos el ángulo de
rotación.

PROCEDURE TForm1.Timer1Timer(Sender: TObject);

BEGIN

WITH
RoundCube1.RotationAngle DO

Point := Point +
Point3D(2, 0, 0);

END;

Activamos el Timer y
¡¡ ya lo tenemos !!

UNIT Unit1;

INTERFACE

USES
  System.SysUtils, System.Types, System.UITypes, System.Classes,
  System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  System.Math.Vectors, FMX.Types3D, System.Sensors, System.Sensors.Components,
  FMX.Controls.Presentation, FMX.StdCtrls, FMX.Layouts, FMX.MaterialSources,
  FMX.Objects3D, FMX.Controls3D, FMX.Viewport3D;

TYPE
  TForm1 = CLASS(TForm)
    Viewport3D1: TViewport3D;
    Dummy1: TDummy;
    Camera1: TCamera;
    Light1: TLight;
    RoundCube1: TRoundCube;
    Plane1: TPlane;
    Disk1: TDisk;
    LightMaterialSource1: TLightMaterialSource;
    ColorMaterialSource1: TColorMaterialSource;
    Disk2: TDisk;
    Timer1: TTimer;
    PROCEDURE Timer1Timer(Sender: TObject);
  PRIVATE
    { Private declarations }
  PUBLIC
    { Public declarations }
  END;

VAR
  Form1: TForm1;

IMPLEMENTATION

{$R *.fmx}


PROCEDURE TForm1.Timer1Timer(Sender: TObject);
BEGIN

  WITH RoundCube1.RotationAngle DO
    Point := Point + Point3D(2, 0, 0);

END;

END.