module Drasil.SSP.References where

import Language.Drasil

import Data.Drasil.Citations (jnlCGJ, koothoor2013, parnasClements1986, smithLai2005)
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
smithLai2005, 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]
  "A concise algorithm for computing the factor of safety using the morgenstern price method"
  String
jnlCGJ 2005 [Month -> CiteField
month Month
Feb, Int -> CiteField
volume 42, Int -> CiteField
number 1, [Int] -> CiteField
pages [272..278]]
  "chen2005"

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

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

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

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

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