Taking long time to give output

The name of the pictureThe name of the pictureThe name of the pictureClash Royale CLAN TAG#URR8PPP











up vote
1
down vote

favorite












Following code does not give any output. I kept it running for nearly 6 hours does but it does not give the output. What is the wrong with that?



a = 40.397;
b = 0.525;
c = 0.015000098827516313;
d = 0.000000001;
δ = 0.0095;
σ = 0.020

g2 = Plot[Convolve[Re[Erfc[(δ + I*x)/(Sqrt[2]*σ)]/ E^((x - I*δ)^2/(2*σ^2))], 
 a*UnitStep[x - b]*c* Sqrt[x - b]*
 ((Pi*(Sqrt[d]/Sqrt[x - b])*Exp[Pi*(Sqrt[d]/Sqrt[x - b])])/
 Sinh[Pi*(Sqrt[d]/Sqrt[x - b])]) + 
 a*d*Sum[((4*Pi)/n^3)*DiracDelta[x - b + d/n^2], n, 1, 1], x, y], 
 y, 0, 1.4, PlotStyle -> Black, PlotRange -> All]





plotting







share|improve this question























  • I changed. Is it clear?
    – Tharaka
    5 hours ago














up vote
1
down vote

favorite












Following code does not give any output. I kept it running for nearly 6 hours does but it does not give the output. What is the wrong with that?



a = 40.397;
b = 0.525;
c = 0.015000098827516313;
d = 0.000000001;
δ = 0.0095;
σ = 0.020

g2 = Plot[Convolve[Re[Erfc[(δ + I*x)/(Sqrt[2]*σ)]/ E^((x - I*δ)^2/(2*σ^2))], 
 a*UnitStep[x - b]*c* Sqrt[x - b]*
 ((Pi*(Sqrt[d]/Sqrt[x - b])*Exp[Pi*(Sqrt[d]/Sqrt[x - b])])/
 Sinh[Pi*(Sqrt[d]/Sqrt[x - b])]) + 
 a*d*Sum[((4*Pi)/n^3)*DiracDelta[x - b + d/n^2], n, 1, 1], x, y], 
 y, 0, 1.4, PlotStyle -> Black, PlotRange -> All]





plotting







share|improve this question























  • I changed. Is it clear?
    – Tharaka
    5 hours ago












up vote
1
down vote

favorite









up vote
1
down vote

favorite











Following code does not give any output. I kept it running for nearly 6 hours does but it does not give the output. What is the wrong with that?



a = 40.397;
b = 0.525;
c = 0.015000098827516313;
d = 0.000000001;
δ = 0.0095;
σ = 0.020

g2 = Plot[Convolve[Re[Erfc[(δ + I*x)/(Sqrt[2]*σ)]/ E^((x - I*δ)^2/(2*σ^2))], 
 a*UnitStep[x - b]*c* Sqrt[x - b]*
 ((Pi*(Sqrt[d]/Sqrt[x - b])*Exp[Pi*(Sqrt[d]/Sqrt[x - b])])/
 Sinh[Pi*(Sqrt[d]/Sqrt[x - b])]) + 
 a*d*Sum[((4*Pi)/n^3)*DiracDelta[x - b + d/n^2], n, 1, 1], x, y], 
 y, 0, 1.4, PlotStyle -> Black, PlotRange -> All]





plotting







share|improve this question















Following code does not give any output. I kept it running for nearly 6 hours does but it does not give the output. What is the wrong with that?



a = 40.397;
b = 0.525;
c = 0.015000098827516313;
d = 0.000000001;
δ = 0.0095;
σ = 0.020

g2 = Plot[Convolve[Re[Erfc[(δ + I*x)/(Sqrt[2]*σ)]/ E^((x - I*δ)^2/(2*σ^2))], 
 a*UnitStep[x - b]*c* Sqrt[x - b]*
 ((Pi*(Sqrt[d]/Sqrt[x - b])*Exp[Pi*(Sqrt[d]/Sqrt[x - b])])/
 Sinh[Pi*(Sqrt[d]/Sqrt[x - b])]) + 
 a*d*Sum[((4*Pi)/n^3)*DiracDelta[x - b + d/n^2], n, 1, 1], x, y], 
 y, 0, 1.4, PlotStyle -> Black, PlotRange -> All]





