Plot of histogram similar to output from @risk The Next CEO of Stack OverflowCircular Plot and Circular HistogramHow to partition a list into sublists in a similar way to HistogramHypothesis Testing and Formatting Outputplot with horizontal similar specified markersControlling plot range of histogramVector component plot as histogramHow to get data from Histogram (HistogramList) for making plot?Getting PDF from imported HistogramConstruct Distribution Histogram From Random VariableIssues with smooth histogram

Multi tool use
Multi tool use

How to safely derail a train during transit?

Plot of histogram similar to output from @risk

Several mode to write the symbol of a vector

Which tube will fit a -(700 x 25c) wheel?

How do scammers retract money, while you can’t?

Does it take more energy to get to Venus or to Mars?

Example of a Mathematician/Physicist whose Other Publications during their PhD eclipsed their PhD Thesis

Why does the UK parliament need a vote on the political declaration?

Are there any unintended negative consequences to allowing PCs to gain multiple levels at once in a short milestone-XP game?

What can we do to stop prior company from asking us questions?

Do I need to enable Dev Hub in my PROD Org?

How to start emacs in "nothing" mode (`fundamental-mode`)

Complex fractions

Would this house-rule that treats advantage as a +1 to the roll instead (and disadvantage as -1) and allows them to stack be balanced?

How to invert MapIndexed on a ragged structure? How to construct a tree from rules?

How to avoid supervisors with prejudiced views?

How to count occurrences of text in a file?

What connection does MS Office have to Netscape Navigator?

Are there any limitations on attacking while grappling?

MessageLevel in QGIS3

Inappropriate reference requests from Journal reviewers

Interfacing a button to MCU (and PC) with 50m long cable

In excess I'm lethal

What is the purpose of the Evocation wizard's Potent Cantrip feature?



Plot of histogram similar to output from @risk



The Next CEO of Stack OverflowCircular Plot and Circular HistogramHow to partition a list into sublists in a similar way to HistogramHypothesis Testing and Formatting Outputplot with horizontal similar specified markersControlling plot range of histogramVector component plot as histogramHow to get data from Histogram (HistogramList) for making plot?Getting PDF from imported HistogramConstruct Distribution Histogram From Random VariableIssues with smooth histogram










6












$begingroup$


In order to analyze simulated data, @risk provides a histogram with handle bars, so that we can move these handles to see what proportion of data are on each side. For example,



@risk histogram.



I am trying to create similar graph for my empirical data, but I have no idea how to do it. Any help starting with the following code would be much appreciated.



 mydata = RandomVariate[TriangularDistribution[100, 400, 200], 5000];
Histogram[mydata, Automatic, "Probability"]
mydist = EmpiricalDistribution[mydata];


histogram










share|improve this question









New contributor




Stupid is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.







