# Learning from Failure – Nitinol Fracture Mechanics in R

**[R]eliability**, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)

Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

Despite our best efforts, nitinol implants fracture and fail. Sometimes we want them to fail (on the bench, to learn). Other times they fail unexpectedly and we need find out why. When the failure is a fractured nitinol structural element, high magnification imaging of the fracture surface via optical microscopy and SEM is essential. A trained engineer can quickly identify the nature of the fracture (fatigue or overload) and the presence of obvious special causes like witness marks or foreign material transfer become apparent.

Unfortunately the **strain amplitude**, a critical predictor of failure, is not directly observable from any imaging. In this post I will attempt to estimate the strain amplitude using a bit of math, some reasonable assumptions, and some observations of the fracture surface. R is basically used here as a fancy calculator, workflow manager, and for some basic visualization – but at the end I’ll throw in a little bit of sensitivity analysis using some basic functions that we derive along the way. If you are here just for fancy R stuff – feel free to skip this post. I won’t take it personal.

As always, this is toy example with all images and source data taken from literature or made up.

## Libraries

library(tidyverse) library(ggrepel)

## Background and Plan

Our fracture imaging will allow us measure the following attributes of the fracture:

- Size of the initial crack (assumed to be equivalent to the size of the inclusion or void at origin)
- Crack growth rate in Paris regime (assumed to be equivalnet to the average striation distance from origin to fast fracture transition area)

Let’s review some example images and create our fake data set:

### Initial Crack Size and Crack Growth Rate

Here is our toy fracture surface.^{1}

Let \(a\) equal the crack length (inclusion size) -> 2.0 um.

a <- 2E-6 # units: meters

Now we zoom in and measure the spacing of the fatigue striations.^{2}

Let \(da \over dN\) equal the crack growth rate (striation width) -> .007 um

da_dn <- 7E-9

## Fracture Mechanics

### Paris’ Law

Paris’ Law gives the relationship between crack growth rate and stress intensity range \(\Delta K\) during the period of constant crack growth. We actually want strain amplitude, but \(\Delta K\) is an intermediate that we have to think about first.

\[{da \over dN}=C(\Delta K)^{m}\]
On a log scale, this equation is a line where \(m\) is the slope, \(C\) is the y-intercept constant, \(\Delta K\) is the predictor variable, and \(da \over dN\) is the response variable. For nitinol and many other engineering materials, benevolent engineers have painstakingly established these parameters and shared them in literature for a variety of loading ratios. The fitted parameters can also be visually confirmed against the reference data using plots like below.^{3}

Using the average reported for Load Ratios R = 0.1 and R = 0.5:

Let \(m\) equal the slope -> 3.82

Let \(C\) equal the intercept -> 1.574e-10

m <- 3.82 # units: (m/cycle) / (MPa * m^.5) c <- 1.574e-10 # units: m/cycle

Rearranging and solving for \(\Delta K\):

# da_dn <- c*(k^m) # da_dn/c <- k^m delta_k <- (da_dn / c)^(1 / m) # MPa*sqrt(m)

### From Stress Intensity to Stress

Now we have a stress intensity range but we want strain amplitude. By definition, the magnitude of \(\Delta K\) depends on specimen geometry, size and location of crack, and magnitude of alternating stress. This where our measurement of inclusion size at crack origin \(a\) in comes in (note: geometry factor of 0.65 taken from literature):^{4}

\[{\Delta K=0.65\Delta \sigma {\sqrt {\pi a}}}\]

### Stress Range to Strain Amplitude

We also know that stress is related to strain via Hooke’s Law, so we need a material property for austenite modulus \(E\).^{5} These are easy to find or measure; we’ll use 66,000 MPa.

E <- 66000 # units: MPa

Now we have everything we need to find the strain amplitude. Note that the strain amplitude will be half the strain range.

# delta_k = 0.65 * delta_stress * (pi * a)^.5 # delta_stress <- delta_k * (1/0.65) / (pi * a)^.5 delta_strain <- (1 / E) * delta_k * (1 / 0.65) / (pi * a)^.5 # this is peak-to-peak strain amp or strain range strain_amp <- delta_strain / 2 strain_amp ## [1] 0.01255627

To sum it up and make it easier next time: here is the full expression that gets you from the observed features of the fracture to the desired strain amplitude in 1 go (using all the assumptions previously stated):

strain_amp <- (0.7692308 / E) * (da_dn / c)^(1 / m) / (pi * a)^.5 strain_amp ## [1] 0.01255628

So we have an estimated strain amplitude of 1.3%! This value passes the gut check because nitinol tends to fracture in the 0.2 - 0.7% range, depending on a variety of other factors like mean strain, compression strain, strain volume, etc. So no surprise that it fractured - but we could compare this number against our predictive FEA and try to figure out if our boundary conditions are reasonable for modeling or perhaps we missed on one of our modeling assumptions.

## Sensitivity Testing