plotting




plotting






share|improve this question















share|improve this question













share|improve this question




share|improve this question








edited 4 hours ago









kglr

167k8188390




167k8188390










asked 6 hours ago









Tharaka

144




144











  • I changed. Is it clear?
    – Tharaka
    5 hours ago
















  • I changed. Is it clear?
    – Tharaka
    5 hours ago















I changed. Is it clear?
– Tharaka
5 hours ago




I changed. Is it clear?
– Tharaka
5 hours ago










1 Answer
1






active

oldest

votes

















up vote
2
down vote













Try this



a = 40.397;
b = 0.525;
c = 0.015000098827516313;
d = 0.000000001;
δ = 0.0095;
σ = 0.020;
f = Convolve[Re[Erfc[(δ + I*x)/(Sqrt[2]*σ)]/E^((x - I*δ)^2/(2*σ^2))], 
 a*UnitStep[x - b]*c*Sqrt[x - b]*((Pi*(Sqrt[d]/Sqrt[x - b])*
 Exp[Pi*(Sqrt[d]/Sqrt[x - b])])/Sinh[Pi*(Sqrt[d]/Sqrt[x - b])]) + 
 a*d*Sum[((4*Pi)/n^3)*DiracDelta[x - b + d/n^2], n, 1, 1], x, y];
g2 = Plot[f, y, 0, 1.4, PlotRange -> All]


enter image description here



which appears to finish in about a minute.



Please check this very carefully to make certain that it is correct.






share|improve this answer
















  • 2




    You could also wrap Evaluate around your Convolve[...] and get about the same speedup. Either precomputing f or using Evaluate will do most of the calculation once and then let Plot use that result, instead of having Plot repeat most or all of the Convolve calculation again and again for every one of hundreds or thousands of points.
    – Bill
    3 hours ago











  • Thank you very much
    – Tharaka
    3 hours ago










Your Answer




StackExchange.ifUsing("editor", function ()
return StackExchange.using("mathjaxEditing", function ()
StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix)
StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["$", "$"], ["\\(","\\)"]]);
);
);
, "mathjax-editing");

StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "387"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);

else
createEditor();

);

function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
convertImagesToLinks: false,
noModals: false,
showLowRepImageUploadWarning: true,
reputationToPostImages: null,
bindNavPrevention: true,
postfix: "",
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);



);













 

draft saved


draft discarded


















StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f184321%2ftaking-long-time-to-give-output%23new-answer', 'question_page');

);

Post as a guest

















1 Answer
1






active

oldest

votes








1 Answer
1






active

oldest

votes









active

oldest

votes






active

oldest

votes








up vote
2
down vote













Try this



a = 40.397;
b = 0.525;
c = 0.015000098827516313;
d = 0.000000001;
δ = 0.0095;
σ = 0.020;
f = Convolve[Re[Erfc[(δ + I*x)/(Sqrt[2]*σ)]/E^((x - I*δ)^2/(2*σ^2))], 
 a*UnitStep[x - b]*c*Sqrt[x - b]*((Pi*(Sqrt[d]/Sqrt[x - b])*
 Exp[Pi*(Sqrt[d]/Sqrt[x - b])])/Sinh[Pi*(Sqrt[d]/Sqrt[x - b])]) + 
 a*d*Sum[((4*Pi)/n^3)*DiracDelta[x - b + d/n^2], n, 1, 1], x, y];
g2 = Plot[f, y, 0, 1.4, PlotRange -> All]


enter image description here



which appears to finish in about a minute.



Please check this very carefully to make certain that it is correct.






share|improve this answer
















  • 2




    You could also wrap Evaluate around your Convolve[...] and get about the same speedup. Either precomputing f or using Evaluate will do most of the calculation once and then let Plot use that result, instead of having Plot repeat most or all of the Convolve calculation again and again for every one of hundreds or thousands of points.
    – Bill
    3 hours ago











  • Thank you very much
    – Tharaka
    3 hours ago














up vote
2
down vote













Try this



