Código VBA para graficar Onda Cuadrada con Word

Agotado

PRECIO AMIGABLE DESDE 1 EURO O MULTIPLOS DEL MISMO, LAS PERSONAS QUE NO PUEDAN PAGARLO, PUEDEN USARLO Y MODIFICARLO LIBREMENTE SIN CONDICIONES. 

Los segmentos del gráfico son pequeñas rayas inconexas.

Código informático escrito en Visual Basic App, VBA. 

Ejecutable en Word. 

Gráfica una onda cuadrada por aproximaciones de Fourier.

Ideal para introducir estudiantes en la programación de Word.


1,00 €

 El instructivo varía según la versión del Word, debe buscar MACROS,  crear una nueva, copiar y pegar el código, teniendo en cuenta borrar todo lo anterior, solo debe quedar el siguiente código: 

Sub OndaCuadrad()

Sn = 3 'deben ser numero impares segun serie Fourier;caso 1

pi = 3.14159265358979

xd = 4 * pi 'longitud eje x

stp = 0.02 'step es la resolución, 0.01

For l = -xd To xd Step stp

For n = 1 To Sn Step 2

f = 4 / n / pi * Sin(n * l) 'función (1sen1/3sen3+1/5sen5...

s = s + f 'suma de Fourier

Next n

y1 = s 'es la función

y2 = s + stp ' determina la longitud de las líneas que forman la función

x1 = l

x2 = l + stp ' determina la longitud de las líneas que forman la función

' Cambio de coordenadas universal a Word

xi = x1 'en radianes

yi = y1

x = x2 'en radianes

y = y2

cerox = 0

ceroy = 300

xin = xi * 200 / pi

yin = ceroy - yi * 200 / pi

cerox = 0

ceroy = 300

xf = x * 200 / pi

yf = ceroy - y * 200 / pi

s = 0

With ActiveDocument.Shapes.AddLine(xin, yin, xf, yf).Line

.ForeColor.RGB = RGB(0, 255, 255)

.Weight = 0

End With

Next l

With ActiveDocument.Shapes.AddLine(400, 0, 400, 1000).Line: End With: With ActiveDocument.Shapes.AddLine(0, 300, 800, 300).Line

End With 'ha graficado eje x y eje y

'Por: Luis Alfonso Aristizabal Agudelo 

End Sub