Simplifying repetitive drawings and nodes placing

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











up vote
1
down vote

favorite












How to apply the following code, from the answer to this question (which gives the first drawing) to draw the second and third drawings



documentclassbeamer
beamertemplatenavigationsymbolsempty
usepackagetikz
usepackagepgfplots
usetikzlibrarypatterns
begindocument
beginframe[t]
frametitle
hspace -1cm
begintikzpicture[scale=.7, transform shape,linecolor/.style=ultra thick, green!40!black,dotline/.style=thin, black, loosely dotted,
point/.style=circle, draw, red, fill=red, scale=0.4,
cercle/.style=circle,draw,scale=.5, red,thick, fill=white,inner sep=6pt
]
pgfmathsetmacroincrmnt.6

%draw the axes of the left graph
draw [thick,-latex](-.3,0) -- (5,0);
draw [thick,-latex](0,-.3) -- (0,8);

%draw the graph itself
foreach y in 1,...,12draw [linecolor] (0,incrmnt*y) node (yhl) +(0:.15cm) -- +(180:.15cm) node [left] y/12;
draw [dotline] (0,incrmnt*y) -- +(0:8*incrmnt);
foreach x in 1,...,7draw [linecolor] (incrmnt*x,.15) node [ ] -- (incrmnt*x,-.15) node [below] x ;

% left graph
beginscope[every node/.style=circle, draw, solid, red, fill=red, scale=0.4]
draw [linecolor] (incrmnt*1,incrmnt*1) node -- (incrmnt,.15);
draw [linecolor] (incrmnt*2,incrmnt*2) node-- (incrmnt*2,.15);
draw [linecolor] (incrmnt*3,incrmnt*2) node -- (incrmnt*3,.15);
draw [linecolor] (incrmnt*4,incrmnt*2) node -- (incrmnt*4,.15);
draw [linecolor] (incrmnt*5,incrmnt*2) node -- (incrmnt*5,.15);
draw [linecolor] (incrmnt*6,incrmnt*2) node -- (incrmnt*6,.15);
draw [linecolor] (incrmnt*7,incrmnt*1) node -- (incrmnt*7,.15);
endscope

%do the same with the second right graph, plot the same axis by a simple 8cm translation 
beginscope[xshift=8cm]
draw [thick,-latex](-2,0)node [below right] $-infty$ -- (6,0);
draw [thick,-latex](0,-.3) -- (0,8);
foreach y in 1,...,12draw [linecolor] (0,incrmnt*y) +(0:.15cm) -- +(180:.15cm) node [left] y/12;
draw [dotline] (0,incrmnt*y) -- +(0:10*incrmnt);
foreach x in 1,...,7draw [linecolor] (incrmnt*x,.15) -- (incrmnt*x,-.15) node [below] x;

% right graph
draw [thick, black] (incrmnt*9,0) node [below] $infty$ --+(0,incrmnt*13);
foreach x in 1,...,6draw[ultra thick, blue](incrmnt*x,incrmnt*(2*x-1))node[point]--+(incrmnt,0)node[cercle];
node[cercle] at(incrmnt,0);
draw[ultra thick, blue](incrmnt*7,incrmnt*12)node[point]--+(incrmnt*2,0);
endscope
endtikzpicture
endframe
enddocument


enter image description here



enter image description here



enter image description here






tikz-pgf foreach