a = 40.397;
b = 0.525;
c = 0.015000098827516313;
d = 0.000000001;
δ = 0.0095;
σ = 0.020;
f = Convolve[Re[Erfc[(δ + I*x)/(Sqrt[2]*σ)]/E^((x - I*δ)^2/(2*σ^2))], 
 a*UnitStep[x - b]*c*Sqrt[x - b]*((Pi*(Sqrt[d]/Sqrt[x - b])*
 Exp[Pi*(Sqrt[d]/Sqrt[x - b])])/Sinh[Pi*(Sqrt[d]/Sqrt[x - b])]) + 
 a*d*Sum[((4*Pi)/n^3)*DiracDelta[x - b + d/n^2], n, 1, 1], x, y];
g2 = Plot[f, y, 0, 1.4, PlotRange -> All]


enter image description here



which appears to finish in about a minute.



Please check this very carefully to make certain that it is correct.






share|improve this answer
















  • 2




    You could also wrap Evaluate around your Convolve[...] and get about the same speedup. Either precomputing f or using Evaluate will do most of the calculation once and then let Plot use that result, instead of having Plot repeat most or all of the Convolve calculation again and again for every one of hundreds or thousands of points.
    – Bill
    3 hours ago











  • Thank you very much
    – Tharaka
    3 hours ago












up vote
2
down vote










up vote
2
down vote









Try this



a = 40.397;
b = 0.525;
c = 0.015000098827516313;
d = 0.000000001;
δ = 0.0095;
σ = 0.020;
f = Convolve[Re[Erfc[(δ + I*x)/(Sqrt[2]*σ)]/E^((x - I*δ)^2/(2*σ^2))], 
 a*UnitStep[x - b]*c*Sqrt[x - b]*((Pi*(Sqrt[d]/Sqrt[x - b])*
 Exp[Pi*(Sqrt[d]/Sqrt[x - b])])/Sinh[Pi*(Sqrt[d]/Sqrt[x - b])]) + 
 a*d*Sum[((4*Pi)/n^3)*DiracDelta[x - b + d/n^2], n, 1, 1], x, y];
g2 = Plot[f, y, 0, 1.4, PlotRange -> All]


enter image description here



which appears to finish in about a minute.



Please check this very carefully to make certain that it is correct.






share|improve this answer












Try this



a = 40.397;
b = 0.525;
c = 0.015000098827516313;
d = 0.000000001;
δ = 0.0095;
σ = 0.020;
f = Convolve[Re[Erfc[(δ + I*x)/(Sqrt[2]*σ)]/E^((x - I*δ)^2/(2*σ^2))], 
 a*UnitStep[x - b]*c*Sqrt[x - b]*((Pi*(Sqrt[d]/Sqrt[x - b])*
 Exp[Pi*(Sqrt[d]/Sqrt[x - b])])/Sinh[Pi*(Sqrt[d]/Sqrt[x - b])]) + 
 a*d*Sum[((4*Pi)/n^3)*DiracDelta[x - b + d/n^2], n, 1, 1], x, y];
g2 = Plot[f, y, 0, 1.4, PlotRange -> All]


enter image description here



which appears to finish in about a minute.



Please check this very carefully to make certain that it is correct.







share|improve this answer












share|improve this answer



share|improve this answer










answered 4 hours ago









Bill

5,13058




5,13058







  • 2




    You could also wrap Evaluate around your Convolve[...] and get about the same speedup. Either precomputing f or using Evaluate will do most of the calculation once and then let Plot use that result, instead of having Plot repeat most or all of the Convolve calculation again and again for every one of hundreds or thousands of points.
    – Bill
    3 hours ago











  • Thank you very much
    – Tharaka
    3 hours ago












  • 2




    You could also wrap Evaluate around your Convolve[...] and get about the same speedup. Either precomputing f or using Evaluate will do most of the calculation once and then let Plot use that result, instead of having Plot repeat most or all of the Convolve calculation again and again for every one of hundreds or thousands of points.
    – Bill
    3 hours ago











  • Thank you very much
    – Tharaka
    3 hours ago







2




2




