airbusa380.nlogo

登机模拟(airbus 380)

breed [ passengers ]
breed [ stewards ]
breed [ seats ]
breed [ lockers ]

turtles-own [busy?]
    
passengers-own [seat_x 
                seat_y 
                luggage 
                state nearest_locker 
                next_event
                pre_x
                b?
                ]
        ; state - passengers: 0 - before boarding, 1 - finding seat, 2 - loading luggage, 3 - sitting down, 4 - in seat
        
lockers-own [load capacity]

Globals [ Passengers_Blocked_Seat            ;seat interference
         Passengers_Blocked_Aisle           ;aisle interference
Number_of_Seats Number_of_Passengers Passengers_Blocked Time figure
         conerx3 conery3 l3 w3 conerx4 conery4 l4 w4
         colour conerx1 conery1 l1 w1 conerx2 conery2 l2 w2]

to setup
   
    ca clear-output
    ; set patch colour
    ask patches [set pcolor sky + 3]
    
    ;setup cabin crew
    ask patches at-points [[-23 3] [-23 -2]] 
    [sprout 1 [
        set breed stewards
        set shape "p" 
        set color blue
        ]]
    
    ;setup overhead lockers
    ask patches with [pxcor > min-pxcor
        and (pycor = max-pycor - 1 or pycor = min-pycor)]
        [sprout 1 [set breed lockers 
                   set shape "box" 
                   set color white 
                   set capacity 5]]
                   
set conerx1 24 set conerx2 24
set conery1 5  set conery2 0
set l1 23      set l2 23
set w1 1       set w2 1
set figure "box1"
set Number_of_Seats 92
set Number_of_Passengers (Seat_Occupancy * Number_of_Seats / 100)
set colour 3
setup_seat

set conerx1 1 set conerx2 1
set conery1 5  set conery2 0
set l1 23     set l2 23
set w1 1       set w2 1

set conerx3 0 set conerx4 0
set conery3 0  set conery4 0
set l3 0      set l4 0
set w3 0       set w4 0
set figure "box2"
set Number_of_Seats 92
set Number_of_Passengers (Seat_Occupancy * Number_of_Seats / 100)
set colour 4
setup_seat

set conerx1 24 set conerx2 24
set conery1 4  set conery2 1
set l1 23      set l2 23
set w1 1       set w2 1

set figure "box3"
set Number_of_Seats 92
set Number_of_Passengers (Seat_Occupancy * Number_of_Seats / 100)
set colour 5
setup_seat

set conerx1 1 set conerx2 1
set conery1 4  set conery2 1
set l1 23      set l2 23
set w1 1       set w2 1

set figure "box4"
set Number_of_Seats 92
set Number_of_Passengers (Seat_Occupancy * Number_of_Seats / 100)
set colour 6
setup_seat

set conerx1 1 set conerx2 0
set conery1 3  set conery2 0
set l1 46      set l2 0
set w1 1       set w2 0

set figure "box5"
set Number_of_Seats 92
set Number_of_Passengers (Seat_Occupancy * Number_of_Seats / 100)
set colour 7
setup_seat

    ask turtles [set busy? false]
    
    set Time 0.0
    
    set Passengers_Blocked 0
    
end

 ;-----------------------------------------------------   
 to setup_seat
     locals [i Num_Seat Num_Passengers]
    ;setup seats
    set Num_Seat Number_of_Seats
    set Num_Passengers Number_of_Passengers
    ask patches with [
                   pycor != max-pycor

                   and ((pxcor >= conerx1 + min-pxcor)
                   and (pxcor < conerx1 + l1 + min-pxcor) 
                   
                    and ((pycor >= -1 - conery1 and pycor <  -1 - conery1 + w1)
                      or (pycor <= conery1 and pycor > conery1 - w1) ))
                  
                  or (pxcor >= conerx2 + min-pxcor 
                   and pxcor < conerx2 + l2 + min-pxcor
                   
                   and ((pycor >= -1 - conery2 and pycor <  -1 - conery2 + w2)
                      or (pycor <= conery2 and pycor > conery2 - w2) ))
                  or (pxcor >= conerx3 + min-pxcor 
                   and pxcor < conerx3 + l3 + min-pxcor
                   
                   and ((pycor >= -1 - conery3 and pycor <  -1 - conery3 + w3)
                       or (pycor <= conery3 and pycor > conery3 - w3))) 
                      or (pxcor >= conerx4 + min-pxcor 
                   and pxcor < conerx4 + l4 + min-pxcor
                   
                   and ((pycor >= -1 - conery4 and pycor <  -1 - conery4 + w4)
                      or (pycor <= conery4 and pycor > conery4 - w4) ))      
                       
                     ] 
        [sprout 1 [
                  set breed seats 
                  set shape figure 
                  set color colour 
                  set busy? false
        ]]

    ;setup passengers
    ask patch-at (0 + min-pxcor) ( 0 + min-pycor) 
    [sprout Number_of_Passengers 
            [
            set breed passengers 
            set shape "pp"  
            set color red
            set heading 0 
            set state 0
            set luggage random-int-or-float 1
            ; allocate seats to passengers randomly 
            set i who-of one-of seats with [busy? = false]
            set busy?-of turtle i true
            set seat_x xcor-of turtle i 
            set seat_y ycor-of turtle i
            ]]
 end   
;----------------------------------------------------------------------


