|
| 1 | +using MFrontInterface |
| 2 | +using Materials |
| 3 | +using DelimitedFiles |
| 4 | +using Suppressor |
| 5 | +using Tensors |
| 6 | +using Test |
| 7 | + |
| 8 | +dtime = 0.25 |
| 9 | +mgis_bv = MFrontInterface.behaviour |
| 10 | + |
| 11 | +function MaterialTest() |
| 12 | + lib_path = "test_plasticity/libBehaviour.so" |
| 13 | + behaviour_name = "IsotropicLinearHardeningPlasticity" |
| 14 | + hypothesis = mgis_bv.Tridimensional |
| 15 | + |
| 16 | + behaviour = load(lib_path, behaviour_name, hypothesis) |
| 17 | + behaviour_data = BehaviourData(behaviour) |
| 18 | + |
| 19 | + ext_variable_names = [mgis_bv.get_name(mgis_bv.get_external_state_variables(behaviour)[i]) for i in 1:mgis_bv.length(mgis_bv.get_external_state_variables(behaviour))] |
| 20 | + ext_variable_values = zeros(length(ext_variable_names)) |
| 21 | + ext_vatiable_state = MFrontExternalVariableState(names=ext_variable_names, values=ext_variable_values) |
| 22 | + |
| 23 | + return MFrontMaterial(behaviour=behaviour, behaviour_data=behaviour_data, external_variables=ext_vatiable_state) |
| 24 | +end |
| 25 | + |
| 26 | +mat = MaterialTest() |
| 27 | + |
| 28 | +times = [mat.drivers.time] |
| 29 | +stresses = [copy(tovoigt(mat.variables.stress))] |
| 30 | +stresses_expected = [[50.0, 0.0, 0.0, 0.0, 0.0, 0.0], |
| 31 | + [100.0, 0.0, 0.0, 0.0, 0.0, 0.0], |
| 32 | + [150.0, 0.0, 0.0, 0.0, 0.0, 0.0], |
| 33 | + [100.0, 0.0, 0.0, 0.0, 0.0, 0.0], |
| 34 | + [-100.0, 0.0, 0.0, 0.0, 0.0, 0.0]] |
| 35 | +dstrain11 = 1e-9*dtime |
| 36 | +strains_expected = [[dstrain11, -0.3*dstrain11, -0.3*dstrain11, 0.0, 0.0, 0.0], |
| 37 | + [2*dstrain11, -0.3*dstrain11*2, -0.3*dstrain11*2, 0.0, 0.0, 0.0], |
| 38 | + [3*dstrain11, -0.3*dstrain11*2 - 0.3*dstrain11, -0.3*dstrain11*2 - 0.3*dstrain11, 0.0, 0.0, 0.0], |
| 39 | + [2*dstrain11, -0.3*dstrain11 - 0.3*dstrain11, -0.3*dstrain11 - 0.3*dstrain11, 0.0, 0.0, 0.0], |
| 40 | + [-2*dstrain11, 0.3*dstrain11*2, 0.3*dstrain11*2, 0.0, 0.0, 0.0]] |
| 41 | +dtimes = [dtime, dtime, dtime, dtime, 1.0] |
| 42 | +dstrains11 = [dstrain11, dstrain11, dstrain11, -dstrain11, -4*dstrain11] |
| 43 | +for i in 1:length(dtimes) |
| 44 | + dstrain11 = dstrains11[i] |
| 45 | + dtime = dtimes[i] |
| 46 | + uniaxial_increment!(mat, dstrain11, dtime) |
| 47 | + update_material!(mat) |
| 48 | + @test isapprox(tovoigt(mat.variables.stress), stresses_expected[i]) |
| 49 | + #@info(tovoigt(mat.drivers.strain; offdiagscale=2.0), strains_expected[i]) |
| 50 | + @test isapprox(tovoigt(mat.drivers.strain; offdiagscale=2.0), strains_expected[i]) |
| 51 | +end |
0 commit comments