[berkozaydin]

Hello guys,

I have difficulty to import the zone-ids . I tried to write this kind of journal file. My aim is to find zone ids which are written in the flowVector and change their boundary conditions wall to the interface. This has to be in do loop.

Here is my code:

(define flowVector (vector "ch_channel_alt" "ch_channel_ust" "ch_plate_alt" "ch_plate_ust" "dhw_channel_alt"
"dhw_channel_ust" "dhw_plate1_alt" "dhw_plate1_ust" "dhw_plate2_alt" "dhw_plate2_ust"))

(define length (vector-length flowVector))

(do ((f 0 (+ f 1))) ((> f length))
(begin
(define fV (vector-ref flowVector f))
(define c1 (zone-name->id 'fV))
/define/boundary-conditions/modify-zones/zone-type c1 interface))

And also here is my output:

Error: eval: unbound variable
Error Object: /define/boundary-conditions/modify-zones/zone-type

Error: eval: invalid function
Error Object: 10


Thanks!

[pakk]

You are mixing journal file and scheme.
The line where you modify the zone should also be in scheme. There is a Fluent-specific scheme command to send text to the TUI, I forgot the name but it is in the help. Use that one.

[berkozaydin]

Originally Posted by pakk

You are mixing journal file and scheme.
The line where you modify the zone should also be in scheme. There is a Fluent-specific scheme command to send text to the TUI, I forgot the name but it is in the help. Use that one.

Thanks a lot!
I tried to write this code instead of using /define/boundary...

(ti-menu-load-string (format #f "/define/boundary-conditions/modify-zones/zone-type ~a" c1))

Probably, I have some mistakes in this code. But, I am not sure where they are.

[AlexanderZ]

looks like, there is no operations with "vector" in fluent compilation

(define (make-new-rpvar name default type)(rp-var-define name default type #f))
(make-new-rpvar 'flowVector '(ch_channel_alt ch_channel_ust ch_plate_alt ch_plate_ust dhw_channel_alt dhw_channel_ust dhw_plate1_alt dhw_plate1_ust dhw_plate2_alt dhw_plate2_ust) 'string-list)

(do ((i 0 (1+ i)) (j (rpgetvar 'flowVector) (cdr j))) 
	((null? j)) ; if j is '(), just end the loop
	(begin
		(ti-menu-load-string (format #f  "define boundary-conditions modify-zones zone-type ~a\n" (zone-name->id (car j))) )
	)
)