to go
    if (count passengers with [state != 4] = 0)[stop]
    enter_cabin_start
    enter_cabin_finish
    find_seat_start
    find_seat_finish
    load_luggage_start
    load_luggage_finish
    sit_down_start
    sit_down_finish
    plot_graphs
    do_stats
    ;wait 1  
    set Time Time + 1
end

to enter_cabin_start
    ask passengers with [state = 0 and busy? = false] with-min [who]
        [if (count turtles-at dx dy = 0) [fd 1 ]
        
        if (xcor = -23 and ycor = -3 and seat_y <= -1 ) [set next_event (Time + 5) 
                                          set heading 90 
                                          set busy? true]
        if (xcor = -23 and ycor = -3 and seat_y > -1 ) [fd 1]
        if (xcor = -23 and ycor = 2 and seat_y > -1 ) [set next_event (Time + 5) 
                                          set heading 90 
                                          set busy? true]]                                  
end

to enter_cabin_finish
    ask passengers with [state = 0 and busy? = true]
        [if (Time >= next_event) [set state 1 
                                  set busy? false]]
end        


to find_seat_start
    ask passengers with [state = 1 and busy? = false]
        [if (count turtles-at dx dy = 0 and xcor < seat_x) 
            [fd 1 
            set next_event (Time + 3) 
            set busy? true
            set b? false]
         if (count passengers-at dx dy > 0 and pre_x = xcor and xcor < seat_x and b? = false) 
                [set Passengers_Blocked_Aisle Passengers_Blocked_Aisle + 1
                 set pre_x xcor
                 set b? true
                ]         
        if (xcor = seat_x) [set state 2 
                            set busy? false]]
end

to find_seat_finish
    ask passengers with [state = 1 and busy? = true]
        [if (Time >= next_event) [set busy? false]]
end        

to load_luggage_start
    locals [temp_y]
    ask passengers with [state = 2 and busy? = false]
        ; find nearest locker with space (should also be same side of cabin)
        [ifelse (seat_y > 0) [set temp_y 4][set temp_y (0 - 4)]
        set nearest_locker min-one-of lockers with [load < capacity ] [distance myself]
        if (luggage + load-of nearest_locker >= capacity-of nearest_locker) [call_steward]
            ;time to load luggage depends on amount and distance to locker
        set next_event (Time + (10 * luggage) + distance nearest_locker) 
        set load-of nearest_locker ((load-of nearest_locker) + luggage)
             ; load luggage - only one passenger can load locker at a time
        set busy?-of nearest_locker true 
        set busy? true]
end

to load_luggage_finish
    ask passengers with [state = 2 and busy? = true]
        [if (Time >= next_event) 
            [set busy?-of nearest_locker false
            set color-of nearest_locker black
            set state 3 set busy? false]]
end

to call_steward
    show "Steward moving luggage"
end
                

to sit_down_start
    ask passengers with [state = 3 and busy? = false]
        [
        if ((seat_y > 2 and seat_y < max-pycor - 1) or (seat_y > -3 and seat_y < 0))[set heading 0]
        if ((seat_y < 2 and seat_y > -1) or (seat_y < -3 and seat_y > min-pycor))[set heading 180]
        ;other passengers blocking access ?
        set next_event (Time + 10)
            if (count passengers-at dx dy > 0 and ycor != seat_y) 
                [show "seated passenger moving" 
                set Passengers_Blocked_Seat Passengers_Blocked_Seat + 1 
                set next_event next_event + 20]
             set busy? true
        if (seat_y = ycor) [set color green set state 4]] 
end

to sit_down_finish
    ask passengers with [state = 3 and busy? = true]
        [if (Time >= next_event) 
            [fd 1 set busy? false]]
end

to do_stats
end

to plot_graphs
    set-current-plot "Passengers Seated"
    set-current-plot-pen "black"
    plotxy Time count passengers with [state = 4]
    set-current-plot "Passengers Blocked"
    set-current-plot-pen "black"
    plotxy Time Passengers_Blocked
end

to-report remove-index [index my-list]
    ifelse index = 0
        [report but-first my-list]
        [report fput (first my-list)
        (remove-index (index - 1)(but-first my-list))]
end        
@#$#@#$#@
GRAPHICS-WINDOW
201
28
974
302
23
7
16.234043
1
10
1
1
1
0
1
1
1
-23
23
-7
7

CC-WINDOW
5
534
983
629
Command Center
0

BUTTON
16
25
83
58
NIL
setup
NIL
1
T
OBSERVER
T
NIL

SLIDER
15
85
190
118
Seat_Occupancy
Seat_Occupancy
1
100
100
1
1
%

BUTTON
89
25
201
58
board_plane
go
T
1
T
OBSERVER
T
NIL

PLOT
186
303
496
519
Passengers Seated
Time
NIL
0.0
100.0
0.0
20.0
true
false
PENS
"black" 1.0 0 -16777216 true

PLOT
505
303
800
520
Passengers Blocked
Time
Frequency
0.0
50.0
0.0
30.0
true
false
PENS
"black" 1.0 0 -16777216 true

MONITOR
804
303
894
352
Time (secs)
Time
2
1

CHOOSER
15
138
178
183
Scenarios
Scenarios
"rear seats first" "rear door" "wrong-seat" "too much luggage"
1

TEXTBOX
377
10
581
28
Passengers Boarding an Aircraft

MONITOR
36
210
208
259
NIL
Passengers_Blocked_Seat
3
1

MONITOR
26
265
205
314
NIL
Passengers_Blocked_Aisle