zhangyiss/DSurfTomo
1
0
Fork 0
mirror of https://github.com/HongjianFang/DSurfTomo.git synced 2025-12-20 10:31:06 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

fix bug

Browse Source 
fix bug about depm on a certain OS, including MAC OSx, seems it doesn't affect Linux OS.
Also change the chi squre equation to sqrt(x^2/n)
This commit is contained in:
Hongjian Fang
2016-05-04 22:34:55 +02:00
parent b25529e2b2
commit cd7d0eb0a0
24 changed files with 6 additions and 159586 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
srcsmooth/main.f90
View File

@@ -495,12 +495,12 @@
write(*,'(a,f7.3)'),'weight is:',weight
write(*,'(a,f8.1,a,f8.2,a,f8.3)'),'mean,std_devs and chi sqrue of &
residual: ',mean*1000,'ms ',1000*std_devs,'ms ',&
dnrm2(dall,cbst,1)**2/dall
dnrm2(dall,cbst,1)**2/sqrt(dall)
write(66,'(i2,a)'),iter,'th iteration...'
write(66,'(a,f7.3)'),'weight is:',weight
write(66,'(a,f8.1,a,f8.2,a,f8.3)'),'mean,std_devs and chi sqrue of &
residual: ',mean*1000,'ms ',1000*std_devs,'ms ',&
dnrm2(dall,cbst,1)**2/dall
dnrm2(dall,cbst,1)**2/sqrt(dall)
write(*,'(a,2f7.4)'),'min and max velocity variation ',&
minval(dv),maxval(dv)