Artifact 04cf4f8e593901484614855964340db021c9745d9439798cb286ce2be2ffa551:

• File mttroot/ntt/bin/trans/mttUpdateBondDomain.m — part of check-in [745f0b3e31] at 2003-10-20 17:10:30 on branch origin/master — Added initial revision of ntt:
  new transformation tools for using bond graphs with Matlab.
  Copyright 2003 Dr. Dominic J. Diston. (user: geraint@users.sourceforge.net, size: 1118) [annotate] [blame] [check-ins using] [more...]
• File ntt/bin/trans/mttUpdateBondDomain.m — part of check-in [af3953deae] at 2021-03-01 11:39:42 on branch master — Cleanup repository after cvs2git conversion. (user: jeff@gridfinity.com, size: 1118) [annotate] [blame] [check-ins using]

function [model,bond_not_failed] = mttUpdateBondDomain(...
    model,bond_number,imposed_domain,imposed_domain_item)
    
    if isempty(bond_number)
        bond_not_failed = 1 ;
    else
        [model.bond(bond_number).domain,domain_ok] = ...
            update_domain(model.bond(bond_number).domain,imposed_domain) ;
        if domain_ok
            [model.bond(bond_number).domain_item,domain_item_ok] = ...
                update_domain_item(model.bond(bond_number).domain_item,imposed_domain_item) ;
        else
            domain_item_ok = 0 ;
        end
        
        bond_not_failed = domain_ok & domain_item_ok ;
    end
    
    
function [value,ok] = update_domain(value,new_value)
    ok = 1 ;
    
    if ~isempty(new_value)
        if isempty(value)
            value = new_value ;
        else
            ok = value==new_value ;
        end
    end
    
function [value,ok] = update_domain_item(value,new_value)
    ok = 1 ;
    
    if ~isempty(new_value)
        if isempty(value)
            value = new_value ;
        else
            ok = strcmp(value,new_value) ;
        end
    end