tag:blogger.com,1999:blog-6352798839577548669.post2064618958396351781..comments2011-11-17T01:05:38.044+08:00Comments on 養花種魚數月亮賞星星: Mathematica 教學 Path Analysis 路徑分析養花種魚數月亮賞星星noreply@blogger.comBlogger1125tag:blogger.com,1999:blog-6352798839577548669.post-16972592284005122062011-11-17T01:05:38.044+08:002011-11-17T01:05:38.044+08:00path = {"學校人力資源\n管理措施知覺" -> "人才選...path = {"學校人力資源\n管理措施知覺" -> "人才選用", "學校人力資源\n管理措施知覺" -> "人才培育發展", <br /> "學校人力資源\n管理措施知覺" -> "人才維持保留", "學校人力資源\n管理措施知覺" -> "人才績效評估", <br /> "學校人力資源\n管理措施知覺" -> "情感性承諾", "情感性承諾" -> "教師組織\n公民行為", <br /> "學校人力資源\n管理措施知覺" -> "教師組織\n公民行為", "教師組織\n公民行為" -> "關懷學校效益", <br /> "教師組織\n公民行為" -> "敬業行為", "教師組織\n公民行為" -> "尊重學校體制", <br /> "教師組織\n公民行為" -> "助人行為", "教師組織\n公民行為" -> "工作自我要求"};<br /><br />GraphPlot[path, VertexLabeling -> True,<br /> Method -> "SpringEmbedding",<br /> EdgeRenderingFunction -> ({Red, Arrowheads[0.03], Arrow[#1, 0.1]} &),<br /> VertexRenderingFunction -> ({White, EdgeForm[Black], Black, <br /> Text[Framed[Style[#2, FontSize -> 12], <br /> Background -> RGBColor[1, 1, 0.8]], #1]} &)]Chung-Yuan Dyehttp://www.blogger.com/profile/09824116877146354409noreply@blogger.com