powerwindowscript.m

power window related simulink simulation

        if(ret < 0) return; end
        POWERWINDOWDEMO_STEP = ret;

        add_block('built-in/Reference','powerwindow/window_world', ...
            'Position',[555, 185, 685, 215],'SourceBlock','salib/window_world');
        set_param('powerwindow/window_world','LinkStatus','inactive')
        set_param('powerwindow/window_world','BackgroundColor','cyan')
        
%        set_param('powerwindow/window_world/VR Sink','Position',[945, 131, 1055, 459])
%        set_param('powerwindow/window_world/VR Sink','Position',[950, 131, 1060, 459])
%        powerwindow( [ ] , [ ], [ ] , 'sizes' );

        add_block('built-in/Reference','powerwindow/window_world/VR Sink', ...
            'Position',[950, 131, 1060, 459],'SourceBlock','vrlib/VR Sink', ...
            'WorldFileName','mech_window_world.wrl','WorldDescription','VR Power Window Model', ...
            'FieldsWritten','balloon.scale#glass.rotation#glass.translation#planetROT.rotation#plannet_connect.translation#support.translation#supportROT.rotation#support_connect.translation#worm.rotation');
%		open_system('powerwindow/window_world/VR Sink');
%		close_system('powerwindow/window_world/VR Sink');

        l = add_line('powerwindow/window_world','Product3/1','VR Sink/1','autorouting','on');
		set_param(l,'FontSize',9) % The default fontsize is 18, for some reason
        l = add_line('powerwindow/window_world','Mux1/1','VR Sink/2','autorouting','on');
		set_param(l,'FontSize',9) % The default fontsize is 18, for some reason
        l = add_line('powerwindow/window_world','Mux/1','VR Sink/3','autorouting','on');
		set_param(l,'FontSize',9) % The default fontsize is 18, for some reason
        l = add_line('powerwindow/window_world','Mux6/1','VR Sink/4','autorouting','on');
		set_param(l,'FontSize',9) % The default fontsize is 18, for some reason
        l = add_line('powerwindow/window_world','Mux3/1','VR Sink/5','autorouting','on');
		set_param(l,'FontSize',9) % The default fontsize is 18, for some reason
        l = add_line('powerwindow/window_world','Mux5/1','VR Sink/6','autorouting','on');
		set_param(l,'FontSize',9) % The default fontsize is 18, for some reason
        l = add_line('powerwindow/window_world','Mux4/1','VR Sink/7','autorouting','on');
		set_param(l,'FontSize',9) % The default fontsize is 18, for some reason
        l = add_line('powerwindow/window_world','Mux7/1','VR Sink/8','autorouting','on');
		set_param(l,'FontSize',9) % The default fontsize is 18, for some reason
        l = add_line('powerwindow/window_world','Mux2/1','VR Sink/9','autorouting','on');
		set_param(l,'FontSize',9) % The default fontsize is 18, for some reason

        l = add_line('powerwindow','window_system/4','window_world/1');
		set_param(l,'FontSize',9) % The default fontsize is 18, for some reason
 
    case 'connect current'
        ret = stepTo(POWERWINDOWDEMO_STEP,16,POWERWINDOWDEMO_STEPS);
        if(ret < 0) return; end
        POWERWINDOWDEMO_STEP = ret;

        add_block('built-in/Scope','powerwindow/armature_current', ...
			'Position',[555, 54, 585, 76],'ForegroundColor','gray','LimitDataPoints','off');
        add_block('built-in/Scope','powerwindow/force', ...
			'Position',[555, 99, 585, 121],'ForegroundColor','gray','LimitDataPoints','off');
		set_param('powerwindow/position','Position',[555, 144, 585, 166]) % The default fontsize is 18, for some reason

        l = add_line('powerwindow','window_system/1','armature_current/1');
		set_param(l,'FontSize',9) % The default fontsize is 18, for some reason
        l = add_line('powerwindow','window_system/2','force/1');
		set_param(l,'FontSize',9) % The default fontsize is 18, for some reason
        l = add_line('powerwindow','window_system/1','power_window_control_system/1','autorouting','on');
		set_param(l,'FontSize',9) % The default fontsize is 18, for some reason
        l = add_line('powerwindow','window_system/3','position/1');
		set_param(l,'FontSize',9) % The default fontsize is 18, for some reason
        
    case 'delete continuous subsystem'
        ret = stepTo(POWERWINDOWDEMO_STEP,12,POWERWINDOWDEMO_STEPS);
        if(ret < 0) return; end
        POWERWINDOWDEMO_STEP = ret;

        delete_line('powerwindow','power_window_control_system/1','window_system/1');
        delete_line('powerwindow','power_window_control_system/2','window_system/2');
        delete_line('powerwindow','window_system/1','power_window_control_system/1');
        delete_line('powerwindow','window_system/1','position/1');
        
        delete_block('powerwindow/window_system');
        
    case 'context plant'