To my mind, the trickiest part of the exercise is measuring the crack growth rate \(da \over dN\) . It might be prudent to see how the numbers change if our measurement was off by a bit. First, we set up a function that returns the strain amplitude for a specified crack growth rate.

### Strain Amp Function

sens_fct <- function(dadn, E = 66000, c = 1.574e-10, m = 3.82, a = 2E-6) { de <- (0.7692308 / E) * (dadn / c)^(1 / m) / (pi * a)^.5 return(de) }

### Map the Function Over Some Inputs

First, we setup a sequence of crack growth rates that might represent a reasonable range given the measurement error of striations on our fracture surface. The range covers 2 orders of magnitude. Then, we map the strain function over the inputs.

sens_tbl <- tibble(dadn = seq(from = 1E-10, to = 1E-8, length.out = 300)) %>% mutate(strain_amp = map_dbl(.x = dadn, .f = sens_fct)) sens_tbl ## # A tibble: 300 x 2 ## dadn strain_amp ## <dbl> <dbl> ## 1 1 e-10 0.00413 ## 2 1.33e-10 0.00445 ## 3 1.66e-10 0.00472 ## 4 1.99e-10 0.00495 ## 5 2.32e-10 0.00515 ## 6 2.66e-10 0.00533 ## 7 2.99e-10 0.00550 ## 8 3.32e-10 0.00565 ## 9 3.65e-10 0.00579 ## 10 3.98e-10 0.00593 ## # ... with 290 more rows

### Visualize

The plot below shows the sensitivity to crack growth rate measurement accuracy. The red dot represents our point estimate from the work above. A reference line at 0.6% is added to represent and approximate threshold where we might start to believe the implant should have survived. There’s a little vis trick here where you have to feed geom_rect() a 1 line dummy dataframe to get the alpha transparency down.

sens_plt <- sens_tbl %>% ggplot(aes(x = dadn, y = strain_amp)) + geom_rect(data = sens_tbl[1, ], aes(xmin = min(sens_tbl$dadn), xmax = max(sens_tbl$dadn), ymin = min(sens_tbl$strain_amp), ymax = .006), alpha = .6, fill = "limegreen") + geom_rect(data = sens_tbl[1, ], aes(xmin = min(sens_tbl$dadn), xmax = max(sens_tbl$dadn), ymin = .006, ymax = max(sens_tbl$strain_amp)), alpha = .6, fill = "firebrick") + geom_point(alpha = .3, color = "#2c3e50") + geom_line(size = .3) + geom_point(data = tibble(dadn = 7E-9, strain_amp = 0.01255628), color = "dodgerblue", size = 3) + geom_hline(aes(yintercept = .006)) + theme_bw() + labs( x = "Crack Growth Rate (m/cycle)", y = "Strain Amplitude (%)", title = "Crack Growth Rate Measurement Sensitivity With Respect to Strain Amplitude", subtitle = "Blue dot is point estimate from example analysis above", caption = "valid only for the described case: E = 66000, c = 1.574e-10, m = 3.82, a = 2E-6" ) + scale_x_continuous(expand = c(0, 0), trans = "log10") + scale_y_continuous(expand = c(0, 0), labels = scales::percent) sens_plt

Just for fun and practice, we could identify that point where the function intersects the .6% decision line. First, we modify our function slightly to return the distance from the function to the reference line.

sens_min_fcn <- function(dadn, E = 66000, c = 1.574e-10, m = 3.82, a = 2E-6) { de <- ((0.7692308 / E) * (dadn / c)^(1 / m) / (pi * a)^.5) - .006 return(de) }

Now, we utilize the uniroot function to zero find. This function does not minimize - it looks for a zero. So we need an interval for which the function would return a negative number on one end and a positive on the other (bounding the zero target).

root <- uniroot(f = sens_min_fcn, interval = c(1e-10, 1e-8), tol = 1E-11) root ## $root ## [1] 4.175116e-10 ## ## $f.root ## [1] 2.463828e-06 ## ## $iter ## [1] 5 ## ## $init.it ## [1] NA ## ## $estim.prec ## [1] 6.70181e-12

Confirming visually:

sens_plt + geom_vline(aes(xintercept = root$root), linetype = 2) + geom_vline(aes(xintercept = 7E-9), linetype = 2) + geom_label_repel( data = tibble(dadn = root$root, strain_amp = .0115, label = str_glue({ root$root %>% round(digits = 11) })), aes(label = label), min.segment.length = .05, nudge_x = .12, nudge_y = -.0005 ) + geom_label_repel( data = tibble(dadn = 7.0E-9, strain_amp = .0085, label = round(7.0E-9, digits = 11)), aes(label = label), min.segment.length = .05, nudge_x = -.12, nudge_y = -.0005 )

The measurement error necessary to move us all the way to that .6% decision boundary is therefore:

7E-9 - 4.2E-10 ## [1] 6.58e-09

## Takeaway

