Quellcode

(define xStart 0 )
(define xFinish 2 )
(define xIncrement 1 )
(do ;; x
      ( ;; Initialization
        (xValue  xStart  (+ xValue  xIncrement ))
        )
      ( (> xValue  xFinish ) xValue )
;; body
) ;; END do ;; x

Quellcode

(raytrace:set-beam-orientation-euler-degrees (gvector xValue yValue zValue) "Grid Source 1")

Quellcode

(print (string-append (number->string xValue) (string #\space) (number->string yValue) (string #\space) (number->string my_read_1) (string #\space) (number->string my_read_2)) myOutputPort)

Quellcode

*** ERROR *** do: unbound variable: fprintf

Quellcode

(display xValue myOutputPort)
          (display #\space myOutputPort)
          (display yValue myOutputPort) 
          (display #\space myOutputPort) 
          (display (/ (raytrace:get-absorbed-flux (entity:get-by-name SurfaceName)) (raytrace:get-total-emitted-flux)) myOutputPort)
          (display #\space myOutputPort)
          (display (raytrace:get-absorbed-flux (entity:get-by-name SurfaceName)) myOutputPort)
          (newline myOutputPort)

Quellcode

Action: Prints obj to the specified port, if provided, or to the value returned by the procedure current-output-port, otherwise.  
Syntax: (write obj [output-port]) 
Arg Types:  
Returns: Returns an unspecified value. 
Errors:  
Description: Unlike the procedure display, write does not suppress the escaping of special characters, the double-quotes delimiting strings, or the #\-combination identifying characters.  
Limitations: Not applicable  
Example:

Quellcode

Action: Prints obj using write and then prints a newline.  
Syntax: (print obj [output-port]) 
Arg Types:  
Returns: print returns void. 
Errors:  
Description: If the second argument is omitted, it defaults to the current output port.  
Limitations: Not applicable  
Example:

Quellcode

Action: Prints a representation of obj to the specified port, if provided, or to the value returned by the procedure current-output-port, otherwise.  
Syntax: (display obj [output-port]) 
Arg Types:  
Returns: Returns an unspecified value. 
Errors:  
Description: The double-quotes that delimit strings are suppressed by this procedure, as is the escaping of any special characters that occur within a string.
             In particular, this means that, if you subsequently use the procedure read to read data that have been written out using the procedure display,
             any space characters belonging to displayed strings, whether they are escaped or not, will be interpreted as delimiters between representations
             of Scheme objects. To avoid this behavior, use the procedure write instead. display also suppresses the #\-combination that identifies characters,
             printing only the actual character itself. Similarly, it prints named characters themselves rather than their names. Thus, (display #\space) writes 
             an actual space character?not the symbol #\space?to the current output port. 
Limitations: Not applicable  
Example:

Quellcode

(do 
(
 (surfValue nIncr (+ surfValue nIncr))
 )
 ( (> surfValue numberofSurf) surfValue)
 (display #\space myOutputPort) 
 (display (/ (raytrace:get-absorbed-flux (entity:get-by-name (string-append SurfaceName (number->string numberofSurf)))) (raytrace:get-total-emitted-flux)) myOutputPort)
 (flush-output-port myOutputPort)
);;END do ;; Surface
(newline myOutputPort)

Quellcode

(display #\space myOutputPort)
(display (/ (raytrace:get-absorbed-flux (entity:get-by-name SurfaceName1)) (raytrace:get-total-emitted-flux)) myOutputPort)
(display #\space myOutputPort)
(display (/ (raytrace:get-absorbed-flux (entity:get-by-name SurfaceName2)) (raytrace:get-total-emitted-flux)) myOutputPort)
(display #\space myOutputPort)
(display (/ (raytrace:get-absorbed-flux (entity:get-by-name SurfaceName3)) (raytrace:get-total-emitted-flux)) myOutputPort)
(newline myOutputPort)
(flush-output-port myOutputPort)

Quellcode

2.12552618182099e-007 2.12552618182099e-007 2.12552618182099e-007

Quellcode

0.000589607675388093 2.30244797729298e-007 2.12552618182099e-007