> #Unable to finish, apologies #Timothy Nasralla, HW7, 9/21/21
> read "/Users/tan88/OneDrive - Rutgers University/mw7.txt"
> Help7()
    GR(p,i,N), GRt(p,i,N),  GRm(N,p), OneStepMarkov(P,i), MarkovTrip(P,K), 

      StSa(P,K) ,  StS(P), StSp(P,K), RandSM(N)  



                    I enter the casino with , 5, dollars 

                   I lost a dollar, now I have, 4, dollars 

                   I lost a dollar, now I have, 5, dollars 

                   I lost a dollar, now I have, 4, dollars 

                   I lost a dollar, now I have, 5, dollars 

                   I lost a dollar, now I have, 4, dollars 

                   I lost a dollar, now I have, 5, dollars 

                   I lost a dollar, now I have, 6, dollars 

                   I lost a dollar, now I have, 7, dollars 

                   I lost a dollar, now I have, 6, dollars 

                   I lost a dollar, now I have, 7, dollars 

                   I lost a dollar, now I have, 8, dollars 

                   I lost a dollar, now I have, 7, dollars 

                   I lost a dollar, now I have, 8, dollars 

                   I lost a dollar, now I have, 9, dollars 

                   I lost a dollar, now I have, 8, dollars 

                   I lost a dollar, now I have, 9, dollars 

                   I lost a dollar, now I have, 8, dollars 

                   I lost a dollar, now I have, 7, dollars 

                   I lost a dollar, now I have, 8, dollars 

                   I lost a dollar, now I have, 9, dollars 

                  I lost a dollar, now I have, 10, dollars 

                    Yea, I am rich, I now have the max, 10

                             It took, 21, rounds 


> EstGR := proc(p,i,n,K) local a,b,c,d,w,gd: b := 0; c := 0; w := 0; for a from
> 1 by 1 to K do A := GR(pg,i,n) e := A[1]; f := A[2]: if e > 0 then b := b + 1;
> else b := b; fi: od: c := c + f; end do: w := b/K; d := c/K; gd := ceil(c/K);
> print('The average probability of winning is', w, ' and the average amount of
> rounds is ', d, ' which rounds to ', gd] return([w,gd]): fi: end:
Error, missing operator or `;`