Changeset a807206 in sasmodels for sasmodels/models/mass_surface_fractal.c
- Timestamp:
- Oct 1, 2016 12:42:06 AM (8 years ago)
- Branches:
- master, core_shell_microgels, costrafo411, magnetic_model, release_v0.94, release_v0.95, ticket-1257-vesicle-product, ticket_1156, ticket_1265_superball, ticket_822_more_unit_tests
- Children:
- caddb14, 5031ca3
- Parents:
- 2222134
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
sasmodels/models/mass_surface_fractal.c
r2c74c11 ra807206 2 2 3 3 double Iq(double q, 4 double mass_dim,5 double surface_dim,6 double cluster_rg,4 double fractal_dim_mass, 5 double fractal_dim_surf, 6 double rg_cluster, 7 7 double primary_rg); 8 8 9 9 static double _mass_surface_fractal_kernel(double q, 10 double mass_dim,11 double surface_dim,12 double cluster_rg,10 double fractal_dim_mass, 11 double fractal_dim_surf, 12 double rg_cluster, 13 13 double primary_rg) 14 14 { 15 15 //computation 16 double tot_dim = 6.0 - surface_dim - mass_dim;17 mass_dim/= 2.0;16 double tot_dim = 6.0 - fractal_dim_surf - fractal_dim_mass; 17 fractal_dim_mass /= 2.0; 18 18 tot_dim /= 2.0; 19 19 20 double rc_norm = cluster_rg * cluster_rg / (3.0 * mass_dim);20 double rc_norm = rg_cluster * rg_cluster / (3.0 * fractal_dim_mass); 21 21 double rp_norm = primary_rg * primary_rg / (3.0 * tot_dim); 22 22 … … 25 25 double x_val2 = 1.0 + q * q * rp_norm; 26 26 27 double inv_form = pow(x_val1, mass_dim) * pow(x_val2, tot_dim);27 double inv_form = pow(x_val1, fractal_dim_mass) * pow(x_val2, tot_dim); 28 28 29 29 //another singular … … 41 41 42 42 double Iq(double q, 43 double mass_dim,44 double surface_dim,45 double cluster_rg,43 double fractal_dim_mass, 44 double fractal_dim_surf, 45 double rg_cluster, 46 46 double primary_rg) 47 47 { 48 48 return _mass_surface_fractal_kernel(q, 49 mass_dim,50 surface_dim,51 cluster_rg,49 fractal_dim_mass, 50 fractal_dim_surf, 51 rg_cluster, 52 52 primary_rg); 53 53 }
Note: See TracChangeset
for help on using the changeset viewer.