Welcome to the CHICKEN Scheme pasting service
Almonds pasted by C-Keen on Mon Aug 21 21:08:29 2017
(use data-structures srfi-1) (define height 900) (define width 900) (define escape-value 700) (define (->integer n) (inexact->exact (floor (exact->inexact n)))) (define (hsb->rgb h s b) (let* ((c (* b s)) (x (* c (- 1 (abs (sub1 (modulo (->integer (/ h 60)) 2)))))) (m (- b c)) (rgb* (cond ((and (<= 0 h) (< h 60)) (list c x 0)) ((and (<= 60 h) (< h 120)) (list x c 0)) ((and (<= 120 h) (< h 180)) (list 0 c x)) ((and (<= 180 h) (< h 240)) (list 0 x c)) ((and (<= 240 h) (< h 300)) (list x 0 c)) ((and (<= 300 h) (< h 360)) (list c 0 x))))) (map (lambda (c) (->integer (* 255 (+ m c)))) rgb*))) (define (color-mapping i) (hsb->rgb (- 359 (modulo i 360)) 1 (/ i (+ 8 i)))) (define colors (map color-mapping (iota (add1 escape-value)))) (define (mandelbrod/real real img) (define (x* x y) (+ (- (* x x) (* y y)) real)) (define (y* x y) (+ (* 2 x y) img)) (let iterate ((x 0) (y 0) (count 0)) (if (or (>= (+ (* x x) (* y y)) 4) (>= count escape-value)) count (iterate (x* x y) (y* x y) (add1 count))))) (define (infinity-trap/instant-draw acorner bcorner side #!key (formula mandelbrod/real)) (let ((h-gap (/ side height)) (w-gap (/ side width))) (fprintf (current-error-port) "Gap: ~a, ~a~%" h-gap w-gap) (let loop ((i 0)) (if (>= i (* height width)) 'done (begin (let* ((c (formula (+ acorner (* w-gap (remainder i width))) (+ bcorner (* h-gap (quotient i width))))) (colors (if (>= c escape-value) '(0 0 0) (list-ref colors (->integer c))))) (printf "~a ~a ~a~%" (car colors) (cadr colors) (caddr colors))) (loop (add1 i))))))) (print "P3") (printf "~a ~a~%" width height) (print 255) (infinity-trap/instant-draw -2 -1.25 2.5 formula: mandelbrod/real)
profiling pasted by C-Keen on Mon Aug 21 21:36:32 2017
; chicken-profile PROFILE.33943
reading `PROFILE.33943' ...
procedure calls seconds average percent
---------------------------------------------------------------
m#infinity-trap/instant-draw 1 77.579 77.579 100.000
m#mandelbrod/real 810000 66.209 0.000 85.344
m#->integer 616642 1.790 0.000 2.307
m#color-mapping 701 0.020 0.000 0.025
m#hsb->rgb 701 0.010 0.000 0.012
-:p profile pasted by sjamaan on Mon Aug 21 21:41:47 2017
reading `PROFILE.17642' ... procedure calls seconds average percent -------------------------------------------------------------------------- almond-5.scm:38: * 685 12.580 0.018 41.766 almond-5.scm:45: iterate 634 9.890 0.015 32.835 almond-5.scm:45: x* 424 5.200 0.012 17.264 almond-5.scm:45: y* 133 1.420 0.010 4.714 almond-5.scm:60: ##sys#print 44 0.520 0.011 1.726 almond-5.scm:60: ##sys#write-char-0 20 0.200 0.010 0.664 almond-5.scm:61: loop 13 0.150 0.011 0.498 almond-5.scm:55: formula 7 0.070 0.010 0.232 almond-5.scm:8: inexact->exact 4 0.040 0.010 0.132 almond-5.scm:59: ->integer 2 0.020 0.010 0.066 almond-5.scm:8: floor 1 0.020 0.020 0.066 almond-5.scm:60: ##sys#check-output-port 1 0.010 0.010 0.033
faster almonds pasted by sjamaan on Tue Aug 22 19:29:19 2017
(use chicken.string chicken.format srfi-1) (define height 900) (define width 900) (define escape-value 700) (define (hsb->rgb h s b) (let* ((c (* b s)) (x (* c (- 1 (abs (sub1 (modulo (floor (/ h 60)) 2)))))) (m (- b c)) (rgb* (cond ((and (<= 0 h) (< h 60)) (list c x 0)) ((and (<= 60 h) (< h 120)) (list x c 0)) ((and (<= 120 h) (< h 180)) (list 0 c x)) ((and (<= 180 h) (< h 240)) (list 0 x c)) ((and (<= 240 h) (< h 300)) (list x 0 c)) ((and (<= 300 h) (< h 360)) (list c 0 x))))) (map (lambda (c) (floor (* 255 (+ m c)))) rgb*))) (define (color-mapping i) (hsb->rgb (- 359 (modulo i 360)) 1 (/ i (+ 8 i)))) (define colors (map color-mapping (iota (add1 escape-value)))) (define (mandelbrod/real real img) (define (x* x y) (assume ((x float) (y float) (real float)) (+ (- (* x x) (* y y)) real))) (define (y* x y) (assume ((x float) (y float) (img float)) ;; NOTE: Using (* 2.0 x y) is _slow_ (+ (* (* 2.0 x) y) img))) (let iterate ((x (the float 0.0)) (y (the float 0.0)) (count 0)) (if (or (>= (+ (* x x) (* y y)) 4) (>= count escape-value)) count (iterate (x* x y) (y* x y) (add1 count))))) (define (infinity-trap/instant-draw acorner bcorner side #!key (formula mandelbrod/real)) (let ((h-gap (/ side height)) (w-gap (/ side width))) (fprintf (current-error-port) "Gap: ~a, ~a~%" h-gap w-gap) (let loop ((i 0)) (if (>= i (* height width)) 'done (begin (let* ((c (formula (+ acorner (* w-gap (remainder i width))) (+ bcorner (* h-gap (quotient i width))))) (colors (if (>= c escape-value) '(0 0 0) (list-ref colors (floor c))))) (printf "~a ~a ~a~%" (car colors) (cadr colors) (caddr colors))) (loop (add1 i))))))) (print "P3") (printf "~a ~a~%" width height) (print 255) (time (infinity-trap/instant-draw -2 -1.25 2.5 formula: mandelbrod/real))
csc c5.scm -o c5-patched -O5 -debug D8 > debug.log pasted by C-Keen on Wed Aug 23 22:19:31 2017
[final-analysis] (iteration 15) f_826 contained-in=f_815 captured-variables=() closure-size=0 contains=(f_790 f_680) f_824 contained-in=f_818 captured-variables=(k416) closure-size=1 tmp138140 home=f_644 val=(##core#inline "C_i_greater_or_equalp") refs=2 k420 home=f_419 inl val=(##core#lambda f_422 #f (r421) 1086) refs=1 c80 home=f_455 refs=1 r430 home=f_428 toplevel closure-size=0 captured-variables=() y121 home=f_943 val=(##core#variable a941) refs=2 r970 home=f_943 refs=1 r854 home=f_870 val=(##core#inline_allocate "C_a_i_cons" 3) refs=2 y128 home=f_943 val=(##core#variable a941) refs=1 k868 home=f_845 inl val=(##core#lambda f_870 #f (r869) 26) refs=1 r516 home=f_449 val=(##core#cond) refs=1 r857 home=f_870 val=(##core#inline "C_i_setslot") k429 home=f_428 inl val=(##core#lambda f_431 #f (r430) 1063) refs=1 a623 home=f_943 val=(##core#inline_allocate "C_a_i_flonum_times" 4) refs=1 a626 home=f_943 val=(##core#inline_allocate "C_a_i_flonum_times" 4) refs=1 a622 home=f_943 val=(##core#inline_allocate "C_a_i_flonum_difference" 4) refs=1 f_836 contained-in=f_832 captured-variables=(k833 t190191) closure-size=2 r635 home=va971 val=(##core#inline_allocate "C_s_a_i_times" 33) refs=1 f_832 contained-in=f_815 captured-variables=() closure-size=0 contains=(f_843 f_836) g98107 home=f_431 cpt val=(##core#variable color-mapping) refs=1 css=1 map-loop6381 home=f_455 box cpt set stl und val=(##core#lambda f_473 #t (k474 g7582) 49) refs=2 css=2 k496 home=f_473 inl val=(##core#lambda f_498 #f (r497) 26) refs=1 c47 home=f_601 cpt val=(##core#inline_allocate "C_s_a_i_times" 33) refs=8 r865 home=f_870 val=(##core#inline "C_slot") refs=1 y136 home=f_943 cpt refs=4 t472 home=f_455 val=(set! map-loop6381 #f) r869 home=f_845 refs=1 r679 home=f_826 refs=1 r756 home=f_732 val=(##core#inline "C_u_i_cadr") refs=1 tmp148152 home=f_826 val=(##core#inline_allocate "C_a_i_list" 6) refs=1 r752 home=f_738 val=(##core#inline "C_u_i_caddr") refs=1 a672 home=f_670 val=(##core#variable count137) refs=1 f_809 contained-in=f_806 captured-variables=(k416) closure-size=1 contains=(f_812) a673 home=f_644 val=(##core#variable count137) refs=1 r600 home=f_588 refs=1 a671 home=f_670 val=(##core#inline_allocate "C_s_a_i_plus" 29) refs=1 f_806 contained-in=f_803 captured-variables=(k416 out182185) closure-size=2 contains=(f_809) f_431 contained-in=f_428 captured-variables=(k416) closure-size=1 contains=(f_612 f_588) t606 home=f_615 val=(set! colors #f) r608 home=f_431 val=(##core#inline_allocate "C_a_i_cons" 3) refs=1 f_803 contained-in=f_800 captured-variables=(k416 out182185) closure-size=2 contains=(f_806) f_800 contained-in=f_794 captured-variables=(k416 out182185) closure-size=2 contains=(f_803) out182185 home=f_794 cpt val=(##core#variable ##sys#standard-output) refs=3 k610 home=f_431 inl val=(##core#lambda f_612 #f (r611) 724) refs=1 f_943 contained-in=f_617 captured-variables=(img117 real116 dispatch930 k618) closure-size=4 cst contains=(f_644 va971) h44 home=f_601 cpt val=(##core#variable a593) refs=13 k618 home=f_615 cpt refs=1 f_498 contained-in=f_473 captured-variables=(g6876 g7582 map-loop6381 k474) closure-size=4 k613 home=f_612 inl val=(##core#lambda f_615 #f (r614) 661) refs=1 k460 home=f_455 refs=1 g942 home=f_617 val=(set! dispatch930) r873 home=f_845 val=(##core#inline "C_slot") refs=1 r793 home=f_615 r799 home=f_794 dispatch930 home=f_617 box cpt set stl und val=(##core#lambda f_943 #t (a939 a940 a941 i931) 171) refs=3 css=3 a831 home=f_815 inl val=(##core#lambda f_832 #t (k833 . t190191) 25) refs=1 ##sys#implicit-exit-handler glo refs=1 css=1 f_698 contained-in=f_695 captured-variables=(w-gap155 h-gap154 formula153 k677 out156159) closure-size=5 contains=(f_701) a714 home=f_709 val=(##core#variable i166) refs=1 a466 home=f_459 val=(##core#inline_allocate "C_s_a_i_plus" 29) refs=1 r760 home=f_723 val=(##core#inline "C_u_i_car") refs=1 ##sys#print glo refs=9 css=9 a464 home=f_459 val=(##core#inline_allocate "C_s_a_i_times" 33) refs=1 a687 home=f_686 val=(##core#variable ##sys#standard-error) r769 home=f_720 refs=1 r497 home=f_473 refs=1 k621 home=f_943 val=(##core#variable a939) refs=1 css=1 f_449 contained-in=f_601 captured-variables=(a440 b46 c47 k437 h44) closure-size=5 contains=(f_455) img117 home=f_615 cpt refs=1 i931 home=f_617 refs=1 ##sys#display-times glo refs=1 css=1 r493 home=f_498 val=(##core#inline "C_slot") refs=1 a715 home=f_709 val=(##core#inline_allocate "C_a_i_fixnum_times" 5) refs=1 va971 home=f_943 cst captured-variables=(k632 img133) closure-size=2 contained-in=f_943 val=(##core#lambda va971 #t (r970) 12) refs=1 css=1 a775 home=f_709 val=(##core#inline_allocate "C_s_a_i_remainder" 5) refs=1 a776 home=f_709 val=(##core#variable i166) refs=1 a773 home=f_709 val=(##core#inline_allocate "C_s_a_i_times" 33) refs=1 a771 home=f_709 val=(##core#inline_allocate "C_s_a_i_plus" 29) refs=1 k589 home=f_431 cpt refs=1 g97105 home=f_431 box set stl cpt refs=2 f_584 contained-in=f_601 captured-variables=(k447) closure-size=1 k582 home=f_601 inl val=(##core#lambda f_584 #f (r583) 7) refs=1 f_695 contained-in=f_692 captured-variables=(w-gap155 h-gap154 formula153 k677 out156159) closure-size=5 contains=(f_698) a778 home=f_709 val=(##core#inline_allocate "C_s_a_i_plus" 29) refs=1 f_692 contained-in=f_686 captured-variables=(w-gap155 h-gap154 formula153 k677 out156159) closure-size=5 contains=(f_695) f_601 contained-in=f_588 captured-variables=(k589 a593) closure-size=2 contains=(f_584 f_449) r697 home=f_695 r691 home=f_686 k733 home=f_732 inl val=(##core#lambda f_735 #f (r734) 52) refs=1 r694 home=f_692 r737 home=f_735 k730 home=f_729 inl val=(##core#lambda f_732 #f (r731) 68) refs=1 k736 home=f_735 inl val=(##core#lambda f_738 #f (r737) 41) refs=1 f_686 contained-in=f_683 captured-variables=(h-gap154 formula153 k677) closure-size=3 contains=(f_692) f_588 contained-in=f_431 captured-variables=() closure-size=0 contains=(f_601) k739 home=f_738 inl val=(##core#lambda f_741 #f (r740) 25) refs=1 r731 home=f_729 r734 home=f_732 k702 home=f_701 inl val=(##core#lambda f_704 #f (r703) 203) refs=1 r549887 home=f_449 und refs=1 g6777 home=f_455 cpt val=(##core#variable g6876) refs=1 color-mapping inl set glo val=(##core#lambda f_588 #t (k589 i88) 310) refs=1 f_683 contained-in=f_680 captured-variables=(formula153 k677) closure-size=2 contains=(f_686) f_680 contained-in=f_826 captured-variables=(k677) closure-size=1 contains=(f_683) r665 home=f_659 refs=1 count137 home=f_943 cpt refs=3 f_612 contained-in=f_431 captured-variables=(k416 g97105 g98107 g96106) closure-size=4 contains=(f_845 f_615) t173 home=f_723 val=(##core#inline "C_i_check_port_2") f_617 contained-in=f_615 captured-variables=() closure-size=0 contains=(f_943) g7582 home=f_455 cpt refs=3 f_615 contained-in=f_612 captured-variables=(k416) closure-size=1 contains=(f_794 f_617) k742 home=f_741 inl val=(##core#lambda f_744 #f (r743) 14) refs=1 r669 home=f_666 refs=1 a444 home=f_449 val=(##core#inline_allocate "C_s_a_i_minus" 29) refs=1 a443 home=f_449 val=(##core#inline_allocate "C_s_a_i_abs" 7) refs=1 a445 home=f_449 val=(##core#inline_allocate "C_s_a_i_modulo" 5) refs=1 a440 home=f_601 cpt val=(##core#variable c47) refs=1 a441 home=f_449 val=(##core#inline_allocate "C_s_a_i_minus" 29) refs=1 k710 home=f_704 cpt refs=2 css=1 t844 home=f_612 val=(set! map-loop92109 #f) k718 home=f_709 inl val=(##core#lambda f_720 #f (r719) 137) refs=1 ##sys#standard-output glo refs=8 ##sys#write-char-0 glo refs=6 css=6 a650 home=f_644 val=(##core#inline_allocate "C_s_a_i_times" 33) refs=1 a651 home=f_644 val=(##core#variable x135) refs=1 a652 home=f_644 val=(##core#variable x135) refs=1 a653 home=f_644 val=(##core#inline_allocate "C_s_a_i_times" 33) refs=1 img133 home=f_943 cpt val=(##core#variable img117) refs=1 a654 home=f_644 val=(##core#variable y136) refs=1 a655 home=f_644 val=(##core#variable y136) refs=1 f_415 contains=(f_419) f_419 contained-in=f_415 captured-variables=(k416) closure-size=1 contains=(f_422) t587 home=f_431 val=(set! color-mapping #f) k721 home=f_720 inl cpt val=(##core#lambda f_723 #f (r722) 109) refs=2 css=2 r583 home=f_601 refs=1 k727 home=f_723 inl val=(##core#lambda f_729 #f (r728) 79) refs=1 r448 home=f_601 refs=1 a724 home=f_723 val=(##core#variable ##sys#standard-output) a939 home=f_617 refs=2 f_732 contained-in=f_729 captured-variables=(i166 loop165 k710 out169172 colors168) closure-size=5 contains=(f_735) f_815 contained-in=f_812 captured-variables=(k416) closure-size=1 contains=(f_832 f_826 f_818) f_735 contained-in=f_732 captured-variables=(i166 loop165 k710 out169172 colors168) closure-size=5 contains=(f_738) a663 home=f_666 cpt val=(##core#variable r665) refs=1 f_818 contained-in=f_815 captured-variables=(k416) closure-size=1 contains=(f_824) f_738 contained-in=f_735 captured-variables=(i166 loop165 k710 out169172 colors168) closure-size=5 contains=(f_741) f_422 contained-in=f_419 captured-variables=(k416) closure-size=1 contains=(f_425) f_812 contained-in=f_809 captured-variables=(k416) closure-size=1 contains=(f_815) f_425 contained-in=f_422 captured-variables=(k416) closure-size=1 contains=(f_428) loop165 home=f_704 box cpt set stl und val=(##core#lambda f_709 #t (k710 i166) 191) refs=2 css=2 f_428 contained-in=f_425 captured-variables=(k416) closure-size=1 contains=(f_431) w-gap155 home=f_686 cpt val=(##core#variable r685) refs=2 ##sys#standard-error glo refs=4 r682 home=f_680 refs=1 r685 home=f_683 refs=1 colors168 home=f_723 cpt val=(##core#variable r722) refs=3 k768 home=f_720 inl val=(##core#lambda f_770 #f (r769) 8) refs=1 mandelbrod/real inl set glo val=(##core#lambda f_617 #t (k618 real116 img117) 184) refs=2 m49 home=f_449 cpt val=(##core#inline_allocate "C_s_a_i_minus" 29) refs=1 r703 home=f_701 t190191 home=f_815 cpt rest-parameter=list refs=1 r700 home=f_698 f_741 contained-in=f_738 captured-variables=(i166 loop165 k710 out169172) closure-size=4 contains=(f_744) #:formula glo refs=1 f_744 contained-in=f_741 captured-variables=(i166 loop165 k710) closure-size=3 h-gap154 home=f_683 cpt val=(##core#variable r682) refs=2 b46 home=f_601 cpt val=(##core#variable r600) refs=2 i166 home=f_704 cpt refs=4 f_459 contained-in=f_455 cst captured-variables=(m49) closure-size=1 i88 home=f_431 refs=3 f_455 contained-in=f_449 cst captured-variables=(m49 k437) closure-size=2 contains=(f_473 f_459) srfi-1#iota glo refs=1 css=1 a941 home=f_617 refs=2 a940 home=f_617 refs=2 k677 home=f_826 cpt val=(##core#variable k827) refs=1 k678 home=f_826 inl val=(##core#lambda f_680 #f (r679) 303) refs=1 t186 home=f_794 val=(##core#inline "C_i_check_port_2") a783 home=f_709 val=(##core#variable i166) refs=1 a780 home=f_709 val=(##core#inline_allocate "C_s_a_i_times" 33) refs=1 a782 home=f_709 val=(##core#inline_allocate "C_s_a_i_quotient" 5) refs=1 k599 home=f_588 inl val=(##core#lambda f_601 #f (r600) 282) refs=1 a789 home=f_826 inl val=(##core#lambda f_790 #t (k791) 5) refs=1 f_659 contained-in=f_644 cst captured-variables=(count137 k645 dispatch930 x135 y136) closure-size=5 contains=(f_666) f_473 contained-in=f_455 captured-variables=(g6876 map-loop6381 g6978 g6777) closure-size=4 cst contains=(f_498) out169172 home=f_723 cpt val=(##core#variable ##sys#standard-output) refs=5 k681 home=f_680 inl val=(##core#lambda f_683 #f (r682) 291) refs=1 k684 home=f_683 inl val=(##core#lambda f_686 #f (r685) 279) refs=1 a795 home=f_794 val=(##core#variable ##sys#standard-output) f_723 contained-in=f_720 cst captured-variables=(i166 loop165 k710) closure-size=3 contains=(f_729) f_720 contained-in=f_709 captured-variables=(i166 loop165 k710) closure-size=3 contains=(f_770 f_723) a596 home=f_588 val=(##core#variable i88) refs=1 a595 home=f_588 val=(##core#inline_allocate "C_s_a_i_modulo" 5) refs=1 f_843 contained-in=f_832 captured-variables=(k834) closure-size=1 f_729 contained-in=f_723 captured-variables=(i166 loop165 k710 out169172 colors168) closure-size=5 contains=(f_732) formula153 home=f_680 cpt val=(##core#variable r679) refs=1 css=1 a593 home=f_588 cpt val=(##core#inline_allocate "C_s_a_i_minus" 29) refs=1 f_790 contained-in=f_826 captured-variables=() closure-size=0 sim f_794 contained-in=f_615 captured-variables=(k416) closure-size=1 contains=(f_800) r805 home=f_803 r543 home=f_449 val=(##core#cond) refs=1 ##sys#/-2 glo refs=4 css=4 k447 home=f_601 inl cpt val=(##core#lambda f_449 #f (r448) 248) refs=1 r808 home=f_806 r802 home=f_800 k696 home=f_695 inl val=(##core#lambda f_698 #f (r697) 227) refs=1 k693 home=f_692 inl val=(##core#lambda f_695 #f (r694) 239) refs=1 r485 home=f_498 val=(##core#inline "C_i_setslot") k690 home=f_686 inl val=(##core#lambda f_692 #f (r691) 252) refs=1 r482 home=f_498 val=(##core#inline_allocate "C_a_i_cons" 3) refs=2 g96106 home=f_431 cpt val=(##core#variable g97105) refs=1 k632 home=f_943 cpt val=(##core#variable a939) refs=1 css=1 ##sys#start-timer glo refs=1 css=1 t616 home=f_615 val=(set! mandelbrod/real #f) f_870 contained-in=f_845 captured-variables=(g97105 g104110 map-loop92109 k846) closure-size=4 a605 home=f_588 val=(##core#variable i88) refs=1 r817 home=f_815 a603 home=f_588 val=(##core#inline_allocate "C_s_a_i_plus" 29) refs=1 a602 home=f_588 val=(##core#variable i88) refs=1 x48 home=f_449 val=(##core#inline_allocate "C_s_a_i_times" 33) refs=6 r811 home=f_809 k417 home=f_415 inl val=(##core#lambda f_419 #f (r418) 1092) refs=1 k416 cpt refs=1 r552 home=f_449 val=(##core#cond) refs=1 r814 home=f_812 k699 home=f_698 inl val=(##core#lambda f_701 #f (r700) 214) refs=1 f_845 contained-in=f_612 captured-variables=(g97105 map-loop92109 g98107 g96106) closure-size=4 cst contains=(f_870) f_670 contained-in=f_666 captured-variables=(count137 k645 a663) closure-size=3 real116 home=f_615 cpt refs=1 k437 home=f_601 cpt val=(##core#variable k589) refs=1 r740 home=f_738 r743 home=f_741 k798 home=f_794 inl val=(##core#lambda f_800 #f (r799) 434) refs=1 colors set glo val=(##core#variable r614) refs=1 k792 home=f_615 inl val=(##core#lambda f_794 #f (r793) 459) refs=1 k791 home=f_826 refs=1 css=1 a825 home=f_815 inl val=(##core#lambda f_826 #t (k827) 330) refs=1 f_701 contained-in=f_698 captured-variables=(w-gap155 h-gap154 formula153 k677 out156159) closure-size=5 contains=(f_704) t160 home=f_686 val=(##core#inline "C_i_check_port_2") k645 home=f_943 cpt refs=2 css=1 f_666 contained-in=f_659 captured-variables=(count137 k645 dispatch930 x135 y136) closure-size=5 contains=(f_670) map-loop92109 home=f_612 box cpt set und val=(##core#lambda f_845 #t (k846 g104110) 49) refs=2 css=2 f_709 contained-in=f_704 captured-variables=(loop165 w-gap155 h-gap154 formula153) closure-size=4 cst contains=(f_720) f_704 contained-in=f_701 captured-variables=(w-gap155 h-gap154 formula153 k677) closure-size=4 contains=(f_709) iterate134 set stl glo val=(##core#lambda f_644 #t (k645 x135 y136 count137) 96) refs=2 css=2 g104110 home=f_612 cpt refs=3 k833 home=f_815 cpt refs=1 g6978 home=f_455 cpt val=(##core#lambda f_459 #t (k460 c80) 15) refs=1 css=1 f_770 contained-in=f_720 captured-variables=(k721) closure-size=1 k834 home=f_832 inl cpt val=(##core#lambda f_836 #f (r835) 7) refs=1 g6876 home=f_455 box set stl cpt refs=2 r525 home=f_449 val=(##core#cond) refs=1 r823 home=f_818 refs=1 css=1 k801 home=f_800 inl val=(##core#lambda f_803 #f (r802) 423) refs=1 r719 home=f_709 refs=2 real126 home=f_943 val=(##core#variable real116) refs=1 k807 home=f_806 inl val=(##core#lambda f_809 #f (r808) 400) refs=1 t643 home=f_943 val=(set! iterate134 #f) k804 home=f_803 inl val=(##core#lambda f_806 #f (r805) 411) refs=1 a649 home=f_644 val=(##core#inline_allocate "C_s_a_i_plus" 29) refs=1 r647888 home=f_659 val=(##core#variable count137) refs=1 x120 home=f_943 val=(##core#variable a940) refs=2 x127 home=f_943 val=(##core#variable a940) refs=1 k657 home=f_644 inl val=(##core#lambda f_659 #f (r658) 55) refs=2 css=2 t708 home=f_704 val=(set! loop165 #f) r418 home=f_415 k841 home=f_832 inl val=(##core#lambda f_843 #f (r842) 7) refs=1 k846 home=f_612 cpt refs=2 css=1 r534 home=f_449 val=(##core#cond) refs=1 r835 home=f_832 k810 home=f_809 inl val=(##core#lambda f_812 #f (r811) 391) refs=1 r728 home=f_723 r611 home=f_431 refs=1 k813 home=f_812 inl val=(##core#lambda f_815 #f (r814) 383) refs=1 r614 home=f_612 refs=1 k816 home=f_815 inl val=(##core#lambda f_818 #f (r817) 13) refs=1 k453 home=f_449 inl val=(##core#lambda f_455 #f (r454) 87) refs=7 css=7 r722 home=f_720 refs=1 r454 home=f_449 refs=1 out156159 home=f_686 cpt val=(##core#variable ##sys#standard-error) refs=4 x135 home=f_943 cpt refs=4 r457 home=f_455 val=(##core#inline_allocate "C_a_i_cons" 3) refs=1 k664 home=f_659 inl val=(##core#lambda f_666 #f (r665) 32) refs=1 r421 home=f_419 k668 home=f_666 inl val=(##core#lambda f_670 #f (r669) 17) refs=1 r424 home=f_422 r427 home=f_425 k474 home=f_455 cpt refs=2 css=1 t859 home=f_870 val=(set! g97105 #f) r501 home=f_473 val=(##core#inline "C_slot") refs=1 r507 home=f_449 val=(##core#cond) refs=1 r842 home=f_832 refs=1 f_644 contained-in=f_943 captured-variables=(dispatch930) closure-size=1 cst contains=(f_659) a749 home=f_744 val=(##core#variable i166) refs=1 a748 home=f_744 val=(##core#inline_allocate "C_s_a_i_plus" 29) refs=1 t487 home=f_498 val=(set! g6876 #f) chicken.load#load-extension glo refs=1 css=1 k822 home=f_818 inl val=(##core#lambda f_824 #f (r823) 5) refs=1 r658 home=f_644 refs=1 ##sys#stop-timer glo refs=1 css=1 k827 home=f_815 refs=1 a878 home=f_431 val=(##core#inline_allocate "C_a_i_fixnum_plus" 5) refs=1 k426 home=f_425 inl val=(##core#lambda f_428 #f (r427) 1074) refs=1 k423 home=f_422 inl val=(##core#lambda f_425 #f (r424) 1080) refs=1
D9 pasted by C-Keen on Wed Aug 23 22:21:09 2017
[closure-converted] <##core#closure (1) <##core#lambda (toplevel #t (c1010 k416) 1098) ><##core#variable (a595)>> > > > > >> <##core#variable (a443)>> > <##core#variable (a441)>> > <##core#ref (3) <##core#variable (c1034)>>> >> > > <##core#variable (c80)>> <##core#variable (a466)>> <##core#call (#t ("c5.scm:24" "floor")) <##core#variable (floor)> <##core#variable (k460)> <##core#variable (a464)>>>>> <##core#ref (1) <##core#variable (c1042)>>> > <##core#closure (5) <##core#lambda (f_473 #t (c1052 k474 g7582) 49) > >>> <##core#variable (r482)>>> <##core#variable (r482)>> > > <##core#call (#t #f f_473 #t) <##core#unbox () <##core#ref (3) <##core#variable (c1054)>>> <##core#ref (4) <##core#variable (c1054)>> <##core#variable (r493)>>>>>>> <##core#ref (1) <##core#variable (c1052)>> <##core#variable (g7582)> <##core#ref (2) <##core#variable (c1052)>> <##core#variable (k474)>> > <##core#call (#t ("c5.scm:24" "g69") f_459 #t) <##core#ref (3) <##core#variable (c1052)>> <##core#variable (k496)> <##core#variable (r501)>>>> <##core#call (#t #f) <##core#variable (k474)> <##core#inline ("C_slot") <##core#ref (4) <##core#variable (c1052)>>>>>> <##core#variable (g6876)> <##core#variable (map-loop6381)> <##core#variable (g6978)> <##core#variable (g6777)>>> <##core#call (#t #f f_473 #t) <##core#unbox () <##core#variable (map-loop6381)>> <##core#ref (2) <##core#variable (c1042)>> <##core#variable (r454)>>>>>>>>>>> <##core#variable (m49)> <##core#ref (4) <##core#variable (c1034)>>><##core#ref (5) <##core#variable (c1034)>>> <##core#inline ("C_i_lessp") <##core#ref (5) <##core#variable (c1034)>> >><##core#call (#t #f f_455 #t) <##core#variable (k453)> <##core#inline_allocate ("C_a_i_list3" 9) <##core#ref (3) <##core#variable (c1034)>> <##core#variable (x48)> >><##core#ref (5) <##core#variable (c1034)>>> <##core#inline ("C_i_lessp") <##core#ref (5) <##core#variable (c1034)>> >><##core#call (#t #f f_455 #t) <##core#variable (k453)> <##core#inline_allocate ("C_a_i_list3" 9) <##core#variable (x48)> <##core#ref (3) <##core#variable (c1034)>> >><##core#ref (5) <##core#variable (c1034)>>> <##core#inline ("C_i_lessp") <##core#ref (5) <##core#variable (c1034)>> >><##core#call (#t #f f_455 #t) <##core#variable (k453)> <##core#inline_allocate ("C_a_i_list3" 9) <##core#ref (3) <##core#variable (c1034)>> <##core#variable (x48)>>><##core#ref (5) <##core#variable (c1034)>>> <##core#inline ("C_i_lessp") <##core#ref (5) <##core#variable (c1034)>> >><##core#call (#t #f f_455 #t) <##core#variable (k453)> <##core#inline_allocate ("C_a_i_list3" 9) <##core#variable (x48)> <##core#ref (3) <##core#variable (c1034)>>>><##core#ref (5) <##core#variable (c1034)>>> <##core#inline ("C_i_lessp") <##core#ref (5) <##core#variable (c1034)>> >><##core#call (#t #f f_455 #t) <##core#variable (k453)> <##core#inline_allocate ("C_a_i_list3" 9) <##core#variable (x48)> <##core#ref (3) <##core#variable (c1034)>>>><##core#ref (5) <##core#variable (c1034)>>> <##core#inline ("C_i_lessp") <##core#ref (5) <##core#variable (c1034)>> >><##core#call (#t #f f_455 #t) <##core#variable (k453)> <##core#inline_allocate ("C_a_i_list3" 9) <##core#ref (3) <##core#variable (c1034)>> <##core#variable (x48)>>><##core#call (#t #f f_455 #t) <##core#variable (k453)> <##core#variable (r549887)>>>>>>>>>>>>>>>>>>>>>>> <##core#variable (a440)> <##core#variable (b46)> <##core#variable (c47)> <##core#variable (k437)> <##core#variable (h44)>> <##core#ref (1) <##core#variable (c1068)>> <##core#variable (r583)>>> <##core#variable (k447)>> <##core#call (#f "##sys#/-2") <##core#variable (##sys#/-2)> <##core#variable (k582)> <##core#variable (h44)> >>>>>>>>> <##core#variable (k589)> <##core#variable (a593)>><##core#variable (a605)>> <##core#call (#f "##sys#/-2") <##core#variable (##sys#/-2)> <##core#variable (k599)> <##core#variable (a602)> <##core#variable (a603)>>>>>>>>>>>> >> > > > <##core#closure (5) <##core#lambda (f_943 #t (c1085 a939 a940 a941 i931) 171) <##core#switch (2) <##core#variable (i931)> > > <##core#call (#t #f) <##core#ref (1) <##core#variable (c1091)>> <##core#inline_allocate ("C_s_a_i_plus" 29) <##core#variable (r635)> <##core#ref (2) <##core#variable (c1091)>>>>>> <##core#variable (k632)> <##core#variable (img133)>> <##core#call (#t #f va971 #t) <##core#variable (va971)> <##core#inline_allocate ("C_s_a_i_times" 33) <##core#variable (x127)> <##core#variable (y128)>>>>>>>>> <##core#variable (x120)>> <##core#variable (y121)>> <##core#variable (a626)>> <##core#call (#t #f) <##core#variable (k621)> <##core#inline_allocate ("C_a_i_flonum_plus" 4) <##core#variable (a622)> <##core#variable (real126)>>>>>>>>>> <##core#variable (a652)>> <##core#variable (a655)>> <##core#variable (a653)>> >> <##core#call (#t #f) <##core#ref (2) <##core#variable (c1111)>> <##core#variable (r647888)>>> > > <##core#call (#f ("c5.scm:49" "iterate") f_644 #t) <##core#variable (iterate134)> <##core#ref (2) <##core#variable (c1117)>> <##core#ref (3) <##core#variable (c1117)>> <##core#variable (r669)> <##core#variable (a671)>>>>> <##core#ref (1) <##core#variable (c1114)>> <##core#ref (2) <##core#variable (c1114)>> <##core#variable (a663)>> <##core#call (#f ("c5.scm:49" "y*") f_943 #t) <##core#unbox () <##core#ref (3) <##core#variable (c1114)>>> <##core#variable (k668)> <##core#ref (4) <##core#variable (c1114)>> <##core#ref (5) <##core#variable (c1114)>>>>>> <##core#ref (1) <##core#variable (c1111)>> <##core#ref (2) <##core#variable (c1111)>> <##core#ref (3) <##core#variable (c1111)>> <##core#ref (4) <##core#variable (c1111)>> <##core#ref (5) <##core#variable (c1111)>>> <##core#call (#f ("c5.scm:49" "x*") f_943 #t) <##core#unbox () <##core#ref (3) <##core#variable (c1111)>>> <##core#variable (k664)> <##core#ref (4) <##core#variable (c1111)>> <##core#ref (5) <##core#variable (c1111)>>>>>> <##core#variable (count137)> <##core#variable (k645)> <##core#ref (1) <##core#variable (c1101)>> <##core#variable (x135)> <##core#variable (y136)>><##core#call (#t #f f_659 #t) <##core#variable (k657)> <##core#variable (tmp138140)>> <##core#call (#t #f f_659 #t) <##core#variable (k657)> <##core#inline ("C_i_greater_or_equalp") <##core#variable (a673)> >>>>>>>>>>>>>> <##core#ref (3) <##core#variable (c1085)>>>> <##core#call (#t #f f_644 #t) <##core#variable (iterate134)> <##core#ref (4) <##core#variable (c1085)>>>>>> <##core#variable (img117)> <##core#variable (real116)> <##core#variable (dispatch930)> <##core#variable (k618)>>> <##core#call (#t #f f_943 #t) <##core#unbox () <##core#variable (dispatch930)>>>>>>>>> ><##core#ref (1) <##core#variable (c1141)>>>> <##core#ref (1) <##core#variable (c1139)>>> <##core#call (#f "##sys#implicit-exit-handler") <##core#variable (##sys#implicit-exit-handler)> <##core#variable (k822)>>>> <##core#ref (1) <##core#variable (c1137)>>> <##core#variable (mandelbrod/real)>> >> <##core#closure (5) <##core#lambda (f_709 #t (c1170 k710 i166) 191) ><##core#variable (a715)>> <##core#call (#t #f) <##core#variable (k710)> > >> > <##core#call (#f ("c5.scm:65" "loop") f_709 #t) <##core#unbox () <##core#ref (2) <##core#variable (c1192)>>> <##core#ref (3) <##core#variable (c1192)>> <##core#variable (a748)>>>>> <##core#ref (1) <##core#variable (c1190)>> <##core#ref (2) <##core#variable (c1190)>> <##core#ref (3) <##core#variable (c1190)>>> <##core#call (#f ("c5.scm:64" "##sys#write-char-0")) <##core#variable (##sys#write-char-0)> <##core#variable (k742)><##core#ref (4) <##core#variable (c1190)>>>>> <##core#ref (1) <##core#variable (c1188)>> <##core#ref (2) <##core#variable (c1188)>> <##core#ref (3) <##core#variable (c1188)>> <##core#ref (4) <##core#variable (c1188)>>>>> <##core#call (#t ("c5.scm:64" "##sys#print")) <##core#variable (##sys#print)> <##core#variable (k739)> <##core#variable (r752)> <##core#ref (4) <##core#variable (c1188)>>>>>> <##core#ref (1) <##core#variable (c1186)>> <##core#ref (2) <##core#variable (c1186)>> <##core#ref (3) <##core#variable (c1186)>> <##core#ref (4) <##core#variable (c1186)>> <##core#ref (5) <##core#variable (c1186)>>> <##core#call (#f ("c5.scm:64" "##sys#write-char-0")) <##core#variable (##sys#write-char-0)> <##core#variable (k736)><##core#ref (4) <##core#variable (c1186)>>>>> <##core#ref (1) <##core#variable (c1184)>> <##core#ref (2) <##core#variable (c1184)>> <##core#ref (3) <##core#variable (c1184)>> <##core#ref (4) <##core#variable (c1184)>> <##core#ref (5) <##core#variable (c1184)>>>>> <##core#call (#t ("c5.scm:64" "##sys#print")) <##core#variable (##sys#print)> <##core#variable (k733)> <##core#variable (r756)> <##core#ref (4) <##core#variable (c1184)>>>>>> <##core#ref (1) <##core#variable (c1182)>> <##core#ref (2) <##core#variable (c1182)>> <##core#ref (3) <##core#variable (c1182)>> <##core#ref (4) <##core#variable (c1182)>> <##core#ref (5) <##core#variable (c1182)>>> <##core#call (#f ("c5.scm:64" "##sys#write-char-0")) <##core#variable (##sys#write-char-0)> <##core#variable (k730)><##core#ref (4) <##core#variable (c1182)>>>>> <##core#ref (1) <##core#variable (c1176)>> <##core#ref (2) <##core#variable (c1176)>> <##core#ref (3) <##core#variable (c1176)>> <##core#variable (out169172)> <##core#variable (colors168)>>> <##core#call (#t ("c5.scm:64" "##sys#print")) <##core#variable (##sys#print)> <##core#variable (k727)> <##core#variable (r760)> <##core#variable (##sys#standard-output)>>>>>>>>> <##core#ref (1) <##core#variable (c1174)>> <##core#ref (2) <##core#variable (c1174)>> <##core#ref (3) <##core#variable (c1174)>>> > <##core#call (#t #f f_723 #t) <##core#variable (k721)>>> <##core#inline ("C_u_i_list_ref") <##core#variable (colors)> <##core#variable (r769)>>>> <##core#variable (k721)>> <##core#call (#t ("c5.scm:63" "floor")) <##core#variable (floor)> <##core#variable (k768)> <##core#variable (r719)>>>>>> <##core#variable (i166)> <##core#ref (1) <##core#variable (c1170)>> <##core#variable (k710)>> >> <##core#variable (a775)>> <##core#variable (a773)>> >> <##core#variable (a782)>> <##core#variable (a780)>> <##core#call (#f ("c5.scm:59" "formula")) <##core#ref (4) <##core#variable (c1170)>> <##core#variable (k718)> <##core#variable (a771)> <##core#variable (a778)>>>>>>>>>>>>>>> <##core#variable (loop165)> <##core#ref (1) <##core#variable (c1167)>> <##core#ref (2) <##core#variable (c1167)>> <##core#ref (3) <##core#variable (c1167)>>>> <##core#call (#t #f f_709 #t) <##core#unbox () <##core#variable (loop165)>> <##core#ref (4) <##core#variable (c1167)>> >>>>> <##core#ref (1) <##core#variable (c1165)>> <##core#ref (2) <##core#variable (c1165)>> <##core#ref (3) <##core#variable (c1165)>> <##core#ref (4) <##core#variable (c1165)>>> <##core#call (#f ("c5.scm:54" "##sys#write-char-0")) <##core#variable (##sys#write-char-0)> <##core#variable (k702)><##core#ref (5) <##core#variable (c1165)>>>>> <##core#ref (1) <##core#variable (c1163)>> <##core#ref (2) <##core#variable (c1163)>> <##core#ref (3) <##core#variable (c1163)>> <##core#ref (4) <##core#variable (c1163)>> <##core#ref (5) <##core#variable (c1163)>>> <##core#call (#t ("c5.scm:54" "##sys#print")) <##core#variable (##sys#print)> <##core#variable (k699)> <##core#ref (1) <##core#variable (c1163)>><##core#ref (5) <##core#variable (c1163)>>>>> <##core#ref (1) <##core#variable (c1161)>> <##core#ref (2) <##core#variable (c1161)>> <##core#ref (3) <##core#variable (c1161)>> <##core#ref (4) <##core#variable (c1161)>> <##core#ref (5) <##core#variable (c1161)>>> <##core#call (#t ("c5.scm:54" "##sys#print")) <##core#variable (##sys#print)> <##core#variable (k696)><##core#ref (5) <##core#variable (c1161)>>>>> <##core#ref (1) <##core#variable (c1159)>> <##core#ref (2) <##core#variable (c1159)>> <##core#ref (3) <##core#variable (c1159)>> <##core#ref (4) <##core#variable (c1159)>> <##core#ref (5) <##core#variable (c1159)>>> <##core#call (#t ("c5.scm:54" "##sys#print")) <##core#variable (##sys#print)> <##core#variable (k693)> <##core#ref (2) <##core#variable (c1159)>><##core#ref (5) <##core#variable (c1159)>>>>> <##core#variable (w-gap155)> <##core#ref (1) <##core#variable (c1153)>> <##core#ref (2) <##core#variable (c1153)>> <##core#ref (3) <##core#variable (c1153)>> <##core#variable (out156159)>> <##core#call (#t ("c5.scm:54" "##sys#print")) <##core#variable (##sys#print)> <##core#variable (k690)><##core#variable (##sys#standard-error)>>>>>>>> <##core#variable (h-gap154)> <##core#ref (1) <##core#variable (c1150)>> <##core#ref (2) <##core#variable (c1150)>>> <##core#call (#f "##sys#/-2") <##core#variable (##sys#/-2)> <##core#variable (k684)>>>>> <##core#variable (formula153)> <##core#ref (1) <##core#variable (c1147)>>> <##core#call (#f "##sys#/-2") <##core#variable (##sys#/-2)> <##core#variable (k681)>>>>> <##core#variable (k677)>><##core#variable (mandelbrod/real)>>>> <##core#call (#f ("c5.scm:51" "##sys#get-keyword")) <##core#variable (##sys#get-keyword)> <##core#variable (k678)> <##core#variable (tmp148152)> <##core#variable (a789)>>>>>>>><##core#ref (1) <##core#variable (c1213)>> <##core#ref (2) <##core#variable (c1213)>>>> <##core#variable (k833)> <##core#variable (t190191)>> <##core#ref (1) <##core#variable (c1215)>> <##core#variable (r842)>>> <##core#variable (k834)>> <##core#call (#t ("c5.scm:70" "##sys#stop-timer")) <##core#variable (##sys#stop-timer)> <##core#variable (k841)>>>>>> <##core#call (#t ("c5.scm:70" "##sys#call-with-values")) <##core#proc ("C_u_call_with_values" #t)> <##core#variable (k816)> <##core#variable (a825)> <##core#variable (a831)>>>>>> <##core#ref (1) <##core#variable (c1135)>>> <##core#call (#t ("c5.scm:70" "##sys#start-timer")) <##core#variable (##sys#start-timer)> <##core#variable (k813)>>>> <##core#ref (1) <##core#variable (c1133)>>> <##core#call (#t ("c5.scm:69" "print")) <##core#variable (print)> <##core#variable (k810)> >>> <##core#ref (1) <##core#variable (c1131)>>> <##core#call (#f ("c5.scm:68" "##sys#write-char-0")) <##core#variable (##sys#write-char-0)> <##core#variable (k807)><##core#ref (2) <##core#variable (c1131)>>>>> <##core#ref (1) <##core#variable (c1129)>> <##core#ref (2) <##core#variable (c1129)>>> <##core#call (#t ("c5.scm:68" "##sys#print")) <##core#variable (##sys#print)> <##core#variable (k804)><##core#ref (2) <##core#variable (c1129)>>>>> <##core#ref (1) <##core#variable (c1127)>> <##core#ref (2) <##core#variable (c1127)>>> <##core#call (#f ("c5.scm:68" "##sys#write-char-0")) <##core#variable (##sys#write-char-0)> <##core#variable (k801)><##core#ref (2) <##core#variable (c1127)>>>>> <##core#ref (1) <##core#variable (c1122)>> <##core#variable (out182185)>> <##core#call (#t ("c5.scm:68" "##sys#print")) <##core#variable (##sys#print)> <##core#variable (k798)><##core#variable (##sys#standard-output)>>>>>>> <##core#ref (1) <##core#variable (c1079)>>> <##core#call (#t ("c5.scm:67" "print")) <##core#variable (print)> <##core#variable (k792)>>>>>> <##core#ref (1) <##core#variable (c1077)>>>> <##core#closure (5) <##core#lambda (f_845 #t (c1218 k846 g104110) 49) > >>> <##core#variable (r854)>>> <##core#variable (r854)>> > > <##core#call (#t #f f_845 #t) <##core#unbox () <##core#ref (3) <##core#variable (c1220)>>> <##core#ref (4) <##core#variable (c1220)>> <##core#variable (r865)>>>>>>> <##core#ref (1) <##core#variable (c1218)>> <##core#variable (g104110)> <##core#ref (2) <##core#variable (c1218)>> <##core#variable (k846)>> > <##core#call (#t ("c5.scm:29" "g98")) <##core#ref (3) <##core#variable (c1218)>> <##core#variable (k868)> <##core#variable (r873)>>>> <##core#call (#t #f) <##core#variable (k846)> <##core#inline ("C_slot") <##core#ref (4) <##core#variable (c1218)>>>>>> <##core#ref (2) <##core#variable (c1077)>> <##core#variable (map-loop92109)> <##core#ref (3) <##core#variable (c1077)>> <##core#ref (4) <##core#variable (c1077)>>>> <##core#call (#t #f f_845 #t) <##core#unbox () <##core#variable (map-loop92109)>> <##core#variable (k613)> <##core#variable (r611)>>>>>>> <##core#ref (1) <##core#variable (c1020)>> <##core#variable (g97105)> <##core#variable (g98107)> <##core#variable (g96106)>> > <##core#call (#t ("c5.scm:29" "srfi-1#iota")) <##core#variable (srfi-1#iota)> <##core#variable (k610)> <##core#variable (a878)>>>>>>>>>>> <##core#ref (1) <##core#variable (c1018)>>> <##core#call (#f ("c5.scm:1" "chicken.load#load-extension")) <##core#variable (chicken.load#load-extension)> <##core#variable (k429)>>>> <##core#ref (1) <##core#variable (c1016)>>> <##core#callunit (extras) <##core#variable (k426)>>>> <##core#ref (1) <##core#variable (c1014)>>> <##core#callunit (data-structures) <##core#variable (k423)>>>> <##core#ref (1) <##core#variable (c1012)>>> <##core#callunit (eval) <##core#variable (k420)>>>> <##core#variable (k416)>> <##core#callunit (library) <##core#variable (k417)>>>>>
flonums added by C-Keen on Wed Aug 23 22:23:05 2017
t9=C_a_i_flonum_times(&a,2,t6,t6); t10=C_a_i_flonum_times(&a,2,t7,t7); t11=C_a_i_flonum_difference(&a,2,t9,t10); av2[1]=C_a_i_flonum_plus(&a,2,t11,t8);