Skip to content

Commit

Permalink
Update quadohmT.jl
Browse files Browse the repository at this point in the history
  • Loading branch information
BrieucLD authored Apr 11, 2024
1 parent 8bc26f1 commit 36423e5
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions ChainOhmT/quadohmT.jl
Original file line number Diff line number Diff line change
Expand Up @@ -65,9 +65,9 @@ function wf(x,i)
if i==1
y = 0
elseif i==2
y = -( a*abs.(x).^s ./ wc^(s-1)) .* (coth.((beta/2).*x) .+ 1) #.* exp(-abs(x)/wc)
y = -( 2*a*abs.(x).^s ./ wc^(s-1)) .* ((coth.((beta/2).*x) .+ 1)./2) #.* exp(-abs(x)/wc)
elseif i==3
y = ( a*abs.(x).^s ./ wc^(s-1)) .* (coth.((beta/2).*x) .+ 1) #.* exp(-abs(x)/wc)
y = ( 2*a*abs.(x).^s ./ wc^(s-1)) .* ((coth.((beta/2).*x) .+ 1)./2) #.* exp(-abs(x)/wc)
elseif i==4
y = 0
end
Expand Down

0 comments on commit 36423e5

Please sign in to comment.