
/**  XGraph  **/
/*A: K McIsaac*/
/*S: University of Western Australia, Nedlands 6009, Australia*/
/*D: October, 1986 */
/*K: Graph */
/*B: The x axis is not labeled properly*/
/*: Graph[$exp,$x]
	Graphs $exp over the range -Inf to Inf by transforming the argument  of
	$exp with the Tan function*/

Graph[$exp,$x] :: Graph[S[$exp,$x->Tan[$x]],$x,-Pi/2,Pi/2]

/*E:
