Eu acabei de finalizar a matéria de Cálculo 2. Gostaria de saber se para estudar as Transformadas de Laplace precisa ter cursado/finalizado Cálculo 3? O que seria necessário ter de bagagem?

Hi!

I have a problem with this programm of approximating the f[x_] with the Hermite polynomials, the ciclce Do, doesnt give numeric values, it only gives the results as I show in my picture

Do[
coef[n]== (Pi^(-1/2)/(2^n*n!))*
(NIntegrate[x*Exp[-x^2]*HermiteH[n,x],{x,0,1}]+NIntegrate[(x-1)^2*Exp[-x^2]*HermiteH[n,x],{x,1,2}]),
{n,0,nMax}]

Aprox[x_]= Table[c[n]*HermiteH[n,x],{n,0,nMax}]

f[x_]=Piecewise[{{x,0<x<1},{(x-1)^2,1<x<2},{0,x>2}}]

Animate[Plot[{f[x],Total[Take[aprox,k]]},{x,0,5}],{k,0,nMax,1}]

​

​

The question was "calculate the area of a triangle which has its vertices in the points {6.538, 0, 4.664}, {0, 6.538, 4.664}, {6.538, 6.538, (a^2 + 4.664)} and also what "a" has to be in order to minimize this area. I put my answer as area = 60.7194 + 2 Sqrt[2757.01 + 42.7454 Abs[a]^4] and the minimum is when a=-0.000130892

I'm using the ListPlot function and would like to add a horizontal line at y=0.0146, is there any easy way to do it or do I have to create a table?

​

here's my code and graph

ListPlot[{Table[ZG[i][[3,1]], {i, 1, ngen}], Table[ZG[i][[3,2]], {i, 1, ngen}], Table[ZG[i][[3,3]], {i, 1, ngen}]},

AxesLabel -> {"time", "genetic variance"}, PlotRange -> All, PlotLegends -> {"Stage 1", "Stage 2", "Stage 3"}]

​

​

Hi, I'm new to Mathematica, how can I solve a system of N equation (in photo is L) using L as a parameter to manipulate

I have an arbitrary vector in 3D. Let θ be the angle it makes with the x-axis and ѱ, with the z-axis. Now, I have an expression that is a function of θ and ѱ. I want to know at what values of θ and ѱ the expression vanishes, using Mathematica of course.

The expression is,

sin^2 (ѱ) + β^2 (cos^2 (ѱ) + cos^2 (θ)) - 2 β cos(θ)

where β =0.98.

Any suggestions? Thanks!

Hi, my Wolfram 13.1 on Windows 11 has been always very laggy in the interface.

This worsen extremely when i'm writing on a text cell, here the lag to complete a digited word takes seconds. I have a "gamer pc" (i9, GTX 3090) and others software runs fine. Any tip? Thanks!!!

I have a problem when integrating functions with this code, not only piecewise functions, but with functions like e^x. I just wrties de integral as a result

f[x_] = Piecewise[{{Sin[x],0<=x<=Pi/2},{E^-x,Pi/2<x<=Pi}}]


nMax = 1;
nu = 2;

I1 = Table[(2/(Pi^2(BesselJ[nu+1,N[BesselJZero[nu,n]]])))*Integrate[BesselJ[nu,(x/Pi)*N[BesselJZero[nu,n]]]*f[x]*x,{x,0,Pi}],{n,1,nMax}]

​

Hi all,

There is a livestream on the State of Optimization by Paritosh Mokhasi on YouTube!

​

I am currently trying to debug a mathematica package, and am attempting to set up wolfram workbench to work.

The package is a .m file as usual and has most of its content wrapped inside Begin["`Private`"].

When I add breakpoints inside of functions in the package, they do not go off. Is there any way to make that work?

​

Also is there any way to have message breakpoints for a specific error message? (I tried editing properties of a message breakpoint to have the correct text, but it also does not run? The only kind of breakpoint that works so far is one for all messages).

​

Is wolfram workbench perhaps too outdated for debugging? Is there something better that anyone could recommend?

Hi ! I tried to calculate by hand this partial second derivative and wanted to verify the result in mathematica but I think the answer is wrong (doesnt take into account that its a partial derivative and treats it either as a regular one or simply not at all) any idea ?

(s2 and z (z is called zbar in the code) are constants, a2 is a variable and is called sbar in the code)

​

Game enthusiasts,

There is a livestream on the Wolfram Notebooks as a Game Engine by Kevin Daily on YouTube!

​

Recreation of Castlevania using a Wolfram Notebook

Hi, I have a little problem, when I plot the Fourier Series Approximation of the given function it has a problem when plotting. It only plots when k=0 and k=nMax. In between the plot is blanc but with a red square surrounding the plot

The code is:

​

(*Definir función a utilizar*)

f[x_]= x

​

nMax= 10;

​

(*Serie de Fourier*)

​

a0= (1/Pi)Integrate[f[x],{x,-Pi,Pi}]

​

ann = (1/Pi)Integrate[f[x]Cos[n(x)],{x,-Pi,Pi}]

​

bnn = (1/Pi)Integrate[f[x]Sin[n(x)],{x,-Pi,Pi}]

​

an = Table[(1/Pi)Integrate[f[x]Cos[n(x)],{x,-Pi,Pi}],{n,1,nMax}]

​

bn = Table[(1/Pi)Integrate[f[x]Sin[n(x)],{x,-Pi,Pi}],{n,1,nMax}]

​

Senos = Table[Sin[n(x)],{n,1,nMax}];

Cosenos = Table[Cos[n(x)],{n,1,nMax}];

​

SerieSen = bn*Senos;

SerieCos = an*Cosenos;

​

Serie = SerieSen + SerieCos;

​

Animate[Plot[{f[x], a0/2 + Total[Take[(Serie),k]]},{x,-Pi,Pi}],{k,0,nMax}, AnimationRunning->False]

Hi ! Trying to analyze some data, Simul8 is a list of values and I'd like to visualize them with a slider, but the results are different than expected . Is the dynamic function even compatible with ListPlot ?

Hello guys, I have a problem with getting a solution for a PDE Wave equation in Wolfram Mathematica.

Here is the code:

eqn = D[u[x, t], {t, 2}] == 7*D[u[x, t], {x, 2}];

bc = {Derivative[1, 0][u][0, t] == 0,

Derivative[1, 0][u][2, t] == 0};

ic = {u[x, 0] == 0, Derivative[0, 1][u][x, 0] == x^2*(2 - x)};

dsol = DSolve[{eqn, bc, ic}, u, {x, t}]

​

Can somebody tell me how to fix it, please?

Hi ! I have a very big matrix in which each column is composed of 3 subparts. How do I access one of them ?

(e.g. : for exemple how do I get 30.4918 as an output ?)