$endgroup$
















    6












    $begingroup$


    In order to analyze simulated data, @risk provides a histogram with handle bars, so that we can move these handles to see what proportion of data are on each side. For example,



    @risk histogram.



    I am trying to create similar graph for my empirical data, but I have no idea how to do it. Any help starting with the following code would be much appreciated.



     mydata = RandomVariate[TriangularDistribution[100, 400, 200], 5000];
    Histogram[mydata, Automatic, "Probability"]
    mydist = EmpiricalDistribution[mydata];


    histogram










    share|improve this question









    New contributor




    Stupid is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
    Check out our Code of Conduct.







    $endgroup$














      6












      6








      6


      2



      $begingroup$


      In order to analyze simulated data, @risk provides a histogram with handle bars, so that we can move these handles to see what proportion of data are on each side. For example,



      @risk histogram.



      I am trying to create similar graph for my empirical data, but I have no idea how to do it. Any help starting with the following code would be much appreciated.



       mydata = RandomVariate[TriangularDistribution[100, 400, 200], 5000];
      Histogram[mydata, Automatic, "Probability"]
      mydist = EmpiricalDistribution[mydata];


      histogram










      share|improve this question









      New contributor




      Stupid is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.







      $endgroup$




      In order to analyze simulated data, @risk provides a histogram with handle bars, so that we can move these handles to see what proportion of data are on each side. For example,



      @risk histogram.



      I am trying to create similar graph for my empirical data, but I have no idea how to do it. Any help starting with the following code would be much appreciated.



       mydata = RandomVariate[TriangularDistribution[100, 400, 200], 5000];
      Histogram[mydata, Automatic, "Probability"]
      mydist = EmpiricalDistribution[mydata];


      histogram







      plotting programming probability-or-statistics






      share|improve this question









      New contributor




      Stupid is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.











      share|improve this question









      New contributor




      Stupid is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.









      share|improve this question




      share|improve this question








      edited 21 mins ago









      J. M. is slightly pensive

      98.7k10311467




      98.7k10311467






      New contributor




      Stupid is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.









      asked 2 hours ago









      StupidStupid

      332




      332




      New contributor




      Stupid is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.





      New contributor





      Stupid is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.






      Stupid is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.




















          2 Answers
          2






          active

          oldest

          votes


















          3












          $begingroup$

          A starting point:



          BlockRandom[SeedRandom[42]; (* for reproducibility *)
          mydata = RandomVariate[TriangularDistribution[100, 400, 200], 5000]];

          DynamicModule[hd, hist, xmin, xmax, yr,
          Manipulate[Show[hist,
          Plot[PDF[hd, x], x, h[[1, 1]], h[[2, 1]],
          Exclusions -> None, Filling -> 1 -> Axis,
          FillingStyle -> Opacity[0.8, Pink],
          PlotPoints -> 95, PlotRange -> yr,
          PlotStyle -> Directive[AbsoluteThickness[2], Pink]],
          Axes -> None, Frame -> True,
          GridLines -> h[[1, 1]], h[[2, 1]], None,
          Method -> "GridLinesInFront" -> True,
          PlotLabel -> StringForm["``%",
          100 Round[Abs[CDF[hd, h[[2, 1]]] -
          CDF[hd, h[[1, 1]]]],
          0.001]]],
          h, xmin, 0, xmax, 0, Locator, Appearance -> None,
          Initialization :> (hd = HistogramDistribution[mydata];
          xmin, xmax = First[hd["Domain"]];
          hist = Histogram[mydata, Automatic, "PDF",
          ChartBaseStyle ->
          Directive[EdgeForm[], LightPink]];
          yr = Last[Charting`get2DPlotRange[hist]];)]]


          interactive histogram






          share|improve this answer









          $endgroup$












          • $begingroup$
            @ J.M., thank you. I really appreciate it.
            $endgroup$
            – Stupid
            28 mins ago


















          4












          $begingroup$

          Try this:



          With[dist = CDF[mydist],
          Manipulate[
          Histogram[mydata, Automatic, "Probability",
          PlotRange -> MinMax@mydata, All,
          PlotLabel ->
          StringForm["Percent Inside: ``" ,
          dist[bounds[[2]]] - dist[bounds[[1]]]],
          Epilog ->

          EdgeForm[None],
          GrayLevel[1, .5],
          Rectangle[
          Min@mydata, 0,
          bounds[[1]], 1000000
          ],
          Rectangle[
          bounds[[2]], 0,
          Max@mydata, 1000000
          ]

          ],

          bounds, Rescale[.25, .75, 0, 1, MinMax@mydata],
          Sequence @@ MinMax@mydata,
          ControlType -> IntervalSlider

          ]
          ]


          enter image description here






          share|improve this answer









          $endgroup$












          • $begingroup$
            @ b3m2a1 thank you. I really appreciate it.
            $endgroup$
            – Stupid
            29 mins 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',
          autoActivateHeartbeat: false,
          convertImagesToLinks: false,
          noModals: true,
          showLowRepImageUploadWarning: true,
          reputationToPostImages: null,
          bindNavPrevention: true,
          postfix: "",
          imageUploader:
          brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
          contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
          allowUrls: true
          ,
          onDemand: true,
          discardSelector: ".discard-answer"
          ,immediatelyShowMarkdownHelp:true
          );



          );






          Stupid is a new contributor. Be nice, and check out our Code of Conduct.









          draft saved

          draft discarded


















          StackExchange.ready(
          function ()
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f194234%2fplot-of-histogram-similar-to-output-from-risk%23new-answer', 'question_page');

          );

          Post as a guest















          Required, but never shown

























          2 Answers
          2






          active

          oldest

          votes








          2 Answers
          2






          active

          oldest

          votes









          active

          oldest

          votes






          active

          oldest

          votes









          3












          $begingroup$

          A starting point:



          BlockRandom[SeedRandom[42]; (* for reproducibility *)
          mydata = RandomVariate[TriangularDistribution[100, 400, 200], 5000]];

          DynamicModule[hd, hist, xmin, xmax, yr,
          Manipulate[Show[hist,
          Plot[PDF[hd, x], x, h[[1, 1]], h[[2, 1]],
          Exclusions -> None, Filling -> 1 -> Axis,
          FillingStyle -> Opacity[0.8, Pink],
          PlotPoints -> 95, PlotRange -> yr,
          PlotStyle -> Directive[AbsoluteThickness[2], Pink]],
          Axes -> None, Frame -> True,
          GridLines -> h[[1, 1]], h[[2, 1]], None,
          Method -> "GridLinesInFront" -> True,
          PlotLabel -> StringForm["``%",
          100 Round[Abs[CDF[hd, h[[2, 1]]] -
          CDF[hd, h[[1, 1]]]],
          0.001]]],
          h, xmin, 0, xmax, 0, Locator, Appearance -> None,
          Initialization :> (hd = HistogramDistribution[mydata];
          xmin, xmax = First[hd["Domain"]];
          hist = Histogram[mydata, Automatic, "PDF",
          ChartBaseStyle ->
          Directive[EdgeForm[], LightPink]];
          yr = Last[Charting`get2DPlotRange[hist]];)]]


          interactive histogram






          share|improve this answer









          $endgroup$












          • $begingroup$
            @ J.M., thank you. I really appreciate it.
            $endgroup$
            – Stupid
            28 mins ago















          3












          $begingroup$

          A starting point:



          BlockRandom[SeedRandom[42]; (* for reproducibility *)
          mydata = RandomVariate[TriangularDistribution[100, 400, 200], 5000]];

          DynamicModule[hd, hist, xmin, xmax, yr,
          Manipulate[Show[hist,
          Plot[PDF[hd, x], x, h[[1, 1]], h[[2, 1]],
          Exclusions -> None, Filling -> 1 -> Axis,
          FillingStyle -> Opacity[0.8, Pink],
          PlotPoints -> 95, PlotRange -> yr,
          PlotStyle -> Directive[AbsoluteThickness[2], Pink]],
          Axes -> None, Frame -> True,
          GridLines -> h[[1, 1]], h[[2, 1]], None,
          Method -> "GridLinesInFront" -> True,
          PlotLabel -> StringForm["``%",
          100 Round[Abs[CDF[hd, h[[2, 1]]] -
          CDF[hd, h[[1, 1]]]],
          0.001]]],
          h, xmin, 0, xmax, 0, Locator, Appearance -> None,
          Initialization :> (hd = HistogramDistribution[mydata];
          xmin, xmax = First[hd["Domain"]];
          hist = Histogram[mydata, Automatic, "PDF",
          ChartBaseStyle ->
          Directive[EdgeForm[], LightPink]];
          yr = Last[Charting`get2DPlotRange[hist]];)]]


          interactive histogram






          share|improve this answer









          $endgroup$












          • $begingroup$
            @ J.M., thank you. I really appreciate it.
            $endgroup$
            – Stupid
            28 mins ago













          3












          3








          3





          $begingroup$

          A starting point:



          BlockRandom[SeedRandom[42]; (* for reproducibility *)
          mydata = RandomVariate[TriangularDistribution[100, 400, 200], 5000]];

          DynamicModule[hd, hist, xmin, xmax, yr,
          Manipulate[Show[hist,
          Plot[PDF[hd, x], x, h[[1, 1]], h[[2, 1]],
          Exclusions -> None, Filling -> 1 -> Axis,
          FillingStyle -> Opacity[0.8, Pink],
          PlotPoints -> 95, PlotRange -> yr,
          PlotStyle -> Directive[AbsoluteThickness[2], Pink]],
          Axes -> None, Frame -> True,
          GridLines -> h[[1, 1]], h[[2, 1]], None,
          Method -> "GridLinesInFront" -> True,
          PlotLabel -> StringForm["``%",
          100 Round[Abs[CDF[hd, h[[2, 1]]] -
          CDF[hd, h[[1, 1]]]],
          0.001]]],
          h, xmin, 0, xmax, 0, Locator, Appearance -> None,
          Initialization :> (hd = HistogramDistribution[mydata];
          xmin, xmax = First[hd["Domain"]];
          hist = Histogram[mydata, Automatic, "PDF",
          ChartBaseStyle ->
          Directive[EdgeForm[], LightPink]];
          yr = Last[Charting`get2DPlotRange[hist]];)]]


          interactive histogram






          share|improve this answer









          $endgroup$



          A starting point:



          BlockRandom[SeedRandom[42]; (* for reproducibility *)
          mydata = RandomVariate[TriangularDistribution[100, 400, 200], 5000]];

          DynamicModule[hd, hist, xmin, xmax, yr,
          Manipulate[Show[hist,
          Plot[PDF[hd, x], x, h[[1, 1]], h[[2, 1]],
          Exclusions -> None, Filling -> 1 -> Axis,
          FillingStyle -> Opacity[0.8, Pink],
          PlotPoints -> 95, PlotRange -> yr,
          PlotStyle -> Directive[AbsoluteThickness[2], Pink]],
          Axes -> None, Frame -> True,
          GridLines -> h[[1, 1]], h[[2, 1]], None,
          Method -> "GridLinesInFront" -> True,
          PlotLabel -> StringForm["``%",
          100 Round[Abs[CDF[hd, h[[2, 1]]] -
          CDF[hd, h[[1, 1]]]],
          0.001]]],
          h, xmin, 0, xmax, 0, Locator, Appearance -> None,
          Initialization :> (hd = HistogramDistribution[mydata];
          xmin, xmax = First[hd["Domain"]];
          hist = Histogram[mydata, Automatic, "PDF",
          ChartBaseStyle ->
          Directive[EdgeForm[], LightPink]];
          yr = Last[Charting`get2DPlotRange[hist]];)]]


          interactive histogram







          share|improve this answer












          share|improve this answer



          share|improve this answer










          answered 52 mins ago









          J. M. is slightly pensiveJ. M. is slightly pensive

          98.7k10311467




          98.7k10311467











          • $begingroup$
            @ J.M., thank you. I really appreciate it.
            $endgroup$
            – Stupid
            28 mins ago
















          • $begingroup$
            @ J.M., thank you. I really appreciate it.
            $endgroup$
            – Stupid
            28 mins ago















          $begingroup$
          @ J.M., thank you. I really appreciate it.
          $endgroup$
          – Stupid
          28 mins ago




          $begingroup$
          @ J.M., thank you. I really appreciate it.
          $endgroup$
          – Stupid
          28 mins ago











          4












          $begingroup$

          Try this:



          With[dist = CDF[mydist],
          Manipulate[
          Histogram[mydata, Automatic, "Probability",
          PlotRange -> MinMax@mydata, All,
          PlotLabel ->
          StringForm["Percent Inside: ``" ,
          dist[bounds[[2]]] - dist[bounds[[1]]]],
          Epilog ->

          EdgeForm[None],
          GrayLevel[1, .5],
          Rectangle[
          Min@mydata, 0,
          bounds[[1]], 1000000
          ],
          Rectangle[
          bounds[[2]], 0,
          Max@mydata, 1000000
          ]

          ],

          bounds, Rescale[.25, .75, 0, 1, MinMax@mydata],
          Sequence @@ MinMax@mydata,
          ControlType -> IntervalSlider

          ]
          ]


          enter image description here






          share|improve this answer









          $endgroup$












          • $begingroup$
            @ b3m2a1 thank you. I really appreciate it.
            $endgroup$
            – Stupid
            29 mins ago
















          4












          $begingroup$

          Try this:



          With[dist = CDF[mydist],
          Manipulate[
          Histogram[mydata, Automatic, "Probability",
          PlotRange -> MinMax@mydata, All,
          PlotLabel ->
          StringForm["Percent Inside: ``" ,
          dist[bounds[[2]]] - dist[bounds[[1]]]],
          Epilog ->

          EdgeForm[None],
          GrayLevel[1, .5],
          Rectangle[
          Min@mydata, 0,
          bounds[[1]], 1000000
          ],
          Rectangle[
          bounds[[2]], 0,
          Max@mydata, 1000000
          ]

          ],

          bounds, Rescale[.25, .75, 0, 1, MinMax@mydata],
          Sequence @@ MinMax@mydata,
          ControlType -> IntervalSlider

          ]
          ]


          enter image description here






          share|improve this answer









          $endgroup$












          • $begingroup$
            @ b3m2a1 thank you. I really appreciate it.
            $endgroup$
            – Stupid
            29 mins ago














          4












          4








          4





          $begingroup$

          Try this:



          With[dist = CDF[mydist],
          Manipulate[
          Histogram[mydata, Automatic, "Probability",
          PlotRange -> MinMax@mydata, All,
          PlotLabel ->
          StringForm["Percent Inside: ``" ,
          dist[bounds[[2]]] - dist[bounds[[1]]]],
          Epilog ->

          EdgeForm[None],
          GrayLevel[1, .5],
          Rectangle[
          Min@mydata, 0,
          bounds[[1]], 1000000
          ],
          Rectangle[
          bounds[[2]], 0,
          Max@mydata, 1000000
          ]

          ],

          bounds, Rescale[.25, .75, 0, 1, MinMax@mydata],
          Sequence @@ MinMax@mydata,
          ControlType -> IntervalSlider

          ]
          ]


          enter image description here






          share|improve this answer









          $endgroup$



          Try this:



          With[dist = CDF[mydist],
          Manipulate[
          Histogram[mydata, Automatic, "Probability",
          PlotRange -> MinMax@mydata, All,
          PlotLabel ->
          StringForm["Percent Inside: ``" ,
          dist[bounds[[2]]] - dist[bounds[[1]]]],
          Epilog ->

          EdgeForm[None],
          GrayLevel[1, .5],
          Rectangle[
          Min@mydata, 0,
          bounds[[1]], 1000000
          ],
          Rectangle[
          bounds[[2]], 0,
          Max@mydata, 1000000
          ]

          ],

          bounds, Rescale[.25, .75, 0, 1, MinMax@mydata],
          Sequence @@ MinMax@mydata,
          ControlType -> IntervalSlider

          ]
          ]


          enter image description here







          share|improve this answer












          share|improve this answer



          share|improve this answer










          answered 59 mins ago









          b3m2a1b3m2a1

          28.4k358163




          28.4k358163











          • $begingroup$
            @ b3m2a1 thank you. I really appreciate it.
            $endgroup$
            – Stupid
            29 mins ago

















          • $begingroup$
            @ b3m2a1 thank you. I really appreciate it.
            $endgroup$
            – Stupid
            29 mins ago
















          $begingroup$
          @ b3m2a1 thank you. I really appreciate it.
          $endgroup$
          – Stupid
          29 mins ago





          $begingroup$
          @ b3m2a1 thank you. I really appreciate it.
          $endgroup$
          – Stupid
          29 mins ago











          Stupid is a new contributor. Be nice, and check out our Code of Conduct.









          draft saved

          draft discarded


















          Stupid is a new contributor. Be nice, and check out our Code of Conduct.












          Stupid is a new contributor. Be nice, and check out our Code of Conduct.











          Stupid is a new contributor. Be nice, and check out our Code of Conduct.














          Thanks for contributing an answer to Mathematica Stack Exchange!


          • Please be sure to answer the question. Provide details and share your research!

          But avoid


          • Asking for help, clarification, or responding to other answers.

          • Making statements based on opinion; back them up with references or personal experience.

          Use MathJax to format equations. MathJax reference.


          To learn more, see our tips on writing great answers.




          draft saved


          draft discarded














          StackExchange.ready(
          function ()
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f194234%2fplot-of-histogram-similar-to-output-from-risk%23new-answer', 'question_page');

          );

          Post as a guest















          Required, but never shown





















































          Required, but never shown














          Required, but never shown












          Required, but never shown







          Required, but never shown

































          Required, but never shown














          Required, but never shown












          Required, but never shown







          Required, but never shown







          nGbd 5z8
          vaMx2OtG,Z2r5a,HgfiV4d,2r,an,1ZLuritzShObw5Y 2MPXeXStqh1DHiVPMzar,lhmfAR8tbzIjUKsm6EKGKF

          Popular posts from this blog

          What is the result of assigning to std::vector::begin()? The Next CEO of Stack OverflowWhat are the differences between a pointer variable and a reference variable in C++?What does the explicit keyword mean?Concatenating two std::vectorsHow to find out if an item is present in a std::vector?Why is “using namespace std” considered bad practice?What is the “-->” operator in C++?What is the easiest way to initialize a std::vector with hardcoded elements?What is The Rule of Three?What are the basic rules and idioms for operator overloading?Why are std::begin and std::end “not memory safe”?

          Creating centerline of river in QGIS? The 2019 Stack Overflow Developer Survey Results Are In Announcing the arrival of Valued Associate #679: Cesar Manara Planned maintenance scheduled April 17/18, 2019 at 00:00UTC (8:00pm US/Eastern)Finding centrelines from polygons in QGIS?Splitting line into two lines with GRASS GIS?Centroid of the equator and a pointpostgis: problems creating flow direction polyline; not all needed connections are drawnhow to make decent sense from scattered river depth measurementsQGIS Interpolation on Curved Grid (River DEMs)How to create automatic parking baysShortest path creation between two linesclipping layer using query builder in QGISFinding which side of closest polyline point lies on in QGIS?Create centerline from multi-digitized roadway lines Qgis 2.18Getting bathymetric contours confined only within river banks using QGIS?

          SQL Server 2016 - excessive memory grant warning on poor performing query The Next CEO of Stack OverflowFix for slow SQL_INLINE_TABLE_VALUED_FUNCTIONLarge memory grant requestsPoor performing Query -Tsql execution plan - estimated number of rows =1 Paste the PlanMSSQL - Query had to wait for memory grantRow estimates always too lowBad performance using “NOT IN”Warning about memory “Excessive Grant” in the query plan - how to find out what is causing it?Optimizing table valued function SQL ServerWhen does SQL Server warn about an Excessive Memory Grant?Warning in Execution Plan