> <\body> \<#56FE\>> <\session|scheme|default> <\folded-io|Scheme] > (define (plot l) (stree-\tree l)) <|folded-io> plot <\folded-io|Scheme] > (plot `(frac 1 2)) <|folded-io> > <\folded-io|Scheme] > (plot `(point 0 0)) <|folded-io> > <\folded-io|Scheme] > (plot `(graphics (point -5 -5) (point 5 5))) ; quasiquote ` <|folded-io> |>> <\folded-io|Scheme] > (plot `(graphics (point ,(+ 1 2) ,(+ 1 3)) (point 0 0))) <|folded-io> |gr-grid-old||1>|gr-edit-grid-aspect|||>|gr-edit-grid||gr-edit-grid-old||1>||>>> <\folded-io|Scheme] > (plot `(graphics (point 0 0) (point 1 1) (line (point 0 0) (point 1 1))))) <|folded-io> |||>>> <\unfolded-io|Scheme] > (plot `(cline (point 0 0) (point 3 0) (point 0 4))) <|unfolded-io> ||>> <\unfolded-io|Scheme] > (kbd-map ("d i a n var" (insert (utf8-\cork "\<#70B9\>")))) <|unfolded-io> ("d i a n tab") <\unfolded-io|Scheme] > (kbd-map ("h t var" (insert (utf8-\cork "\<#7ED8\>\<#56FE\>")))) <|unfolded-io> ("h t tab") <\unfolded-io|Scheme] > (kbd-map ("t u var" (insert (utf8-\cork "\<#56FE\>")))) <|unfolded-io> ("t u tab") <\unfolded-io|Scheme] > (kbd-map ("s j x var" (insert (utf8-\cork "\<#4E09\>\<#89D2\>\<#5F62\>")))) <|unfolded-io> ("s j x tab") <\unfolded-io|Scheme] > (kbd-map ("z s j x var" (insert (utf8-\cork "\<#6B63\>\<#4E09\>\<#89D2\>\<#5F62\>")))) <|unfolded-io> ("z s j x tab") <\unfolded-io|Scheme] > (define (\<#7ED8\>\<#56FE\> l) (stree-\tree l)) <|unfolded-io> \<#7ED8\>\<#56FE\> <\unfolded-io|Scheme] > (define (\<#70B9\> x y) `(point ,x ,y)) <|unfolded-io> \<#70B9\> <\folded-io|Scheme] > (define (\<#56FE\> . objects) \ \ (cond ((nlist? objects) '(graphics "" "")) \ \ \ \ \ \ \ \ ((== objects '()) '(graphics "" "")) \ \ \ \ \ \ \ \ (else `(graphics "" ,@objects)))) <|folded-io> \<#56FE\> <\folded-io|Scheme] > (\<#7ED8\>\<#56FE\> (\<#56FE\> (\<#70B9\> 1 1) (\<#70B9\> 2 2))) <|folded-io> |1>|gr-grid-old||1>|gr-edit-grid-aspect|||>|gr-edit-grid||1>|gr-edit-grid-old||1>|gr-frame|>|magnify|3.0||>>> <\unfolded-io|Scheme] > (define (triangle x y z) \ \ `(cline ,x ,y ,z)) <|unfolded-io> \<#4E09\>\<#89D2\>\<#5F62\> <\input|Scheme] > (define (\<#4E09\>\<#89D2\>\<#5F62\> x y z) (triangle x y z)) <\unfolded-io|Scheme] > (\<#7ED8\>\<#56FE\> (\<#4E09\>\<#89D2\>\<#5F62\> (\<#70B9\> 0 0 ) (\<#70B9\> 0 3) (\<#70B9\> 4 0))) <|unfolded-io> ||>> <\unfolded-io|Scheme] > (car (cdr (cdr (\<#70B9\> 1 2)))) ; third <|unfolded-io> 2 <\unfolded-io|Scheme] > (car (cdr (\<#70B9\> 1 2))) ; second <|unfolded-io> 1 <\unfolded-io|Scheme] > (list-ref (list 1 2 3 4 5) 1) <|unfolded-io> 2 <\unfolded-io|Scheme] > (define (\<#6B63\>\<#4E09\>\<#89D2\>\<#5F62\> A \<#8FB9\>\<#957F\>) \ \ (\<#4E09\>\<#89D2\>\<#5F62\> \ \ \ \ \ \ \ A \ \ \ \ \ \ \ (\<#70B9\> (+ \<#8FB9\>\<#957F\> (second A))) \ \ \ \ \ \ \ \ \ \ \ (third A)) \ \ \ \ \ \ \ (\<#70B9\> (+ (* 0.5 \<#8FB9\>\<#957F\>) \ \ \ \ \ \ \ \ \ \ \ \ \ \ (second A)) \ \ \ \ \ \ \ \ \ \ \ (+ (third A) (* (sqrt 0.75) \<#8FB9\>\<#957F\>)))))) <|unfolded-io> \<#6B63\>\<#4E09\>\<#89D2\>\<#5F62\> <\unfolded-io|Scheme] > (\<#7ED8\>\<#56FE\> (\<#6B63\>\<#4E09\>\<#89D2\>\<#5F62\> (\<#70B9\> 0 0) 3)) <|unfolded-io> <\unfolded-io|Scheme] > (define (point x y) `(point ,x ,y)) <|unfolded-io> point <\unfolded-io|Scheme] > (point 1 2) =\ (point "1" "2") <|unfolded-io> (point 1 2) <\unfolded-io|Scheme] > (number? 1) <|unfolded-io> #t <\unfolded-io|Scheme] > (number-\string 1) <|unfolded-io> (number-\string 1) <\unfolded-io|Scheme] > \; <|unfolded-io> x-\string <\unfolded-io|Scheme] > (define (draw x) \ \ (define (x-\string x) \ \ \ \ \ \ (if (number? x) \ \ \ \ \ \ \ \ (number-\string x) \ \ \ \ \ \ \ \ x)) \ \ (define (draw-inner x) \ \ \ \ (if (eq? () x) () \ \ \ \ \ \ (cons (x-\string (car x)) \ \ \ \ \ \ \ \ \ \ \ \ (draw-inner (cdr x))))) \ \ (stree-\tree (draw-inner x))) <|unfolded-io> draw <\unfolded-io|Scheme] > (draw `(point 1 1)) <|unfolded-io> > <\input|Scheme] > \; <\initial> <\collection> <\references> <\collection> > <\auxiliary> <\collection> <\associate|toc> |math-font-series||\<#7ED8\>\<#56FE\>> |.>>>>|>