You could also wrap Evaluate around your Convolve[...] and get about the same speedup. Either precomputing f or using Evaluate will do most of the calculation once and then let Plot use that result, instead of having Plot repeat most or all of the Convolve calculation again and again for every one of hundreds or thousands of points.
– Bill
3 hours ago





You could also wrap Evaluate around your Convolve[...] and get about the same speedup. Either precomputing f or using Evaluate will do most of the calculation once and then let Plot use that result, instead of having Plot repeat most or all of the Convolve calculation again and again for every one of hundreds or thousands of points.
– Bill
3 hours ago













Thank you very much
– Tharaka
3 hours ago




Thank you very much
– Tharaka
3 hours ago

















 

draft saved


draft discarded















































 


draft saved


draft discarded














StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f184321%2ftaking-long-time-to-give-output%23new-answer', 'question_page');

);

Post as a guest
































































Comments

Post a Comment

Popular posts from this blog

What does second last employer means? [closed]

Image
Clash Royale CLAN TAG #URR8PPP .everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty margin-bottom:0; up vote -3 down vote favorite Say, for example I have worked in the following companies, Company A => 2010 - 2011 Company B => 2011 - 2012 Company C => 2012 - Till Date Company D => Have offer Now assume Company D is asking to submit documents from my second last employer. So from the list of companies given, which company would be qualified as second last employer? software-industry employer share | improve this question asked Aug 10 '14 at 5:16 Rajaprabhu Aravindasamy 559 1 6 13 closed as off-topic by Jim G., jmort253 ♦ Aug 11 '14 at 1:58 This question appears to be off-topic. The users who voted to close gave this specific reason: "Questions seeking advice on company-specific regulations, agreements, or policies should be directed to your manager or HR department. Questions that address...
Read more

List of Gilmore Girls characters

Image
The season three cast—(Back row): Lane, Michel, Paris, Emily, Richard, Sookie, Miss Patty, Kirk; Front row: Jess, Luke, Lorelai, Rory, Dean This is a list of characters for the comedy-drama television series Gilmore Girls . Contents 1 Main characters 1.1 Lorelai Gilmore 1.2 Rory Gilmore 1.3 Sookie St. James 1.4 Lane Kim 1.5 Michel Gerard 1.6 Luke Danes 1.7 Emily Gilmore 1.8 Richard Gilmore 1.9 Paris Geller 1.10 Dean Forester 1.11 Jess Mariano 1.12 Kirk Gleason 1.13 Jason Stiles 1.14 Logan Huntzberger 2 Major recurring characters 2.1 Christopher Hayden 2.2 Jackson Belleville 2.3 Mrs. Kim 2.4 Tristin DuGray 2.5 Max Medina 2.6 Taylor Doose 2.7 Dave Rygalski 2.8 Marty 3 Recurring characters 3.1 Stars Hollow 3.2 Chilton 3.3 Yale 3.4 Other 4 Notable guest stars 5 Unseen characters 6 Notes 7 References Main characters Actor Character Appearances Season 1 Season 2 Season 3 Season 4 Season 5 Season 6 Season 7 A Year in the Life Lauren Graham Lorelai Gilmore...
Read more

One-line joke

A one-liner is a joke that is delivered in a single line. A good one-liner is said to be pithy - concise and meaningful. [1] Comedians and actors use this comedic method as part of their act, e.g. Jimmy Carr, Tommy Cooper, Rodney Dangerfield, Norm Macdonald, Ken Dodd, Stewart Francis, Zach Galifianakis, Mitch Hedberg, Anthony Jeselnik, Milton Jones, Shappi Khorsandi, Jay London, Mark Linn-Baker, Demetri Martin, Groucho Marx, Dan Mintz, Emo Philips, Tim Vine, Steven Wright and Henny Youngman and Arnold Schwarzenegger. [ citation needed ] Many fictional characters are also known to deliver one-liners, including James Bond, who usually includes pithy and laconic quips after disposing of a villain. [ citation needed ] Examples "A baby seal walks into a club." "A dyslexic man walks into a bra." (Anonymous) "There are three types of people, those who can count and those who can't." "Venison's dear, isn't it?" (Jimmy Carr) "An escala...
Read more