symulacje

##########################################################################################
###                                              Deklaracja funkcji generującej wartości losowe z rozkładu trójkątnego                                                   ###
##########################################################################################

rtr=function(a,b,c)
{

x=0;y=0
while ( (y>(x-a)/(b-a)) | (y>(x-c)/(b-c)) )
x=runif(1,a,c); y=runif(1)
x

}