module Drasil.SSP.References where

import Language.Drasil

import Data.Drasil.Citations (jnlCGJ, koothoor2013, parnasClements1986,
 smithEtAl2007, smithLai2005, smithKoothoor2016)
import Data.Drasil.People (bKarchewski, cfLee, dgFredlund, dStolle, dyZhu,
  grChen, jKrahn, pGuo, pjCleall, qhQian, ssLing, tltZhan, yCLi, ymChen,
  rHuston, hJosephs, nrMorgenstern, vePrice)

citations :: BibRef
citations :: BibRef
citations = [Citation
chen2005, Citation
parnasClements1986, Citation
koothoor2013, Citation
fredlund1977,
             Citation
smithEtAl2007, Citation
smithLai2005, Citation
smithKoothoor2016, Citation
li2010,
             Citation
karchewski2012, Citation
huston2008, Citation
morgenstern1965]

chen2005, fredlund1977, li2010, karchewski2012, huston2008,
  morgenstern1965 :: Citation
--See Language.Drasil.People for all person constructors
chen2005 :: Citation
chen2005 = People
-> String -> String -> Int -> [CiteField] -> String -> Citation
cArticle [Person
qhQian, Person
dyZhu, Person
cfLee, Person
grChen]
  String
"A concise algorithm for computing the factor of safety using the morgenstern price method"
  String
jnlCGJ Int
2005 [Month -> CiteField
month Month
Feb, Int -> CiteField
volume Int
42, Int -> CiteField
number Int
1, [Int] -> CiteField
pages [Int
272..Int
278]]
  String
"chen2005"

fredlund1977 :: Citation
fredlund1977 = People
-> String -> String -> Int -> [CiteField] -> String -> Citation
cArticle [Person
dgFredlund, Person
jKrahn]
  String
"Comparison of slope stability methods of analysis"
  String
jnlCGJ Int
1977 [Month -> CiteField
month Month
Apr, [Int] -> CiteField
pages [Int
429..Int
439], Int -> CiteField
volume Int
14, Int -> CiteField
number Int
3]
  String
"fredlund1977"

li2010 :: Citation
li2010 = People
-> String -> String -> Int -> [CiteField] -> String -> Citation
cArticle [Person
yCLi, Person
ymChen, Person
tltZhan, Person
ssLing, Person
pjCleall]
  (String
"An efficient approach for locating the critical slip surface in" String -> String -> String
forall a. [a] -> [a] -> [a]
++
  String
" slope stability analyses using a real-coded genetic algorithm")
  String
jnlCGJ Int
2010 [Month -> CiteField
month Month
Jun, [Int] -> CiteField
pages [Int
806..Int
820], Int -> CiteField
volume Int
47, Int -> CiteField
number Int
7]
  String
"li2010"

karchewski2012 :: Citation
karchewski2012 = People
-> String -> String -> Int -> [CiteField] -> String -> Citation
cInProceedings [Person
bKarchewski, Person
pGuo, Person
dStolle]
  String
"Influence of inherent anisotropy of soil strength on limit equilibrium slope stability analysis"
  String
"Proceedings of the 65th annual Canadian GeoTechnical Conference" Int
2012 
  [String -> CiteField
address String
"Winnipeg, MB, Canada", String -> CiteField
organization String
"Canadian Geotechnical Society"] 
  String
"karchewski2012"

huston2008 :: Citation
huston2008 = People
-> String -> String -> Int -> [CiteField] -> String -> Citation
cBookA [Person
rHuston, Person
hJosephs] String
"Practical stress analysis in engineering design"
  String
"CRC Press" Int
2008 [Int -> CiteField
edition Int
3] String
"huston2008"

morgenstern1965 :: Citation
morgenstern1965 = People
-> String -> String -> Int -> [CiteField] -> String -> Citation
cArticle [Person
nrMorgenstern, Person
vePrice]
  String
"The analysis of the stability of general slip surfaces"
  String
"Géotechnique" Int
1965 [Month -> CiteField
month Month
Jan, [Int] -> CiteField
pages [Int
79..Int
93], Int -> CiteField
number Int
15]
  String
"morgenstern1965"