Skip to content
GitLab
Explore
Sign in
Primary navigation
Search or go to…
Project
S
simplekit-ruby
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Deploy
Releases
Model registry
Monitor
Incidents
Analyze
Value stream analytics
Contributor analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Terms and privacy
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
Sanchez, Paul
simplekit-ruby
Commits
16779950
Commit
16779950
authored
9 years ago
by
pjs
Browse files
Options
Downloads
Patches
Plain Diff
code cleanup on AoModel
parent
4d452ee5
No related branches found
No related tags found
No related merge requests found
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
demos/AoModel.rb
+71
-71
71 additions, 71 deletions
demos/AoModel.rb
with
71 additions
and
71 deletions
demos/AoModel.rb
+
71
−
71
View file @
16779950
#!/usr/bin/env ruby
require
'rubygems'
if
RUBY_VERSION
=~
/^1\.8/
require
'
simplekit'
require
_relative
'../lib/
simplekit'
# Demonstration model of Operational Availability (Ao).
class
AoModel
include
SimpleKit
# model state
attr_reader
:num
A
vailable
J
eeps
,
:num
A
vailable
M
echanics
,
:maintenance
QL
ength
,
:breakdown
QL
ength
attr_reader
:num
_a
vailable
_j
eeps
,
:num
_a
vailable
_m
echanics
,
:maintenance
_q_l
ength
,
:breakdown
_q_l
ength
# model parameters
attr_reader
:max
J
eeps
,
:max
M
aintainers
,
:breakdown
R
ate
,
:maintenance
C
ycle
InD
ays
,
:repair
R
ate
,
:halt
T
ime
attr_reader
:max
_j
eeps
,
:max
_m
aintainers
,
:breakdown
_r
ate
,
:maintenance
_c
ycle
_in_d
ays
,
:repair
_r
ate
,
:halt
_t
ime
# Exponential random variate generator with specified rate.
def
exponential
(
rate
)
...
...
@@ -30,91 +29,90 @@ class AoModel
# the actual model implementation...
# Constructor initializes the model parameters.
def
initialize
(
max
J
eeps
,
max
M
aintainers
,
breakdown
R
ate
,
maintenance
C
ycle
InD
ays
,
mean
R
epair
T
ime
,
halt
T
ime
)
@max
J
eeps
=
max
J
eeps
@max
M
aintainers
=
max
M
aintainers
@breakdown
R
ate
=
breakdown
R
ate
@maintenance
C
ycle
InD
ays
=
maintenance
C
ycle
InD
ays
@repair
R
ate
=
1.0
/
mean
R
epair
T
ime
@halt
T
ime
=
halt
T
ime
def
initialize
(
max
_j
eeps
,
max
_m
aintainers
,
breakdown
_r
ate
,
maintenance
_c
ycle
_in_d
ays
,
mean
_r
epair
_t
ime
,
halt
_t
ime
)
@max
_j
eeps
=
max
_j
eeps
@max
_m
aintainers
=
max
_m
aintainers
@breakdown
_r
ate
=
breakdown
_r
ate
@maintenance
_c
ycle
_in_d
ays
=
maintenance
_c
ycle
_in_d
ays
@repair
_r
ate
=
1.0
/
mean
_r
epair
_t
ime
@halt
_t
ime
=
halt
_t
ime
end
# init method kickstarts a simplekit model. State variables are
# set to initial values, and some preliminary events get scheduled
def
init
@num
A
vailable
J
eeps
=
@max
J
eeps
@num
A
vailable
M
echanics
=
@max
M
aintainers
@maintenance
QL
ength
=
0
@breakdown
QL
ength
=
0
@num
A
vailable
J
eeps
.
times
do
|
i
|
breakdown
T
ime
=
exponential
(
@breakdown
R
ate
)
if
(
breakdown
T
ime
<=
@maintenance
C
ycle
InD
ays
)
schedule
(
:breakdown
,
breakdown
T
ime
)
@num
_a
vailable
_j
eeps
=
@max
_j
eeps
@num
_a
vailable
_m
echanics
=
@max
_m
aintainers
@maintenance
_q_l
ength
=
0
@breakdown
_q_l
ength
=
0
@num
_a
vailable
_j
eeps
.
times
do
breakdown
_t
ime
=
exponential
(
@breakdown
_r
ate
)
if
(
breakdown
_t
ime
<=
@maintenance
_c
ycle
_in_d
ays
)
schedule
(
:breakdown
,
breakdown
_t
ime
)
else
schedule
(
:maintenance
,
@maintenance
C
ycle
InD
ays
)
schedule
(
:maintenance
,
@maintenance
_c
ycle
_in_d
ays
)
end
end
schedule
(
:halt
,
@halt
T
ime
)
STDOUT
.
puts
"
DailyAoReport
"
schedule
(
:daily
R
eport
,
0.0
)
schedule
(
:halt
,
@halt
_t
ime
)
STDOUT
.
puts
'
DailyAoReport
'
schedule
(
:daily
_r
eport
,
0.0
)
end
# Event methods follow...
def
daily
R
eport
STDOUT
.
printf
"%d
\n
"
,
@num
A
vailable
J
eeps
if
model_time
<
@halt
T
ime
schedule
(
:daily
R
eport
,
8.0
)
def
daily
_r
eport
STDOUT
.
printf
"%d
\n
"
,
@num
_a
vailable
_j
eeps
if
model_time
<
@halt
_t
ime
schedule
(
:daily
_r
eport
,
8.0
)
end
def
breakdown
@breakdown
QL
ength
+=
1
@num
A
vailable
J
eeps
-=
1
schedule
(
:begin
B
reakdown
S
ervice
,
0.0
)
if
(
@num
A
vailable
M
echanics
>
0
)
@breakdown
_q_l
ength
+=
1
@num
_a
vailable
_j
eeps
-=
1
schedule
(
:begin
_b
reakdown
_s
ervice
,
0.0
)
if
@num
_a
vailable
_m
echanics
>
0
end
def
maintenance
@maintenance
QL
ength
+=
1
@num
A
vailable
J
eeps
-=
1
schedule
(
:begin
M
aintenance
S
ervice
,
0.0
)
if
(
@num
A
vailable
M
echanics
>
0
)
@maintenance
_q_l
ength
+=
1
@num
_a
vailable
_j
eeps
-=
1
schedule
(
:begin
_m
aintenance
_s
ervice
,
0.0
)
if
@num
_a
vailable
_m
echanics
>
0
end
def
begin
M
aintenance
S
ervice
@maintenance
QL
ength
-=
1
@num
A
vailable
M
echanics
-=
1
def
begin
_m
aintenance
_s
ervice
@maintenance
_q_l
ength
-=
1
@num
_a
vailable
_m
echanics
-=
1
if
(
rand
<=
0.95
)
schedule
(
:end
S
ervice
,
(
6.5
-
rand
)
/
8.0
)
schedule
(
:end
_s
ervice
,
(
6.5
-
rand
)
/
8.0
)
else
schedule
(
:end
S
ervice
,
exponential
(
@repair
R
ate
/
4.0
))
schedule
(
:end
_s
ervice
,
exponential
(
@repair
_r
ate
/
4.0
))
end
end
def
begin
B
reakdown
S
ervice
@breakdown
QL
ength
-=
1
@num
A
vailable
M
echanics
-=
1
def
begin
_b
reakdown
_s
ervice
@breakdown
_q_l
ength
-=
1
@num
_a
vailable
_m
echanics
-=
1
if
(
rand
<=
0.8
)
schedule
(
:end
S
ervice
,
exponential
(
@repair
R
ate
))
schedule
(
:end
_s
ervice
,
exponential
(
@repair
_r
ate
))
else
schedule
(
:end
S
ervice
,
exponential
(
@repair
R
ate
/
4.0
))
schedule
(
:end
_s
ervice
,
exponential
(
@repair
_r
ate
/
4.0
))
end
end
def
end
S
ervice
@num
A
vailable
M
echanics
+=
1
@num
A
vailable
J
eeps
+=
1
if
(
@maintenance
QL
ength
>
0
)
schedule
(
:begin
M
aintenance
S
ervice
,
0.0
)
def
end
_s
ervice
@num
_a
vailable
_m
echanics
+=
1
@num
_a
vailable
_j
eeps
+=
1
if
@maintenance
_q_l
ength
>
0
schedule
(
:begin
_m
aintenance
_s
ervice
,
0.0
)
else
schedule
(
:begin
B
reakdown
S
ervice
,
0.0
)
if
(
@breakdown
QL
ength
>
0
)
schedule
(
:begin
_b
reakdown
_s
ervice
,
0.0
)
if
@breakdown
_q_l
ength
>
0
end
breakdown
T
ime
=
exponential
(
@breakdown
R
ate
)
if
(
breakdown
T
ime
<=
@maintenance
C
ycle
InD
ays
)
schedule
(
:breakdown
,
breakdown
T
ime
)
breakdown
_t
ime
=
exponential
(
@breakdown
_r
ate
)
if
(
breakdown
_t
ime
<=
@maintenance
_c
ycle
_in_d
ays
)
schedule
(
:breakdown
,
breakdown
_t
ime
)
else
schedule
(
:maintenance
,
@maintenance
C
ycle
InD
ays
)
schedule
(
:maintenance
,
@maintenance
_c
ycle
_in_d
ays
)
end
end
end
# Run model based on command-line arguments...
...
...
@@ -126,14 +124,16 @@ if (ARGV.length != 6)
STDERR
.
puts
"
\t
Maintenance cycle length (int)"
STDERR
.
puts
"
\t
Mean repair time (double)"
STDERR
.
puts
"
\t
Number of days to run (int)"
STDERR
.
puts
"
\n
Example: ruby
#{
File
.
basename
(
$0
)
}
50 2 0.01 90 3.0 50
\n
"
prog_name
=
File
.
basename
(
$PROGRAM_NAME
)
STDERR
.
puts
"
\n
Example: ruby
#{
prog_name
}
50 2 0.01 90 3.0 50
\n
"
else
maxJeeps
=
ARGV
[
0
].
to_i
maxMaintainers
=
ARGV
[
1
].
to_i
breakdownRate
=
ARGV
[
2
].
to_f
maintenanceCycleInDays
=
ARGV
[
3
].
to_i
meanRepairTime
=
ARGV
[
4
].
to_f
haltTimeInDays
=
ARGV
[
5
].
to_i
AoModel
.
new
(
maxJeeps
,
maxMaintainers
,
breakdownRate
,
maintenanceCycleInDays
,
meanRepairTime
,
8.0
*
haltTimeInDays
).
run
max_jeeps
=
ARGV
[
0
].
to_i
max_maintainers
=
ARGV
[
1
].
to_i
breakdown_rate
=
ARGV
[
2
].
to_f
maintenance_cycle_in_days
=
ARGV
[
3
].
to_i
mean_repair_time
=
ARGV
[
4
].
to_f
halt_time_in_days
=
ARGV
[
5
].
to_i
AoModel
.
new
(
max_jeeps
,
max_maintainers
,
breakdown_rate
,
maintenance_cycle_in_days
,
mean_repair_time
,
8.0
*
halt_time_in_days
).
run
end
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Save comment
Cancel
Please
register
or
sign in
to comment