Masterson! Meu nome é Thiago e após assistir seu video eu reproduzi tudo que você fez, mas deu um erro, até chegar a onda quadrada tudo certo, na parte da série de Fourier apresentou um gráfico semelhante ao da primeira parte. Comecei a pensar que estava incorreta a minha montagem então montei em outro maquina, mas ocorreu outro problema, desenhou a aproximação apenas do lado de baixo entre -Pi e 0. Na realidade reescrevi todas as equações usando T/2 e com intervalo de g(x) em 0 e h(x) em 3. Será que é um erro na minha copia de Wolfram 12? Outro detalhe na função s[n_,x] x tem um underline correto?
Infelizmente, com o Mestrado e até fazendo disciplinas do Doutorado, não tem como fazer mais videos.. mas espero colocar muito conteúdo de matemática pura e computação um dia!
Legal o vídeo (Y) Só uma dica.. também è possível chamar a função usando (Writeln) já mostrando o resultado. Ficaria assim: Begin // programa principal Writeln('Digite dois valores'); // Entrada dos dados Readln('x,y); Writeln(' O resultado da soma e: ', Soma(x,y):2:2); //chamando a função e mostrando o resultado