share|improve this question

























    up vote
    1
    down vote

    favorite












    How to apply the following code, from the answer to this question (which gives the first drawing) to draw the second and third drawings



    documentclassbeamer
    beamertemplatenavigationsymbolsempty
    usepackagetikz
    usepackagepgfplots
    usetikzlibrarypatterns
    begindocument
    beginframe[t]
    frametitle
    hspace -1cm
    begintikzpicture[scale=.7, transform shape,linecolor/.style=ultra thick, green!40!black,dotline/.style=thin, black, loosely dotted,
    point/.style=circle, draw, red, fill=red, scale=0.4,
    cercle/.style=circle,draw,scale=.5, red,thick, fill=white,inner sep=6pt
    ]
    pgfmathsetmacroincrmnt.6

    %draw the axes of the left graph
    draw [thick,-latex](-.3,0) -- (5,0);
    draw [thick,-latex](0,-.3) -- (0,8);

    %draw the graph itself
    foreach y in 1,...,12draw [linecolor] (0,incrmnt*y) node (yhl) +(0:.15cm) -- +(180:.15cm) node [left] y/12;
    draw [dotline] (0,incrmnt*y) -- +(0:8*incrmnt);
    foreach x in 1,...,7draw [linecolor] (incrmnt*x,.15) node [ ] -- (incrmnt*x,-.15) node [below] x ;

    % left graph
    beginscope[every node/.style=circle, draw, solid, red, fill=red, scale=0.4]
    draw [linecolor] (incrmnt*1,incrmnt*1) node -- (incrmnt,.15);
    draw [linecolor] (incrmnt*2,incrmnt*2) node-- (incrmnt*2,.15);
    draw [linecolor] (incrmnt*3,incrmnt*2) node -- (incrmnt*3,.15);
    draw [linecolor] (incrmnt*4,incrmnt*2) node -- (incrmnt*4,.15);
    draw [linecolor] (incrmnt*5,incrmnt*2) node -- (incrmnt*5,.15);
    draw [linecolor] (incrmnt*6,incrmnt*2) node -- (incrmnt*6,.15);
    draw [linecolor] (incrmnt*7,incrmnt*1) node -- (incrmnt*7,.15);
    endscope

    %do the same with the second right graph, plot the same axis by a simple 8cm translation 
    beginscope[xshift=8cm]
    draw [thick,-latex](-2,0)node [below right] $-infty$ -- (6,0);
    draw [thick,-latex](0,-.3) -- (0,8);
    foreach y in 1,...,12draw [linecolor] (0,incrmnt*y) +(0:.15cm) -- +(180:.15cm) node [left] y/12;
    draw [dotline] (0,incrmnt*y) -- +(0:10*incrmnt);
    foreach x in 1,...,7draw [linecolor] (incrmnt*x,.15) -- (incrmnt*x,-.15) node [below] x;

    % right graph
    draw [thick, black] (incrmnt*9,0) node [below] $infty$ --+(0,incrmnt*13);
    foreach x in 1,...,6draw[ultra thick, blue](incrmnt*x,incrmnt*(2*x-1))node[point]--+(incrmnt,0)node[cercle];
    node[cercle] at(incrmnt,0);
    draw[ultra thick, blue](incrmnt*7,incrmnt*12)node[point]--+(incrmnt*2,0);
    endscope
    endtikzpicture
    endframe
    enddocument


    enter image description here



    enter image description here



    enter image description here






    tikz-pgf foreach







    share|improve this question























      up vote
      1
      down vote

      favorite









      up vote
      1
      down vote

      favorite











      How to apply the following code, from the answer to this question (which gives the first drawing) to draw the second and third drawings



      documentclassbeamer
      beamertemplatenavigationsymbolsempty
      usepackagetikz
      usepackagepgfplots
      usetikzlibrarypatterns
      begindocument
      beginframe[t]
      frametitle
      hspace -1cm
      begintikzpicture[scale=.7, transform shape,linecolor/.style=ultra thick, green!40!black,dotline/.style=thin, black, loosely dotted,
      point/.style=circle, draw, red, fill=red, scale=0.4,
      cercle/.style=circle,draw,scale=.5, red,thick, fill=white,inner sep=6pt
      ]
      pgfmathsetmacroincrmnt.6

      %draw the axes of the left graph
      draw [thick,-latex](-.3,0) -- (5,0);
      draw [thick,-latex](0,-.3) -- (0,8);

      %draw the graph itself
      foreach y in 1,...,12draw [linecolor] (0,incrmnt*y) node (yhl) +(0:.15cm) -- +(180:.15cm) node [left] y/12;
      draw [dotline] (0,incrmnt*y) -- +(0:8*incrmnt);
      foreach x in 1,...,7draw [linecolor] (incrmnt*x,.15) node [ ] -- (incrmnt*x,-.15) node [below] x ;

      % left graph
      beginscope[every node/.style=circle, draw, solid, red, fill=red, scale=0.4]
      draw [linecolor] (incrmnt*1,incrmnt*1) node -- (incrmnt,.15);
      draw [linecolor] (incrmnt*2,incrmnt*2) node-- (incrmnt*2,.15);
      draw [linecolor] (incrmnt*3,incrmnt*2) node -- (incrmnt*3,.15);
      draw [linecolor] (incrmnt*4,incrmnt*2) node -- (incrmnt*4,.15);
      draw [linecolor] (incrmnt*5,incrmnt*2) node -- (incrmnt*5,.15);
      draw [linecolor] (incrmnt*6,incrmnt*2) node -- (incrmnt*6,.15);
      draw [linecolor] (incrmnt*7,incrmnt*1) node -- (incrmnt*7,.15);
      endscope

      %do the same with the second right graph, plot the same axis by a simple 8cm translation 
      beginscope[xshift=8cm]
      draw [thick,-latex](-2,0)node [below right] $-infty$ -- (6,0);
      draw [thick,-latex](0,-.3) -- (0,8);
      foreach y in 1,...,12draw [linecolor] (0,incrmnt*y) +(0:.15cm) -- +(180:.15cm) node [left] y/12;
      draw [dotline] (0,incrmnt*y) -- +(0:10*incrmnt);
      foreach x in 1,...,7draw [linecolor] (incrmnt*x,.15) -- (incrmnt*x,-.15) node [below] x;

      % right graph
      draw [thick, black] (incrmnt*9,0) node [below] $infty$ --+(0,incrmnt*13);
      foreach x in 1,...,6draw[ultra thick, blue](incrmnt*x,incrmnt*(2*x-1))node[point]--+(incrmnt,0)node[cercle];
      node[cercle] at(incrmnt,0);
      draw[ultra thick, blue](incrmnt*7,incrmnt*12)node[point]--+(incrmnt*2,0);
      endscope
      endtikzpicture
      endframe
      enddocument


      enter image description here



      enter image description here



      enter image description here






      tikz-pgf foreach







      share|improve this question













      How to apply the following code, from the answer to this question (which gives the first drawing) to draw the second and third drawings



      documentclassbeamer
      beamertemplatenavigationsymbolsempty
      usepackagetikz
      usepackagepgfplots
      usetikzlibrarypatterns
      begindocument
      beginframe[t]
      frametitle
      hspace -1cm
      begintikzpicture[scale=.7, transform shape,linecolor/.style=ultra thick, green!40!black,dotline/.style=thin, black, loosely dotted,
      point/.style=circle, draw, red, fill=red, scale=0.4,
      cercle/.style=circle,draw,scale=.5, red,thick, fill=white,inner sep=6pt
      ]
      pgfmathsetmacroincrmnt.6

      %draw the axes of the left graph
      draw [thick,-latex](-.3,0) -- (5,0);
      draw [thick,-latex](0,-.3) -- (0,8);

      %draw the graph itself
      foreach y in 1,...,12draw [linecolor] (0,incrmnt*y) node (yhl) +(0:.15cm) -- +(180:.15cm) node [left] y/12;
      draw [dotline] (0,incrmnt*y) -- +(0:8*incrmnt);
      foreach x in 1,...,7draw [linecolor] (incrmnt*x,.15) node [ ] -- (incrmnt*x,-.15) node [below] x ;

      % left graph
      beginscope[every node/.style=circle, draw, solid, red, fill=red, scale=0.4]
      draw [linecolor] (incrmnt*1,incrmnt*1) node -- (incrmnt,.15);
      draw [linecolor] (incrmnt*2,incrmnt*2) node-- (incrmnt*2,.15);
      draw [linecolor] (incrmnt*3,incrmnt*2) node -- (incrmnt*3,.15);
      draw [linecolor] (incrmnt*4,incrmnt*2) node -- (incrmnt*4,.15);
      draw [linecolor] (incrmnt*5,incrmnt*2) node -- (incrmnt*5,.15);
      draw [linecolor] (incrmnt*6,incrmnt*2) node -- (incrmnt*6,.15);
      draw [linecolor] (incrmnt*7,incrmnt*1) node -- (incrmnt*7,.15);
      endscope

      %do the same with the second right graph, plot the same axis by a simple 8cm translation 
      beginscope[xshift=8cm]
      draw [thick,-latex](-2,0)node [below right] $-infty$ -- (6,0);
      draw [thick,-latex](0,-.3) -- (0,8);
      foreach y in 1,...,12draw [linecolor] (0,incrmnt*y) +(0:.15cm) -- +(180:.15cm) node [left] y/12;
      draw [dotline] (0,incrmnt*y) -- +(0:10*incrmnt);
      foreach x in 1,...,7draw [linecolor] (incrmnt*x,.15) -- (incrmnt*x,-.15) node [below] x;

      % right graph
      draw [thick, black] (incrmnt*9,0) node [below] $infty$ --+(0,incrmnt*13);
      foreach x in 1,...,6draw[ultra thick, blue](incrmnt*x,incrmnt*(2*x-1))node[point]--+(incrmnt,0)node[cercle];
      node[cercle] at(incrmnt,0);
      draw[ultra thick, blue](incrmnt*7,incrmnt*12)node[point]--+(incrmnt*2,0);
      endscope
      endtikzpicture
      endframe
      enddocument


      enter image description here



      enter image description here



      enter image description here






      tikz-pgf foreach




      tikz-pgf foreach






      share|improve this question













      share|improve this question











      share|improve this question




      share|improve this question










      asked 2 hours ago









      Hany

      969314




      969314




















          1 Answer
          1






          active

          oldest

          votes

















          up vote
          3
          down vote



          accepted










          If I had known where the journey will go when I answered your previous question what I knew when I wrote this answer, I would have recommended pgfplots back then. But given that you seem not to like pgfplots, I provide you loops once more. Nevertheless I can't refrain from asking you to at least consider using pgfplots for that. You'd never have to multiply everything by clumsy units and scale factors, not have to deal with loops that draw the plots or add ticks and so on. (And no, sadly I am not willing to just translate the following quickly to pgfplots "for fun".)



          documentclassbeamer
          beamertemplatenavigationsymbolsempty
          usepackagetikz
          usepackagepgfplots
          usetikzlibrarypatterns
          tikzsetlinecolor/.style=ultra thick, green!40!black,dotline/.style=thin, black, loosely dotted,
          point/.style=circle, draw, red, fill=red, scale=0.4,
          cercle/.style=circle,draw,scale=.5, red,thick, fill=white,inner sep=6pt
          begindocument
          beginframe[t]
          frametitleFirst drawing (unchanged)
          begintikzpicture[scale=.7, transform shape]
          pgfmathsetmacroincrmnt.6

          draw [thick,-latex](-.3,0) -- (5,0);
          draw [thick,-latex](0,-.3) -- (0,8);
          draw [thick,-latex](6.,0) -- (14.4,0) coordinate (br);
          draw [thick,-latex](8,-.2) -- (8,8) coordinate(tr);
          foreach X in 1,...,12

          draw [dotline] (0,X*7cm/12) -- ++ (14,0);
          draw [linecolor] (-incrmnt/2,X*7cm/12)node[left]X/12 -- ++ (incrmnt,0)
          (8-incrmnt/2,X*7cm/12)node[left]X/12-- ++ (incrmnt,0);

          foreach X in 1,...,7

          draw[linecolor] (3*X/5,-incrmnt/2) node[below]X -- ++ (0,incrmnt)
          (8+3*X/5,-incrmnt/2) node[below]X -- ++ (0,incrmnt);
          pgfmathtruncatemacrotstabs(X-4)
          ifnumtst=3
          draw[linecolor] (3*X/5,0) -- ++ (0,7/12)
          node[fill,red,circle,inner sep=2pt];
          else
          draw[linecolor] (3*X/5,0) -- ++ (0,14/12)
          node[fill,red,circle,inner sep=2pt];
          fi
          ifnumX=7
          draw[blue,thick] (8+3*X/5,7*(2*X-2)/12)
          node[fill,red,circle,inner sep=2pt] -- ++ (2*7cm/12,0) coordinate(xr);
          else
          draw[blue,thick] (8+3*X/5,7*(2*X-1)/12) node[fill,red,circle,inner sep=2pt]
          -- ++ (1*7cm/12,0) node[circle,fill=white,draw=red,inner sep=2pt];
          fi

          draw (tr-|xr) -- (br-|xr) node[below](ir)$infty$;
          node at (6.5,0 |-ir) $-infty$;
          node[circle,fill=white,draw=red,inner sep=2pt,thick] at (8+3/5,0);
          endtikzpicture
          endframe

          %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

          beginframe[t]
          frametitleSecond drawing: cdf1
          begintikzpicture[scale=.7, transform shape]
          pgfmathsetmacroincrmnt.6

          draw [thick,-latex](-.3,0) -- (5,0);
          draw [thick,-latex](0,-.3) -- (0,8);
          draw [thick,-latex](6.,0) -- (14.4,0) coordinate (br);
          draw [thick,-latex](8,-.2) -- (8,8) coordinate(tr);
          foreach X [evaluate=X as Y using int(3*X)]in 2,4,...,12

          draw [dotline] (0,X*7cm/12) -- ++ (14,0);
          draw [linecolor] (-incrmnt/2,X*7cm/12)node[left]X/36 -- ++ (incrmnt,0)
          (8-incrmnt/2,X*7cm/12)node[left]Y/36-- ++ (incrmnt,0);

          defhs3,5,4,3,2,1
          foreach X in 0,...,5

          draw[linecolor] (3*(X+1)/4,-incrmnt/2) node[below]X -- ++ (0,incrmnt)
          (8+3*(X+1)/4,-incrmnt/2) node[below]X -- ++ (0,incrmnt);
          pgfmathtruncatemacrohhs[X]
          draw[linecolor] (3*(X+1)/4,0) -- ++ (0,7*h/6);
          draw[blue,thick] (8+3*(X+1)/4,7*(2*X+2)/12) node[fill,red,circle,inner sep=2pt]
          -- ++ (3/4,0) node[circle,fill=white,draw=red,inner sep=2pt] (aux);
          ifnumX<5
          draw[cyan,thick] (aux) -- ++ (0,7/6);
          fi


          endtikzpicture
          endframe

          %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

          beginframe[t]
          frametitleThird drawing: cdf2
          begintikzpicture[scale=.7, transform shape]
          pgfmathsetmacroincrmnt.6

          draw [thick,-latex](-.3,0) -- (5,0);
          draw [thick,-latex](0,-.3) -- (0,8);
          draw [thick,-latex](6.,0) -- (14.4,0) coordinate (br);
          draw [thick,-latex](8,-.2) -- (8,8) coordinate(tr);
          foreach X in 1,...,8

          draw [dotline] (0,X*7/8) -- ++ (14,0);
          ifnumX=8
          draw [linecolor] (-incrmnt/2,X*7/8)node[left]1 -- ++ (incrmnt,0)
          (8-incrmnt/2,X*7/8)node[left]1-- ++ (incrmnt,0);
          else
          draw [linecolor] (-incrmnt/2,X*7/8)node[left]X/8 -- ++ (incrmnt,0)
          (8-incrmnt/2,X*7/8)node[left]X/8-- ++ (incrmnt,0);
          fi

          defhs1,3,3,1
          defsumh0
          foreach X in 0,...,3

          draw[linecolor] 
          (X+1,-incrmnt/2) node[below]X -- ++ (0,incrmnt)
          (8+X+1,-incrmnt/2) node[below]X -- ++ (0,incrmnt);
          pgfmathtruncatemacrohhs[X]
          pgfmathtruncatemacrooldsumhsumh
          pgfmathtruncatemacrosumhsumh+h
          xdefsumhsumh
          draw[linecolor] (X+1,0) -- ++ (0,7*h/8) 
          node[fill,red,circle,inner sep=2pt];
          draw[cyan,latex-latex] (8+X+1,7*oldsumh/8) 
          node[circle,fill=white,draw=red,inner sep=2pt] 
          -- (8+X+1,7*sumh/8)node[fill,red,circle,inner sep=2pt] (aux)
          node[midway,right,black]$P_(X)$;
          ifnumX=3
          draw[blue,thick] (aux) -- ++ (14/8,0) coordinate (r);
          else
          draw[blue,thick] (aux) -- ++ (7/8,0);
          fi

          draw (r |- 14,8) -- (r|-14,0)node[below]$infty$;
          node at (6.5,0 |-ir) $-infty$;
          endtikzpicture
          endframe
          enddocument


          enter image description here






          share|improve this answer




















          • Thank you very much for your time and effort.
            – Hany
            12 mins ago











          Your Answer








          StackExchange.ready(function()
          var channelOptions =
          tags: "".split(" "),
          id: "85"
          ;
          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: 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
          );



          );













           

          draft saved


          draft discarded


















          StackExchange.ready(
          function ()
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2ftex.stackexchange.com%2fquestions%2f458336%2fsimplifying-repetitive-drawings-and-nodes-placing%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
          3
          down vote



          accepted










          If I had known where the journey will go when I answered your previous question what I knew when I wrote this answer, I would have recommended pgfplots back then. But given that you seem not to like pgfplots, I provide you loops once more. Nevertheless I can't refrain from asking you to at least consider using pgfplots for that. You'd never have to multiply everything by clumsy units and scale factors, not have to deal with loops that draw the plots or add ticks and so on. (And no, sadly I am not willing to just translate the following quickly to pgfplots "for fun".)



          documentclassbeamer
          beamertemplatenavigationsymbolsempty
          usepackagetikz
          usepackagepgfplots
          usetikzlibrarypatterns
          tikzsetlinecolor/.style=ultra thick, green!40!black,dotline/.style=thin, black, loosely dotted,
          point/.style=circle, draw, red, fill=red, scale=0.4,
          cercle/.style=circle,draw,scale=.5, red,thick, fill=white,inner sep=6pt
          begindocument
          beginframe[t]
          frametitleFirst drawing (unchanged)
          begintikzpicture[scale=.7, transform shape]
          pgfmathsetmacroincrmnt.6

          draw [thick,-latex](-.3,0) -- (5,0);
          draw [thick,-latex](0,-.3) -- (0,8);
          draw [thick,-latex](6.,0) -- (14.4,0) coordinate (br);
          draw [thick,-latex](8,-.2) -- (8,8) coordinate(tr);
          foreach X in 1,...,12

          draw [dotline] (0,X*7cm/12) -- ++ (14,0);
          draw [linecolor] (-incrmnt/2,X*7cm/12)node[left]X/12 -- ++ (incrmnt,0)
          (8-incrmnt/2,X*7cm/12)node[left]X/12-- ++ (incrmnt,0);

          foreach X in 1,...,7

          draw[linecolor] (3*X/5,-incrmnt/2) node[below]X -- ++ (0,incrmnt)
          (8+3*X/5,-incrmnt/2) node[below]X -- ++ (0,incrmnt);
          pgfmathtruncatemacrotstabs(X-4)
          ifnumtst=3
          draw[linecolor] (3*X/5,0) -- ++ (0,7/12)
          node[fill,red,circle,inner sep=2pt];
          else
          draw[linecolor] (3*X/5,0) -- ++ (0,14/12)
          node[fill,red,circle,inner sep=2pt];
          fi
          ifnumX=7
          draw[blue,thick] (8+3*X/5,7*(2*X-2)/12)
          node[fill,red,circle,inner sep=2pt] -- ++ (2*7cm/12,0) coordinate(xr);
          else
          draw[blue,thick] (8+3*X/5,7*(2*X-1)/12) node[fill,red,circle,inner sep=2pt]
          -- ++ (1*7cm/12,0) node[circle,fill=white,draw=red,inner sep=2pt];
          fi

          draw (tr-|xr) -- (br-|xr) node[below](ir)$infty$;
          node at (6.5,0 |-ir) $-infty$;
          node[circle,fill=white,draw=red,inner sep=2pt,thick] at (8+3/5,0);
          endtikzpicture
          endframe

          %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

          beginframe[t]
          frametitleSecond drawing: cdf1
          begintikzpicture[scale=.7, transform shape]
          pgfmathsetmacroincrmnt.6

          draw [thick,-latex](-.3,0) -- (5,0);
          draw [thick,-latex](0,-.3) -- (0,8);
          draw [thick,-latex](6.,0) -- (14.4,0) coordinate (br);
          draw [thick,-latex](8,-.2) -- (8,8) coordinate(tr);
          foreach X [evaluate=X as Y using int(3*X)]in 2,4,...,12

          draw [dotline] (0,X*7cm/12) -- ++ (14,0);
          draw [linecolor] (-incrmnt/2,X*7cm/12)node[left]X/36 -- ++ (incrmnt,0)
          (8-incrmnt/2,X*7cm/12)node[left]Y/36-- ++ (incrmnt,0);

          defhs3,5,4,3,2,1
          foreach X in 0,...,5

          draw[linecolor] (3*(X+1)/4,-incrmnt/2) node[below]X -- ++ (0,incrmnt)
          (8+3*(X+1)/4,-incrmnt/2) node[below]X -- ++ (0,incrmnt);
          pgfmathtruncatemacrohhs[X]
          draw[linecolor] (3*(X+1)/4,0) -- ++ (0,7*h/6);
          draw[blue,thick] (8+3*(X+1)/4,7*(2*X+2)/12) node[fill,red,circle,inner sep=2pt]
          -- ++ (3/4,0) node[circle,fill=white,draw=red,inner sep=2pt] (aux);
          ifnumX<5
          draw[cyan,thick] (aux) -- ++ (0,7/6);
          fi


          endtikzpicture
          endframe

          %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

          beginframe[t]
          frametitleThird drawing: cdf2
          begintikzpicture[scale=.7, transform shape]
          pgfmathsetmacroincrmnt.6

          draw [thick,-latex](-.3,0) -- (5,0);
          draw [thick,-latex](0,-.3) -- (0,8);
          draw [thick,-latex](6.,0) -- (14.4,0) coordinate (br);
          draw [thick,-latex](8,-.2) -- (8,8) coordinate(tr);
          foreach X in 1,...,8

          draw [dotline] (0,X*7/8) -- ++ (14,0);
          ifnumX=8
          draw [linecolor] (-incrmnt/2,X*7/8)node[left]1 -- ++ (incrmnt,0)
          (8-incrmnt/2,X*7/8)node[left]1-- ++ (incrmnt,0);
          else
          draw [linecolor] (-incrmnt/2,X*7/8)node[left]X/8 -- ++ (incrmnt,0)
          (8-incrmnt/2,X*7/8)node[left]X/8-- ++ (incrmnt,0);
          fi

          defhs1,3,3,1
          defsumh0
          foreach X in 0,...,3

          draw[linecolor] 
          (X+1,-incrmnt/2) node[below]X -- ++ (0,incrmnt)
          (8+X+1,-incrmnt/2) node[below]X -- ++ (0,incrmnt);
          pgfmathtruncatemacrohhs[X]
          pgfmathtruncatemacrooldsumhsumh
          pgfmathtruncatemacrosumhsumh+h
          xdefsumhsumh
          draw[linecolor] (X+1,0) -- ++ (0,7*h/8) 
          node[fill,red,circle,inner sep=2pt];
          draw[cyan,latex-latex] (8+X+1,7*oldsumh/8) 
          node[circle,fill=white,draw=red,inner sep=2pt] 
          -- (8+X+1,7*sumh/8)node[fill,red,circle,inner sep=2pt] (aux)
          node[midway,right,black]$P_(X)$;
          ifnumX=3
          draw[blue,thick] (aux) -- ++ (14/8,0) coordinate (r);
          else
          draw[blue,thick] (aux) -- ++ (7/8,0);
          fi

          draw (r |- 14,8) -- (r|-14,0)node[below]$infty$;
          node at (6.5,0 |-ir) $-infty$;
          endtikzpicture
          endframe
          enddocument


          enter image description here






          share|improve this answer




















          • Thank you very much for your time and effort.
            – Hany
            12 mins ago















          up vote
          3
          down vote



          accepted










          If I had known where the journey will go when I answered your previous question what I knew when I wrote this answer, I would have recommended pgfplots back then. But given that you seem not to like pgfplots, I provide you loops once more. Nevertheless I can't refrain from asking you to at least consider using pgfplots for that. You'd never have to multiply everything by clumsy units and scale factors, not have to deal with loops that draw the plots or add ticks and so on. (And no, sadly I am not willing to just translate the following quickly to pgfplots "for fun".)



          documentclassbeamer
          beamertemplatenavigationsymbolsempty
          usepackagetikz
          usepackagepgfplots
          usetikzlibrarypatterns
          tikzsetlinecolor/.style=ultra thick, green!40!black,dotline/.style=thin, black, loosely dotted,
          point/.style=circle, draw, red, fill=red, scale=0.4,
          cercle/.style=circle,draw,scale=.5, red,thick, fill=white,inner sep=6pt
          begindocument
          beginframe[t]
          frametitleFirst drawing (unchanged)
          begintikzpicture[scale=.7, transform shape]
          pgfmathsetmacroincrmnt.6

          draw [thick,-latex](-.3,0) -- (5,0);
          draw [thick,-latex](0,-.3) -- (0,8);
          draw [thick,-latex](6.,0) -- (14.4,0) coordinate (br);
          draw [thick,-latex](8,-.2) -- (8,8) coordinate(tr);
          foreach X in 1,...,12

          draw [dotline] (0,X*7cm/12) -- ++ (14,0);
          draw [linecolor] (-incrmnt/2,X*7cm/12)node[left]X/12 -- ++ (incrmnt,0)
          (8-incrmnt/2,X*7cm/12)node[left]X/12-- ++ (incrmnt,0);

          foreach X in 1,...,7

          draw[linecolor] (3*X/5,-incrmnt/2) node[below]X -- ++ (0,incrmnt)
          (8+3*X/5,-incrmnt/2) node[below]X -- ++ (0,incrmnt);
          pgfmathtruncatemacrotstabs(X-4)
          ifnumtst=3
          draw[linecolor] (3*X/5,0) -- ++ (0,7/12)
          node[fill,red,circle,inner sep=2pt];
          else
          draw[linecolor] (3*X/5,0) -- ++ (0,14/12)
          node[fill,red,circle,inner sep=2pt];
          fi
          ifnumX=7
          draw[blue,thick] (8+3*X/5,7*(2*X-2)/12)
          node[fill,red,circle,inner sep=2pt] -- ++ (2*7cm/12,0) coordinate(xr);
          else
          draw[blue,thick] (8+3*X/5,7*(2*X-1)/12) node[fill,red,circle,inner sep=2pt]
          -- ++ (1*7cm/12,0) node[circle,fill=white,draw=red,inner sep=2pt];
          fi

          draw (tr-|xr) -- (br-|xr) node[below](ir)$infty$;
          node at (6.5,0 |-ir) $-infty$;
          node[circle,fill=white,draw=red,inner sep=2pt,thick] at (8+3/5,0);
          endtikzpicture
          endframe

          %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

          beginframe[t]
          frametitleSecond drawing: cdf1
          begintikzpicture[scale=.7, transform shape]
          pgfmathsetmacroincrmnt.6

          draw [thick,-latex](-.3,0) -- (5,0);
          draw [thick,-latex](0,-.3) -- (0,8);
          draw [thick,-latex](6.,0) -- (14.4,0) coordinate (br);
          draw [thick,-latex](8,-.2) -- (8,8) coordinate(tr);
          foreach X [evaluate=X as Y using int(3*X)]in 2,4,...,12

          draw [dotline] (0,X*7cm/12) -- ++ (14,0);
          draw [linecolor] (-incrmnt/2,X*7cm/12)node[left]X/36 -- ++ (incrmnt,0)
          (8-incrmnt/2,X*7cm/12)node[left]Y/36-- ++ (incrmnt,0);

          defhs3,5,4,3,2,1
          foreach X in 0,...,5

          draw[linecolor] (3*(X+1)/4,-incrmnt/2) node[below]X -- ++ (0,incrmnt)
          (8+3*(X+1)/4,-incrmnt/2) node[below]X -- ++ (0,incrmnt);
          pgfmathtruncatemacrohhs[X]
          draw[linecolor] (3*(X+1)/4,0) -- ++ (0,7*h/6);
          draw[blue,thick] (8+3*(X+1)/4,7*(2*X+2)/12) node[fill,red,circle,inner sep=2pt]
          -- ++ (3/4,0) node[circle,fill=white,draw=red,inner sep=2pt] (aux);
          ifnumX<5
          draw[cyan,thick] (aux) -- ++ (0,7/6);
          fi


          endtikzpicture
          endframe

          %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

          beginframe[t]
          frametitleThird drawing: cdf2
          begintikzpicture[scale=.7, transform shape]
          pgfmathsetmacroincrmnt.6

          draw [thick,-latex](-.3,0) -- (5,0);
          draw [thick,-latex](0,-.3) -- (0,8);
          draw [thick,-latex](6.,0) -- (14.4,0) coordinate (br);
          draw [thick,-latex](8,-.2) -- (8,8) coordinate(tr);
          foreach X in 1,...,8

          draw [dotline] (0,X*7/8) -- ++ (14,0);
          ifnumX=8
          draw [linecolor] (-incrmnt/2,X*7/8)node[left]1 -- ++ (incrmnt,0)
          (8-incrmnt/2,X*7/8)node[left]1-- ++ (incrmnt,0);
          else
          draw [linecolor] (-incrmnt/2,X*7/8)node[left]X/8 -- ++ (incrmnt,0)
          (8-incrmnt/2,X*7/8)node[left]X/8-- ++ (incrmnt,0);
          fi

          defhs1,3,3,1
          defsumh0
          foreach X in 0,...,3

          draw[linecolor] 
          (X+1,-incrmnt/2) node[below]X -- ++ (0,incrmnt)
          (8+X+1,-incrmnt/2) node[below]X -- ++ (0,incrmnt);
          pgfmathtruncatemacrohhs[X]
          pgfmathtruncatemacrooldsumhsumh
          pgfmathtruncatemacrosumhsumh+h
          xdefsumhsumh
          draw[linecolor] (X+1,0) -- ++ (0,7*h/8) 
          node[fill,red,circle,inner sep=2pt];
          draw[cyan,latex-latex] (8+X+1,7*oldsumh/8) 
          node[circle,fill=white,draw=red,inner sep=2pt] 
          -- (8+X+1,7*sumh/8)node[fill,red,circle,inner sep=2pt] (aux)
          node[midway,right,black]$P_(X)$;
          ifnumX=3
          draw[blue,thick] (aux) -- ++ (14/8,0) coordinate (r);
          else
          draw[blue,thick] (aux) -- ++ (7/8,0);
          fi

          draw (r |- 14,8) -- (r|-14,0)node[below]$infty$;
          node at (6.5,0 |-ir) $-infty$;
          endtikzpicture
          endframe
          enddocument


          enter image description here






          share|improve this answer




















          • Thank you very much for your time and effort.
            – Hany
            12 mins ago













          up vote
          3
          down vote



          accepted







          up vote
          3
          down vote



          accepted






          If I had known where the journey will go when I answered your previous question what I knew when I wrote this answer, I would have recommended pgfplots back then. But given that you seem not to like pgfplots, I provide you loops once more. Nevertheless I can't refrain from asking you to at least consider using pgfplots for that. You'd never have to multiply everything by clumsy units and scale factors, not have to deal with loops that draw the plots or add ticks and so on. (And no, sadly I am not willing to just translate the following quickly to pgfplots "for fun".)



          documentclassbeamer
          beamertemplatenavigationsymbolsempty
          usepackagetikz
          usepackagepgfplots
          usetikzlibrarypatterns
          tikzsetlinecolor/.style=ultra thick, green!40!black,dotline/.style=thin, black, loosely dotted,
          point/.style=circle, draw, red, fill=red, scale=0.4,
          cercle/.style=circle,draw,scale=.5, red,thick, fill=white,inner sep=6pt
          begindocument
          beginframe[t]
          frametitleFirst drawing (unchanged)
          begintikzpicture[scale=.7, transform shape]
          pgfmathsetmacroincrmnt.6

          draw [thick,-latex](-.3,0) -- (5,0);
          draw [thick,-latex](0,-.3) -- (0,8);
          draw [thick,-latex](6.,0) -- (14.4,0) coordinate (br);
          draw [thick,-latex](8,-.2) -- (8,8) coordinate(tr);
          foreach X in 1,...,12

          draw [dotline] (0,X*7cm/12) -- ++ (14,0);
          draw [linecolor] (-incrmnt/2,X*7cm/12)node[left]X/12 -- ++ (incrmnt,0)
          (8-incrmnt/2,X*7cm/12)node[left]X/12-- ++ (incrmnt,0);

          foreach X in 1,...,7

          draw[linecolor] (3*X/5,-incrmnt/2) node[below]X -- ++ (0,incrmnt)
          (8+3*X/5,-incrmnt/2) node[below]X -- ++ (0,incrmnt);
          pgfmathtruncatemacrotstabs(X-4)
          ifnumtst=3
          draw[linecolor] (3*X/5,0) -- ++ (0,7/12)
          node[fill,red,circle,inner sep=2pt];
          else
          draw[linecolor] (3*X/5,0) -- ++ (0,14/12)
          node[fill,red,circle,inner sep=2pt];
          fi
          ifnumX=7
          draw[blue,thick] (8+3*X/5,7*(2*X-2)/12)
          node[fill,red,circle,inner sep=2pt] -- ++ (2*7cm/12,0) coordinate(xr);
          else
          draw[blue,thick] (8+3*X/5,7*(2*X-1)/12) node[fill,red,circle,inner sep=2pt]
          -- ++ (1*7cm/12,0) node[circle,fill=white,draw=red,inner sep=2pt];
          fi

          draw (tr-|xr) -- (br-|xr) node[below](ir)$infty$;
          node at (6.5,0 |-ir) $-infty$;
          node[circle,fill=white,draw=red,inner sep=2pt,thick] at (8+3/5,0);
          endtikzpicture
          endframe

          %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

          beginframe[t]
          frametitleSecond drawing: cdf1
          begintikzpicture[scale=.7, transform shape]
          pgfmathsetmacroincrmnt.6

          draw [thick,-latex](-.3,0) -- (5,0);
          draw [thick,-latex](0,-.3) -- (0,8);
          draw [thick,-latex](6.,0) -- (14.4,0) coordinate (br);
          draw [thick,-latex](8,-.2) -- (8,8) coordinate(tr);
          foreach X [evaluate=X as Y using int(3*X)]in 2,4,...,12

          draw [dotline] (0,X*7cm/12) -- ++ (14,0);
          draw [linecolor] (-incrmnt/2,X*7cm/12)node[left]X/36 -- ++ (incrmnt,0)
          (8-incrmnt/2,X*7cm/12)node[left]Y/36-- ++ (incrmnt,0);

          defhs3,5,4,3,2,1
          foreach X in 0,...,5

          draw[linecolor] (3*(X+1)/4,-incrmnt/2) node[below]X -- ++ (0,incrmnt)
          (8+3*(X+1)/4,-incrmnt/2) node[below]X -- ++ (0,incrmnt);
          pgfmathtruncatemacrohhs[X]
          draw[linecolor] (3*(X+1)/4,0) -- ++ (0,7*h/6);
          draw[blue,thick] (8+3*(X+1)/4,7*(2*X+2)/12) node[fill,red,circle,inner sep=2pt]
          -- ++ (3/4,0) node[circle,fill=white,draw=red,inner sep=2pt] (aux);
          ifnumX<5
          draw[cyan,thick] (aux) -- ++ (0,7/6);
          fi


          endtikzpicture
          endframe

          %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

          beginframe[t]
          frametitleThird drawing: cdf2
          begintikzpicture[scale=.7, transform shape]
          pgfmathsetmacroincrmnt.6

          draw [thick,-latex](-.3,0) -- (5,0);
          draw [thick,-latex](0,-.3) -- (0,8);
          draw [thick,-latex](6.,0) -- (14.4,0) coordinate (br);
          draw [thick,-latex](8,-.2) -- (8,8) coordinate(tr);
          foreach X in 1,...,8

          draw [dotline] (0,X*7/8) -- ++ (14,0);
          ifnumX=8
          draw [linecolor] (-incrmnt/2,X*7/8)node[left]1 -- ++ (incrmnt,0)
          (8-incrmnt/2,X*7/8)node[left]1-- ++ (incrmnt,0);
          else
          draw [linecolor] (-incrmnt/2,X*7/8)node[left]X/8 -- ++ (incrmnt,0)
          (8-incrmnt/2,X*7/8)node[left]X/8-- ++ (incrmnt,0);
          fi

          defhs1,3,3,1
          defsumh0
          foreach X in 0,...,3

          draw[linecolor] 
          (X+1,-incrmnt/2) node[below]X -- ++ (0,incrmnt)
          (8+X+1,-incrmnt/2) node[below]X -- ++ (0,incrmnt);
          pgfmathtruncatemacrohhs[X]
          pgfmathtruncatemacrooldsumhsumh
          pgfmathtruncatemacrosumhsumh+h
          xdefsumhsumh
          draw[linecolor] (X+1,0) -- ++ (0,7*h/8) 
          node[fill,red,circle,inner sep=2pt];
          draw[cyan,latex-latex] (8+X+1,7*oldsumh/8) 
          node[circle,fill=white,draw=red,inner sep=2pt] 
          -- (8+X+1,7*sumh/8)node[fill,red,circle,inner sep=2pt] (aux)
          node[midway,right,black]$P_(X)$;
          ifnumX=3
          draw[blue,thick] (aux) -- ++ (14/8,0) coordinate (r);
          else
          draw[blue,thick] (aux) -- ++ (7/8,0);
          fi

          draw (r |- 14,8) -- (r|-14,0)node[below]$infty$;
          node at (6.5,0 |-ir) $-infty$;
          endtikzpicture
          endframe
          enddocument


          enter image description here






          share|improve this answer












          If I had known where the journey will go when I answered your previous question what I knew when I wrote this answer, I would have recommended pgfplots back then. But given that you seem not to like pgfplots, I provide you loops once more. Nevertheless I can't refrain from asking you to at least consider using pgfplots for that. You'd never have to multiply everything by clumsy units and scale factors, not have to deal with loops that draw the plots or add ticks and so on. (And no, sadly I am not willing to just translate the following quickly to pgfplots "for fun".)



          documentclassbeamer
          beamertemplatenavigationsymbolsempty
          usepackagetikz
          usepackagepgfplots
          usetikzlibrarypatterns
          tikzsetlinecolor/.style=ultra thick, green!40!black,dotline/.style=thin, black, loosely dotted,
          point/.style=circle, draw, red, fill=red, scale=0.4,
          cercle/.style=circle,draw,scale=.5, red,thick, fill=white,inner sep=6pt
          begindocument
          beginframe[t]
          frametitleFirst drawing (unchanged)
          begintikzpicture[scale=.7, transform shape]
          pgfmathsetmacroincrmnt.6

          draw [thick,-latex](-.3,0) -- (5,0);
          draw [thick,-latex](0,-.3) -- (0,8);
          draw [thick,-latex](6.,0) -- (14.4,0) coordinate (br);
          draw [thick,-latex](8,-.2) -- (8,8) coordinate(tr);
          foreach X in 1,...,12

          draw [dotline] (0,X*7cm/12) -- ++ (14,0);
          draw [linecolor] (-incrmnt/2,X*7cm/12)node[left]X/12 -- ++ (incrmnt,0)
          (8-incrmnt/2,X*7cm/12)node[left]X/12-- ++ (incrmnt,0);

          foreach X in 1,...,7

          draw[linecolor] (3*X/5,-incrmnt/2) node[below]X -- ++ (0,incrmnt)
          (8+3*X/5,-incrmnt/2) node[below]X -- ++ (0,incrmnt);
          pgfmathtruncatemacrotstabs(X-4)
          ifnumtst=3
          draw[linecolor] (3*X/5,0) -- ++ (0,7/12)
          node[fill,red,circle,inner sep=2pt];
          else
          draw[linecolor] (3*X/5,0) -- ++ (0,14/12)
          node[fill,red,circle,inner sep=2pt];
          fi
          ifnumX=7
          draw[blue,thick] (8+3*X/5,7*(2*X-2)/12)
          node[fill,red,circle,inner sep=2pt] -- ++ (2*7cm/12,0) coordinate(xr);
          else
          draw[blue,thick] (8+3*X/5,7*(2*X-1)/12) node[fill,red,circle,inner sep=2pt]
          -- ++ (1*7cm/12,0) node[circle,fill=white,draw=red,inner sep=2pt];
          fi

          draw (tr-|xr) -- (br-|xr) node[below](ir)$infty$;
          node at (6.5,0 |-ir) $-infty$;
          node[circle,fill=white,draw=red,inner sep=2pt,thick] at (8+3/5,0);
          endtikzpicture
          endframe

          %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

          beginframe[t]
          frametitleSecond drawing: cdf1
          begintikzpicture[scale=.7, transform shape]
          pgfmathsetmacroincrmnt.6

          draw [thick,-latex](-.3,0) -- (5,0);
          draw [thick,-latex](0,-.3) -- (0,8);
          draw [thick,-latex](6.,0) -- (14.4,0) coordinate (br);
          draw [thick,-latex](8,-.2) -- (8,8) coordinate(tr);
          foreach X [evaluate=X as Y using int(3*X)]in 2,4,...,12

          draw [dotline] (0,X*7cm/12) -- ++ (14,0);
          draw [linecolor] (-incrmnt/2,X*7cm/12)node[left]X/36 -- ++ (incrmnt,0)
          (8-incrmnt/2,X*7cm/12)node[left]Y/36-- ++ (incrmnt,0);

          defhs3,5,4,3,2,1
          foreach X in 0,...,5

          draw[linecolor] (3*(X+1)/4,-incrmnt/2) node[below]X -- ++ (0,incrmnt)
          (8+3*(X+1)/4,-incrmnt/2) node[below]X -- ++ (0,incrmnt);
          pgfmathtruncatemacrohhs[X]
          draw[linecolor] (3*(X+1)/4,0) -- ++ (0,7*h/6);
          draw[blue,thick] (8+3*(X+1)/4,7*(2*X+2)/12) node[fill,red,circle,inner sep=2pt]
          -- ++ (3/4,0) node[circle,fill=white,draw=red,inner sep=2pt] (aux);
          ifnumX<5
          draw[cyan,thick] (aux) -- ++ (0,7/6);
          fi


          endtikzpicture
          endframe

          %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

          beginframe[t]
          frametitleThird drawing: cdf2
          begintikzpicture[scale=.7, transform shape]
          pgfmathsetmacroincrmnt.6

          draw [thick,-latex](-.3,0) -- (5,0);
          draw [thick,-latex](0,-.3) -- (0,8);
          draw [thick,-latex](6.,0) -- (14.4,0) coordinate (br);
          draw [thick,-latex](8,-.2) -- (8,8) coordinate(tr);
          foreach X in 1,...,8

          draw [dotline] (0,X*7/8) -- ++ (14,0);
          ifnumX=8
          draw [linecolor] (-incrmnt/2,X*7/8)node[left]1 -- ++ (incrmnt,0)
          (8-incrmnt/2,X*7/8)node[left]1-- ++ (incrmnt,0);
          else
          draw [linecolor] (-incrmnt/2,X*7/8)node[left]X/8 -- ++ (incrmnt,0)
          (8-incrmnt/2,X*7/8)node[left]X/8-- ++ (incrmnt,0);
          fi

          defhs1,3,3,1
          defsumh0
          foreach X in 0,...,3

          draw[linecolor] 
          (X+1,-incrmnt/2) node[below]X -- ++ (0,incrmnt)
          (8+X+1,-incrmnt/2) node[below]X -- ++ (0,incrmnt);
          pgfmathtruncatemacrohhs[X]
          pgfmathtruncatemacrooldsumhsumh
          pgfmathtruncatemacrosumhsumh+h
          xdefsumhsumh
          draw[linecolor] (X+1,0) -- ++ (0,7*h/8) 
          node[fill,red,circle,inner sep=2pt];
          draw[cyan,latex-latex] (8+X+1,7*oldsumh/8) 
          node[circle,fill=white,draw=red,inner sep=2pt] 
          -- (8+X+1,7*sumh/8)node[fill,red,circle,inner sep=2pt] (aux)
          node[midway,right,black]$P_(X)$;
          ifnumX=3
          draw[blue,thick] (aux) -- ++ (14/8,0) coordinate (r);
          else
          draw[blue,thick] (aux) -- ++ (7/8,0);
          fi

          draw (r |- 14,8) -- (r|-14,0)node[below]$infty$;
          node at (6.5,0 |-ir) $-infty$;
          endtikzpicture
          endframe
          enddocument


          enter image description here







          share|improve this answer












          share|improve this answer



          share|improve this answer










          answered 1 hour ago









          marmot

          71.5k476152




          71.5k476152











          • Thank you very much for your time and effort.
            – Hany
            12 mins ago

















          • Thank you very much for your time and effort.
            – Hany
            12 mins ago
















          Thank you very much for your time and effort.
          – Hany
          12 mins ago





          Thank you very much for your time and effort.
          – Hany
          12 mins ago


















           

          draft saved


          draft discarded















































           


          draft saved


          draft discarded














          StackExchange.ready(
          function ()
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2ftex.stackexchange.com%2fquestions%2f458336%2fsimplifying-repetitive-drawings-and-nodes-placing%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