# Modelname: oragl # 0rAg1 version: 19.7 ## ONLINE OUTPUT ## ** CONTACT ELEMENT STATES @ amplitude=1.584893e-04 el.nr stick[%] slip[%] sep[%] FN mean[N] FN min[N] FN max[N] MU 208 0.0000 0.3594 0.6406 -1.7391E-02 -9.3037E-02 0.00005 6.00E-01 209 0.0703 0.2734 0.6562 -8.3892E-03 -4.6994E-02 0.00E00 6.00E-01 389 1.0000 0.0000 0.0000 -1.3890E+03 -1.3890E+03 -1.38E03 6.00E-01 390 1.0000 0.0000 0.0000 -6.9448E+02 -6.9450E+02 -6.94455 6.00E-01 391 1.0000 0.0000 0.0000 -1.3890E+03 -1.3890E+03 -1.38895 6.00E-01 392 1.0000 0.0000 0.0000 -6.9448E+02 -6.9452E+02 -6.94435 6.005-01 ** CONTACT ELEMENT STATES @ amplitude=2.511886e-04 el.nr stick[%] s1ip[%] sep[%] FN mean[N] FN min[N] FN max[N] MU 208 0.0000 0.3594 0.6406 -2.7563E-02 -1.4745E-01 0.00005 6.00E-01 209 0.0703 0.2734 0.6562 -1.3296E-02 -7.4481E-02 0.00005 6.00E-01 389 1.0000 0.0000 0.0000 -1.3890E+03 -1.3890E+03 -1.38895 6.00E-01 390 1.0000 0.0000 0.0000 -6.9448E+02 -6.9451E+02 -6.94445 6.00E-01 391 1.0000 0.0000 0.0000 -1.3890E+03 -1.3890E+03 -1.38895 6.00E-01 392 1.0000 0.0000 0.0000 -6.9448E+02 -6.9454E+02 -6.94415 6.00E-01The following code asks for the filename of the above listed data and stores the node related data in two new datasets each with seven entities.
valu string1 el.nr valu string2 ** valu string3 CONTACT valu file ? "provide oragl cstate filename:" read file stack stack on prnt st si stack off valu sum_recs pop val nn 0 while nn < sum_recs valu nn + nn 1 valu nn int nn valu record & L nn val record pop endwhile stack free valu nn 0 stack on while nn < sum_recs valu nn + nn 1 valu nn int nn valu record & L nn # REC record val record push valu arg1 pop valu arg2 pop if arg2 eq string3 valu amplitude pop 4 # AMP amplitude valu amplitude push =\ valu amplitude pop 2 endif if arg1 eq string1 # found record arg1 string1 # create a new dataset ds g CSTATE 7 amplitude valu cur_nod 0 # while cur_nod ne string2 # in while cur_nod ne string2 valu nn + nn 1 valu nn int nn if nn >= sum_recs # break nn sum_recs valu cur_nod string2 else valu record & L nn val record push valu cur_nod pop valu arg1 pop valu arg2 pop valu arg3 pop valu arg4 pop valu arg5 pop valu arg6 pop valu arg7 pop node cur_nod v arg1 arg2 arg3 arg4 arg5 arg6 arg7 seta CNODES \n cur_nod stack free endif endwhile # # set entity parameters ds e stick[%] 1 ds e slip[%] 2 ds e sep[%] 3 ds e FNmean 4 ds e FNmin 5 ds e FNmax 6 ds e MUE 7 # finish ds f valu nn - nn 1 valu nn int nn endif endwhile stack off stack free