Simulation Report

[1] "/Users/jornbrouwer/Onedrive/Programeren/the_big_five/thebigfive/RScript/SpaandersBV_dataset_2"

---

Simulatie informatie

1.0 Logbestand: ../LogFiles/logfile-v4_minimale_productie.csv

1.1 aantal gemaakte budget-tafels: 61986

1.2 aantal gemaakte luxe-tafels: 7280

1.3 Gesimuleerde tijd: 1040d 0H 0M 0S

1.4 aantal reparaties: 0

1.5 Aantal keer dat machines zijn omgesteld tussen luxe- en budgettafels: 207

1.6 gemiddelde bezettingsgraad tussenliggende buffers: 23.4525267

---

---

Productielijnen

Budget-bladen

• Rendered time period is: 20d 0H 0M 0S

Machine 1 - (Hout) zaagmachine

---

Machine 4 - Voorboormachine

---

Machine 5 - Schuurmachine

---

Machine 6 - Verfmachine

---

Budget-poten

Machine 7 - IJzerzaag-machine

---

Machine 9 - Lasmachine

---

Machine 10 - Poedercoat-machine

---

Luxe-bladen

Render time

• Rendered time period is: 20d 0H 0M 0S

Machine 1 - (Hout) zaagmachine

Machine 2 - (Hout) lijmmachine

Machine 3 - (Hout) Freezemachine

Machine 4 - (Hout) Voorboormachine

Machine 5 - (Hout) Schuurmachine

Machine 6 - (Hout) Verfmachine

Luxe-poten

Machine 7 - IJzerzaag-machine

Machine 8 - (IJzer) buigmachine

M8 <- subset(logfile,select=c(Timestamp,Sender,Message,InputBuffer,OutputBuffer,Workload,ItemType),
             subset=((machines_V==8)&(itemtype_V=="E")&(timestamps_V<=renderTime[dummyRenderedTime])))
print(head(M8$OutputBuffer))

[1] "X" "X" "X" "X" "X" "X"

print(unique(M8$OutputBuffer))

[1] "X"

#print(count((M8$OutputBuffer)))
class(M8$OutputBuffer)

[1] "character"

#output <- abs(M8$OutputBuffer)
# par(mfrow = c(1,1))
# plot(M8$Timestamp,output, main="Buigmachine",xlab = "Timestamp in seconds",ylab="1st outputbuffer")
# lines(M8$Timestamp,M8$OutputBuffer)
#print(head(M8, n=50))
#print(tail(M8, n=50))
# par(mfrow = c(1,2))
# gebogenPoten <- M8$OutputBuffer
# gebogenPoten <- as.numeric(gebogenPoten)
# hist(gebogenPoten,main="Gebogen luxe poten", xlab="bucket grootte", ylab="hoeveelheid luxe gebogen poten")
#d <- density(gezaagdeBladen)
#plot(d)
#polygon(d,col="red",border="blue")
# xaxis <- seq(1:length(gebogenPoten))
# boxplot(x = gebogenPoten,y = xaxis, main="boxplot luxe gebogen poten", ylab="Hoeveelheid luxe gebogen poten")
#print(summary(gezaagdeBladen))
#print(unique(gezaagdeBladen))

Machine 9 - Lasmachine

Machine 11 - polijstmachine

---