%        ret = stepTo(POWERWINDOWDEMO_STEP,4,POWERWINDOWDEMO_STEPS);
%        if(ret < 0) return; end
%        POWERWINDOWDEMO_STEP = ret;
       
        powerwindowscript('remove continuous');
        powerwindowscript('add continuous subsystem');

     case 'add continuous subsystem'
        ret = stepTo(POWERWINDOWDEMO_STEP,5,POWERWINDOWDEMO_STEPS);
        if(ret < 0) return; end
        POWERWINDOWDEMO_STEP = ret;

        add_block('built-in/Reference','powerwindow/window_system', ...
            'Position',[475, 43, 615, 227],'SourceBlock','salib/2nd_order_window_system');
        set_param('powerwindow/window_system','LinkStatus','inactive')
        
    case 'context switches'
%        powerwindowscript('highlight input');
        powerwindowscript('remove input');
        powerwindowscript('add input subsystems');
        
    case 'add input subsystems'
        ret = stepTo(POWERWINDOWDEMO_STEP,7,POWERWINDOWDEMO_STEPS);
        if(ret < 0) return; end
        POWERWINDOWDEMO_STEP = ret;

        add_block('built-in/Reference','powerwindow/driver_switch', ...
            'Position',[25, 81, 115, 139],'SourceBlock','salib/switch');
        set_param('powerwindow/driver_switch','LinkStatus','inactive')
        add_block('built-in/Reference',sprintf('powerwindow/passenger_switch'), ...
            'Position',[25, 156, 115, 214],'SourceBlock','salib/switch');
        set_param('powerwindow/passenger_switch','LinkStatus','inactive')
        
    case 'add power'
        ret = stepTo(POWERWINDOWDEMO_STEP,13,POWERWINDOWDEMO_STEPS);
        if(ret < 0) return; end
        POWERWINDOWDEMO_STEP = ret;

        add_block('built-in/Reference','powerwindow/window_system', ...
            'Position',[375, 40, 515, 220],'SourceBlock','salib/detailed_window_system');
        set_param('powerwindow/window_system','LinkStatus','inactive')
        set_param('powerwindow/window_system/actuator','LinkStatus','inactive')
        set_param('powerwindow/window_system/plant','LinkStatus','inactive')
        set_param('powerwindow/window_system/plant/window','LinkStatus','inactive')

        l = add_line('powerwindow','power_window_control_system/1','window_system/1');
		set_param(l,'FontSize',9) % The default fontsize is 18, for some reason
        l = add_line('powerwindow','power_window_control_system/2','window_system/2');
		set_param(l,'FontSize',9) % The default fontsize is 18, for some reason
%        l = add_line('powerwindow','window_system/1','power_window_control_system/1','autorouting','on');
%		set_param(l,'FontSize',9) % The default fontsize is 18, for some reason
%        l = add_line('powerwindow','window_system/3','position/1');
%		set_param(l,'FontSize',9) % The default fontsize is 18, for some reason
        
    case 'zoom Ia'
		close_system('powerwindow/Ia','force');
		set_param('powerwindow/Ia','TimeRange','1.4','YMin','-1.7','YMax','-1.4');
		open_system('powerwindow/Ia','force');
        
    case 'resize for continuous plant'
        p = get_param('powerwindow', 'Location');
        p(3) = p(1) + 915;
        p(4) = p(2) + 465;

		set_param('powerwindow','Location',p);
        
    case 'resize for power'
        p = get_param('powerwindow', 'Location');
        p(3) = p(1) + 935;
        p(4) = p(2) + 465;

		set_param('powerwindow','Location',p);
        
    case 'resize for reorganize'
        p = get_param('powerwindow', 'Location');
        p(3) = p(1) + 815;
        p(4) = p(2) + 300;

		set_param('powerwindow','Location',p);
        
    case 'resize for context diagram'
        p = get_param('powerwindow', 'Location');
        p(3) = p(1) + 635;
        p(4) = p(2) + 265;

		set_param('powerwindow','Location',p);
        
    case 'resize for object switch'
        p = get_param('powerwindow', 'Location');
        p(3) = p(1) + 705;
        p(4) = p(2) + 305;

		set_param('powerwindow','Location',p);
        
   case 'prepare realistic Ia'
        if POWERWINDOWDEMO_STEP == 18
            hilite_system('powerwindow/window_system/decouple up','find');
            hilite_system('powerwindow/window_system/decouple down','find');
		    pause(0.75)	
        end
        powerwindowscript('delete realistic Ia'); 
        
		pause(0.75)	
        
   case 'delete realistic Ia'
        ret = stepTo(POWERWINDOWDEMO_STEP,19,POWERWINDOWDEMO_STEPS);
        if(ret < 0) return; end
        POWERWINDOWDEMO_STEP = ret;

        delete_line('powerwindow/window_system','move_up/1','decouple up/1');
        delete_line('powerwindow/window_system','move_down/1','decouple down/1');

        delete_line('powerwindow/window_system','decouple up/1','amplification up/2');
        delete_line('powerwindow/window_system','decouple down/1','amplification down/2');
        delete_line('powerwindow/window_system','amplification up/1','actuator/2');
         
        delete_line('powerwindow/window_system','actuator/1','armature_current/1');
