26 lines
		
	
	
		
			501 B
		
	
	
	
		
			Matlab
		
	
	
	
	
	
			
		
		
	
	
			26 lines
		
	
	
		
			501 B
		
	
	
	
		
			Matlab
		
	
	
	
	
	
| %% Script Description
 | |
| % Identification of a force injected into the NASS (in cartesian
 | |
| % coordinates) to the relative displacement of the sample
 | |
| % and granite.
 | |
| 
 | |
| %%
 | |
| clear; close all; clc;
 | |
| 
 | |
| %%
 | |
| initializeSample(struct('mass', 1));
 | |
| 
 | |
| [G_1, G_1_raw] = identifyG();
 | |
| 
 | |
| %%
 | |
| initializeSample(struct('mass', 20));
 | |
| 
 | |
| [G_20, G_20_raw] = identifyG();
 | |
| 
 | |
| %%
 | |
| initializeSample(struct('mass', 50));
 | |
| 
 | |
| [G_50, G_50_raw] = identifyG();
 | |
| 
 | |
| %% Save the obtained transfer functions
 | |
| save('./mat/G_f_to_d.mat', 'G_1', 'G_20', 'G_50');
 | 