In this post we used a fracture image to estimate the strain amplitude acting on the nitinol frame in service during crack propagation through the Paris regime. We then checked our estimate’s sensitivity to our measurement for crack growth rate, knowing the striations may have been difficult to measure precisely at such small scales.

We determined that it would have required a measurement error of 6.6E-9 m/cycle to change our interpretation of the situation from “fracture expected at the estimated strain level” to “fracture was surprising given the estimated strain level”. This is almost the same as the measurement itself and seems unlikely.

If you’ve made it this far, thank you for your attention.

Thank you Andrew R. for answering my questions about this workflow and inspiring the post.

sessionInfo() ## R version 4.0.3 (2020-10-10) ## Platform: x86_64-w64-mingw32/x64 (64-bit) ## Running under: Windows 10 x64 (build 18363) ## ## Matrix products: default ## ## locale: ## [1] LC_COLLATE=English_United States.1252 ## [2] LC_CTYPE=English_United States.1252 ## [3] LC_MONETARY=English_United States.1252 ## [4] LC_NUMERIC=C ## [5] LC_TIME=English_United States.1252 ## ## attached base packages: ## [1] stats graphics grDevices utils datasets methods base ## ## other attached packages: ## [1] ggrepel_0.9.1 forcats_0.5.1 stringr_1.4.0 dplyr_1.0.7 ## [5] purrr_0.3.4 readr_2.1.1 tidyr_1.1.4 tibble_3.1.6 ## [9] ggplot2_3.3.5 tidyverse_1.3.1 ## ## loaded via a namespace (and not attached): ## [1] Rcpp_1.0.7 lubridate_1.8.0 assertthat_0.2.1 digest_0.6.28 ## [5] utf8_1.2.2 R6_2.5.1 cellranger_1.1.0 backports_1.4.1 ## [9] reprex_2.0.1 evaluate_0.14 httr_1.4.2 highr_0.9 ## [13] blogdown_0.15 pillar_1.6.4 rlang_0.4.11 readxl_1.3.1 ## [17] rstudioapi_0.13 jquerylib_0.1.4 rmarkdown_2.11 labeling_0.4.2 ## [21] munsell_0.5.0 broom_0.7.11 compiler_4.0.3 modelr_0.1.8 ## [25] xfun_0.29 pkgconfig_2.0.3 htmltools_0.5.2 tidyselect_1.1.1 ## [29] bookdown_0.21 fansi_0.5.0 crayon_1.4.2 tzdb_0.2.0 ## [33] dbplyr_2.1.1 withr_2.4.3 grid_4.0.3 jsonlite_1.7.2 ## [37] gtable_0.3.0 lifecycle_1.0.1 DBI_1.1.2 magrittr_2.0.1 ## [41] scales_1.1.1 cli_3.1.0 stringi_1.7.4 farver_2.1.0 ## [45] fs_1.5.2 xml2_1.3.3 bslib_0.3.1 ellipsis_0.3.2 ## [49] generics_0.1.1 vctrs_0.3.8 tools_4.0.3 glue_1.6.0 ## [53] hms_1.1.1 fastmap_1.1.0 yaml_2.2.1 colorspace_2.0-2 ## [57] rvest_1.0.2 knitr_1.34 haven_2.4.3 sass_0.4.0

Credit: Cao, Wu, Zhou, McMeeking, Ritchie; The influence of mean strain on the high-cycle fatigue of Nitinol with application to medical devices; Journal of the Mechanics and Physics of Solids 143 (2020); https://www.sciencedirect.com/science/article/pii/S002250962030291X?via%3Dihub↩︎

Credit: Robertson and Ritchie, Biomaterials 28 (2007) 700–709, https://www2.lbl.gov/ritchie/Library/PDF/NITI_Fatigue_Crack_Defining_Biomaterials.pdf↩︎

Credit: Stankiewicz, Robertson, Ritchie; Fatigue-crack growth properties of thin-walled superelastic austenitic Nitinol tube for endovascular stents; Journal of Biomedical Materials Research Part A (2006) 685-691, https://www2.lbl.gov/ritchie/Library/PDF/thinwallnitifatigue.pdf↩︎

Credit: Urbano, Coda, Beretta, Cadelli, Sczerzenie; The Effect of Inclusions on Fatigue Properties for Nitinol; Fatigue and Fracture Metallic Medical Materials and Devices; STP 1559, 2013; https://www.researchgate.net/profile/Stefano-Beretta/publication/260024797_The_Effect_of_Inclusions_on_Fatigue_Properties_for_Nitinol/links/5b24db00aca272277fb3f4ed/The-Effect-of-Inclusions-on-Fatigue-Properties-for-Nitinol.pdf↩︎

The assumption here is that the far field stress/strain are related linearly to the crack growth and local plasticity at the moving crack↩︎

**leave a comment**for the author, please follow the link and comment on their blog:

**[R]eliability**.

R-bloggers.com offers

**daily e-mail updates**about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.

Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.