Changeset 22176

Timestamp:

10/18/17 12:58:01 (7 years ago)

Author:

erobo

Message:

NEW: making script work for calibration functions and bayes method

Location:

issm/trunk-jpl/src/m/qmu

Files:

• dakota_in_write.m (modified) (3 diffs)
• rlist_write.m (modified) (1 diff)

issm/trunk-jpl/src/m/qmu/dakota_in_write.m ¶

@@ -108 +108 @@
 
 responses_write(fidi,dmeth,dresp,params);
+
 
 fclose(fidi);
@@ -287 +288 @@
 
 fprintf(fidi,'responses,\n');
+%fprintf(fidi,'calibration_terms = 1 \n');
+
 
 %  functions, gradients, and hessians vary by method
@@ -296 +299 @@
     [rdesc]=fhresp(fidi,dresp,rdesc);
 end
-
 %  write accumulated response descriptors for all response classes
 

issm/trunk-jpl/src/m/qmu/rlist_write.m ¶

@@ -35 +35 @@
 disp(sprintf('  Writing %d %s responses.',nresp,cstring));
 
-fprintf(fidi,'\tnum_%s = %d\n',cstring,nresp);
+if strcmp(cstring,'calibration_terms')==1
+        fprintf(fidi,'\t%s = %d\n',cstring,nresp);
+        
+else
+        fprintf(fidi,'\tnum_%s = %d\n',cstring,nresp);
+end
+
 if ~isempty(pstype)
-    fprintf(fidi,'\t  %s_scale_types =\n',cstring2);
-    vector_write(fidi,sprintf('\t    '),pstype ,6,76);
+fprintf(fidi,'\t  %s_scale_types =\n',cstring2);
+vector_write(fidi,sprintf('\t    '),pstype ,6,76);
 end
+
 if ~isempty(pscale)
     fprintf(fidi,'\t  %s_scales =\n',cstring2);