Menu

#228 Monte-Carlo memory problem

lisp error
closed-works-for-me
clisp (524)
5
2005-05-23
2004-09-30
No

I have a program that I wrote a couple of years ago on
a Win95 PC. Today I tried it on my AMD, Win2K box and
to my suprise, where I used to form a list of 500 sublists
as part of a Monte-Carlo calculation, now the program
crashes sometimes with as few as 40 and always at
fewer than 200. It always works at 20 reps. It's just a
simple do-loop consing on new sublists. Each sublist is
only four floats.

Here's the error message.

*** - handle_fault error2 ! address = 0x1A53E504 not in
[0x1A3F0000,0x1A4B962C)
!
SIGSEGV cannot be cured. Fault address = 0x1A53E504.
Terminate batch job (Y/N)?

I tried downloading the latest winzip compilation 2.33.1.
No difference, it gives the same error. I tried putting an
a -m 400MB in the startup, but it didn't make any
difference either.

Brent Meeker
meekerdb@rain.org

Discussion

  • Jörg Höhle

    Jörg Höhle - 2004-09-30

    Logged In: YES
    user_id=377168

    Brent, even if the stripped-down program is "just a simple
    do-loop", could you attach it here? It would ease the job of
    people willing to help you.

     
  • Brent Meeker

    Brent Meeker - 2004-10-01

    Logged In: YES
    user_id=40970

    Here's the program. The problem comes when *reps is set
    larger than about 40. *reps is just the number of repitions in
    the do-loop of MC-insurance. I tried this program today on a
    Dell that uses an Intel cpu, rather than the AMD cpu in mine.
    It worked with not problem!?

    I attach the program, LifeInsr.lsp

     
  • Brent Meeker

    Brent Meeker - 2004-10-01

    Calculates life insurance needed to provide a given annuity

     
  • Jörg Höhle

    Jörg Höhle - 2004-10-01

    Logged In: YES
    user_id=377168

    Could not reproduce a crash
    (defpackage"INSURANCE" (:use "CL"))
    (in-package "INSURANCE")
    (defvar *str *terminal-io*)
    (setq *reps 200) and also 500
    Tested on
    1. MS-w2k computer x86 Family 6 Model 8 Stepping 6
    2. Suse-Linux 8.1(0?)
    vendor_id : GenuineIntel
    cpu family : 6
    model : 7
    model name : Pentium III (Katmai)
    stepping : 2
    3. Suse-Linux-9.1(0)?
    vendor_id : GenuineIntel
    cpu family : 6
    model : 8
    model name : Pentium III (Coppermine)
    stepping : 3
    Using CLISP-CVS from September

     
  • Sam Steingold

    Sam Steingold - 2005-01-13

    Logged In: YES
    user_id=5735

    "LifeInsr.lsp" loads "in-out/parsestr" which is not supplied.
    it uses "prompt-for-data" which is not defined.
    joerg, how did you manage to run this?!

     
  • Sam Steingold

    Sam Steingold - 2005-01-13

    Logged In: YES
    user_id=5735

    what values am I supposed to use as
    Age-M Age-F Annuity Interest Inflation

     
  • Jörg Höhle

    Jörg Höhle - 2005-01-14

    Logged In: YES
    user_id=377168

    I didn't load the whole thing, only needed definitions.
    The problems was about the value of *reps, and the only
    place that uses is is MC-insurance. Below its code you'll
    see a call
    ;(mc-insurance 1.4e-4 0.08 65 0.4e-4 0.09 54 30000 0.06
    0.04)
    so I bet (can't remember) that's what I called.

     
  • Sam Steingold

    Sam Steingold - 2005-01-14

    Logged In: YES
    user_id=5735

    WFM

    $ ./clisp -norc -i ../../bugs/LifeInsr.lsp -x '(setq *str t)
    (mc-insurance 1.4e-4 0.08 65 0.4e-4 0.09 54 30000 0.06 0.4)'
    i i i i i i i ooooo o ooooooo ooooo ooooo
    I I I I I I I 8 8 8 8 8 o 8 8
    I \ `+' / I 8 8 8 8 8 8
    \ `-+-' / 8 8 8 ooooo 8oooo
    `-__|__-' 8 8 8 8 8
    | 8 o 8 8 o 8 8
    ------+------ ooooo 8oooooo ooo8ooo ooooo 8

    Copyright (c) Bruno Haible, Michael Stoll 1992, 1993
    Copyright (c) Bruno Haible, Marcus Daniels 1994-1997
    Copyright (c) Bruno Haible, Pierpaolo Bernardi, Sam
    Steingold 1998
    Copyright (c) Bruno Haible, Sam Steingold 1999-2000
    Copyright (c) Sam Steingold, Bruno Haible 2001-2005

    ;; Loading file ..\..\bugs\LifeInsr.lsp ...
    ;; Loaded file ..\..\bugs\LifeInsr.lsp
    T
    500 499 498 497 496 495 494 493 492 491 490 489 488 487 486
    485 484 483 482 481
    480 479 478 477 476 475 474 473 472 471 470 469 468 467 466
    465 464 463 462 461
    460 459 458 457 456 455 454 453 452 451 450 449 448 447 446
    445 444 443 442 441
    440 439 438 437 436 435 434 433 432 431 430 429 428 427 426
    425 424 423 422 421
    420 419 418 417 416 415 414 413 412 411 410 409 408 407 406
    405 404 403 402 401
    400 399 398 397 396 395 394 393 392 391 390 389 388 387 386
    385 384 383 382 381
    380 379 378 377 376 375 374 373 372 371 370 369 368 367 366
    365 364 363 362 361
    360 359 358 357 356 355 354 353 352 351 350 349 348 347 346
    345 344 343 342 341
    340 339 338 337 336 335 334 333 332 331 330 329 328 327 326
    325 324 323 322 321
    320 319 318 317 316 315 314 313 312 311 310 309 308 307 306
    305 304 303 302 301
    300 299 298 297 296 295 294 293 292 291 290 289 288 287 286
    285 284 283 282 281
    280 279 278 277 276 275 274 273 272 271 270 269 268 267 266
    265 264 263 262 261
    260 259 258 257 256 255 254 253 252 251 250 249 248 247 246
    245 244 243 242 241
    240 239 238 237 236 235 234 233 232 231 230 229 228 227 226
    225 224 223 222 221
    220 219 218 217 216 215 214 213 212 211 210 209 208 207 206
    205 204 203 202 201
    200 199 198 197 196 195 194 193 192 191 190 189 188 187 186
    185 184 183 182 181
    180 179 178 177 176 175 174 173 172 171 170 169 168 167 166
    165 164 163 162 161
    160 159 158 157 156 155 154 153 152 151 150 149 148 147 146
    145 144 143 142 141
    140 139 138 137 136 135 134 133 132 131 130 129 128 127 126
    125 124 123 122 121
    120 119 118 117 116 115 114 113 112 111 110 109 108 107 106
    105 104 103 102 101
    100 99 98 97 96 95 94 93 92 91 90 89 88 87 86 85 84 83 82
    81 80 79 78 77 76 75
    74 73 72 71 70 69 68 67 66 65 64 63 62 61 60 59 58 57 56 55
    54 53 52 51 50 49 48
    47 46 45 44 43 42 41 40 39 38 37 36 35 34 33 32 31 30 29 28
    27 26 25 24 23 22 2
    1 20 19 18 17 16 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 0
    Probability Insurance-req'd Time-to-male-death
    Time-female-survives
    0.05 0.00 2.27 -10.99
    0.10 0.00 3.89 -5.78
    0.15 0.00 4.97 -2.25
    0.20 236309.56 6.24 0.36
    0.25 858300.10 7.54 2.59
    0.30 1688990.20 9.00 5.58
    0.35 2660674.50 10.19 7.38
    0.40 4061965.20 11.61 9.60
    0.45 6961065.00 13.02 11.35
    0.50 13518764.00 14.13 13.39
    0.55 20979900.00 15.58 15.15
    0.60 38370628.00 17.24 16.78
    0.65 68710910.00 18.34 18.58
    0.70 115357424.00 19.77 20.07
    0.75 181615950.00 21.24 21.63
    0.80 403696260.00 23.12 23.86
    0.85 930474240.00 24.54 25.88
    0.90 2048886300.00 27.01 30.06
    0.95 6153938400.00 28.79 33.30
    ((0.05 -9.633931E9 2.2697663 -10.994883) (0.1 -9.4729766E8
    3.8934598 -5.776016)
    (0.15 -8.313599E7 4.9702377 -2.245462)
    (0.19999999 236309.56 6.2420926 0.3634122) (0.25 858300.1
    7.5382805 2.5856357)
    (0.3 1688990.3 8.999175 5.579155) (0.35000002 2660674.5
    10.19139 7.3822575)
    (0.40000004 4061965.3 11.609802 9.603406)
    (0.45000005 6961065.0 13.022864 11.349564)
    (0.50000006 1.3518764E7 14.125059 13.388316)
    (0.5500001 2.09799E7 15.575476 15.146982)
    (0.6000001 3.8370628E7 17.23634 16.779467)
    (0.6500001 6.871091E7 18.337915 18.57911)
    (0.7000001 1.15357424E8 19.771173 20.070995)
    (0.7500001 1.8161595E8 21.244747 21.63048)
    (0.80000013 4.0369626E8 23.118887 23.861656)
    (0.85000014 9.3047424E8 24.53796 25.881956)
    (0.90000015 2.0488863E9 27.005436 30.062603)
    (0.95000017 6.1539384E9 28.791971 33.299118))
    Bye.

    I will close this bug unless more information is forthcoming

     
  • Jörg Höhle

    Jörg Höhle - 2005-05-23
    • status: open --> closed
     
  • Jörg Höhle

    Jörg Höhle - 2005-05-23
    • status: closed --> closed-works-for-me
     

Log in to post a comment.