%        delete_line('powerwindow/window_system','actuator/1','Ia/1');
 
        delete_block('powerwindow/window_system/decouple up');
        delete_block('powerwindow/window_system/decouple down');

    case 'include realistic Ia'
         if POWERWINDOWDEMO_STEP == 19
		    open_system('powerwindow/window_system');            
		    pause(0.75)	
        end
        
        powerwindowscript('realistic Ia'); 
%        POWERWINDOWDEMO_STEP = POWERWINDOWDEMO_STEP - 1;   

%        powerwindowscript('fixed point processing'); 
       
   case 'fixed point processing'    
        if POWERWINDOWDEMO_STEP == 20
            hilite_system('powerwindow/power_window_control_system/detect_obstacle_endstop','find');
		    pause(0.75)	
            hilite_system('powerwindow/power_window_control_system/detect_obstacle_endstop','none');
        end
        
        ret = stepTo(POWERWINDOWDEMO_STEP,21,POWERWINDOWDEMO_STEPS);
        if(ret < 0) return; end
        POWERWINDOWDEMO_STEP = ret;
        delete_block('powerwindow/power_window_control_system/detect_obstacle_endstop');
        add_block('built-in/Reference','powerwindow/power_window_control_system/detect_obstacle_endstop', ...
            'Position',[510, 24, 635, 96],'SourceBlock','salib/fp_verify_current');
        set_param('powerwindow/power_window_control_system/detect_obstacle_endstop','LinkStatus','inactive')
        set_param('powerwindow/power_window_control_system/detect_obstacle_endstop','Orientation','left')
        set_param('powerwindow/power_window_control_system/detect_obstacle_endstop','Position',[515, 24, 640, 96])
              
    case 'realistic Ia'    
        ret = stepTo(POWERWINDOWDEMO_STEP,20,POWERWINDOWDEMO_STEPS);
        if(ret < 0) return; end
        POWERWINDOWDEMO_STEP = ret;
        
        add_block('built-in/ZeroOrderHold','powerwindow/window_system/DAC up', ...
            'Position',[80, 111, 115, 149],'SampleTime','0.01', ...
            'ForegroundColor','darkGreen');
        add_block('built-in/ZeroOrderHold','powerwindow/window_system/DAC down', ...
            'Position',[80, 246, 115, 284],'SampleTime','0.01', ...
            'ForegroundColor','darkGreen');
        add_block('built-in/Reference',sprintf('powerwindow/window_system/Ia measurement\nconditioning'), ...
            'Position',[260, 105, 300, 140],'SourceBlock','powerwindowlib/measurement conditioning', ...
            'ForegroundColor','darkGreen');
        add_block('built-in/Reference','powerwindow/window_system/ADC Ia', ...
            'Position',[320, 13, 360, 47],'SourceBlock','powerwindowlib/ADC', ...
            'ForegroundColor','darkGreen');
%        add_block('built-in/Gain','powerwindow/window_system/gain', ...
%            'Position',[390, 15, 410, 45],'Gain','5',...
%            'ForegroundColor','darkGreen');
        
        l = add_line('powerwindow/window_system','move_up/1','DAC up/1');
		set_param(l,'FontSize',9) % The default fontsize is 18, for some reason
        l = add_line('powerwindow/window_system','move_down/1','DAC down/1');
		set_param(l,'FontSize',9) % The default fontsize is 18, for some reason
        l = add_line('powerwindow/window_system','DAC up/1','amplification up/2');
		set_param(l,'FontSize',9) % The default fontsize is 18, for some reason
        l = add_line('powerwindow/window_system','DAC down/1','amplification down/2');
		set_param(l,'FontSize',9) % The default fontsize is 18, for some reason
        l = add_line('powerwindow/window_system','amplification up/1','Ia measurement conditioning/1');
		set_param(l,'FontSize',9) % The default fontsize is 18, for some reason
        l = add_line('powerwindow/window_system','Ia measurement conditioning/2','actuator/2');
		set_param(l,'FontSize',9) % The default fontsize is 18, for some reason
        l = add_line('powerwindow/window_system','Ia measurement conditioning/1','ADC Ia/1','autorouting','on');
		set_param(l,'FontSize',9) % The default fontsize is 18, for some reason
        l = add_line('powerwindow/window_system','ADC Ia/1','armature_current/1','autorouting','on');
		set_param(l,'FontSize',9) % The default fontsize is 18, for some reason
%        l = add_line('powerwindow/window_system','gain/1','armature_current/1','autorouting','on');
%		set_param(l,'FontSize',9) % The default fontsize is 18, for some reason
    
    case 'highlight input'
        powerwindowscript('highlight passenger and driver switches');
        powerwindowscript('highlight maps');