CFD Online Logo CFD Online URL
Home > Forums > Fluent UDF and Scheme Programming

Adding Custom Tab in FLUENT using Scheme Code

Register Blogs Members List Search Today's Posts Mark Forums Read

Like Tree2Likes
  • 2 Post By dhimans

LinkBack Thread Tools Display Modes
Old   September 14, 2009, 15:10
Default Adding Custom Tab in FLUENT using Scheme Code
New Member
Join Date: May 2009
Posts: 4
Rep Power: 8
dhimans is on a distinguished road
Hi ,

I have a scheme code with which I can add a custom tab in FLUENT for inputting my GLOBAL variables for an automation code (again in Scheme).

The Tab works fine in GUI but I get junk values of those global variables when I try to retrieve them.

I want to be able to access the values of those global variables at all times.

The Code is -----------------------------------------------------------------------

;------------ Create RPVARS for Input parameters---------------------- 
(if (not (rp-var-object 'c_1))(rp-var-define 'c_1 550 'real #f))        ;corresponds to default mainstream gas temp 
(if (not (rp-var-object 'c_2))(rp-var-define 'c_2 60 'real #f))         ;corresponds to default mainstream velocity 
(if (not (rp-var-object 'c_3))(rp-var-define 'c_3 1.5 'real #f))        ;corresponds to default turbulent intensity 
(if (not (rp-var-object 'c_4))(rp-var-define 'c_4 300 'real #f))        ;corresponds to default coolant gas temp  
(define Tgas)          ; 4 Global variables                     
(define Vgas) 
(define I) 
(define Tcool) 
(define gui-icht                            
  (let ((panel #f)) 
          (define (update-cb  args)           ;update panel fields 
   (cx-set-real-entry Tgas (rpgetvar 'c_1)) 
   (cx-set-real-entry Vgas (rpgetvar 'c_2)) 
   (cx-set-real-entry I (rpgetvar 'c_3)) 
   (cx-set-real-entry Tcool (rpgetvar 'c_4)) 
       (define (apply-cb  args) 
   (rpsetvar 'c_1 (cx-show-real-entry Tgas)) 
   (rpsetvar 'c_2 (cx-show-real-entry Vgas)) 
   (rpsetvar 'c_3 (cx-show-real-entry I)) 
   (rpsetvar 'c_4 (cx-show-real-entry Tcool))  
       (lambda (args) 
(if (not panel)   
(let ((table) (form))  
(set! panel (cx-create-panel "ICHT PANEL" apply-cb update-cb)) 
(set! table (cx-create-table panel "" 'border #f 'below 0 'right-of 0)) 
(set! form (cx-create-frame table "" 'border #f)) 
(set! Tgas (cx-create-real-entry table "Tg" 'width 14 'row 1 'col 0 )) 
(set! Vgas (cx-create-real-entry table "Vg" 'width 14 'row 2 'col 0 )) 
(set! I (cx-create-real-entry table "Tu%" 'width 14 'row 3 'col 0 )) 
(set! Tcool (cx-create-real-entry table "Tc" 'width 14 'row 4 'col 0)) 
(set! *cx-exit-on-error* #f) 
(cx-show-panel panel)) 
(let ((menu (cx-add-menu "ICHT-GUI-Beta" #\U ))); end of let list  
      (cx-add-item menu "PARAMATERS"  #\U #f cx-client? gui-icht) 
      (cx-add-item menu "START PROGRAM" #\O #f and (lambda ()(load "main.scm"))); Starts the main automation code  
      (set! *cx-exit-on-error* #f) 
(set! *cx-exit-on-error* #f)

I wish to load the custom tab ... Update the values .. and Retrieve the values anywhere in the main program. But when I try doing that get a Junk Value.

Please help me out with this

mm.abdollahzadeh and crevoise like this.
dhimans is offline   Reply With Quote


Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On

Similar Threads
Thread Thread Starter Forum Replies Last Post
Integrating Scheme with a FLUENT journal file Pete Willemsen FLUENT 0 May 19, 2006 17:00
Adding a pause to a fluent journal Baoun FLUENT 0 April 24, 2006 04:44
Central Differencing Scheme in Fluent alice FLUENT 2 March 21, 2004 08:30
Open source CFD code development, possible? Dr. Yazid Bindar Main CFD Forum 27 July 18, 2000 00:18
Fluent Code (4.2 V) Limitations John Peter Main CFD Forum 1 July 25, 1998 04:51

All times are GMT -4. The time now is 02:59.