Re: Mixing graphics and text

*To*: mathgroup at smc.vnet.net*Subject*: [mg86817] Re: [mg86802] Mixing graphics and text*From*: Curtis Osterhoudt <cfo at lanl.gov>*Date*: Sat, 22 Mar 2008 00:52:27 -0500 (EST)*Organization*: LANL*References*: <200803210655.BAA18440@smc.vnet.net>*Reply-to*: cfo at lanl.gov

graphs = GraphData[]; n = 3; Row[Join[Riffle[GraphData /@ graphs[[2 ;; 1 + n]], Table[ "\!\(\*\nStyleBox[\"+\",\nFontSize->72,\nFontColor->RGBColor[0\ , 0, 1]]\)", {n - 1}]], {"\!\(\*\nStyleBox[\"=\",\nFontSize->72]\)", GraphData[First[graphs]]}]] I did this by highlighting the symbols I wanted changed, then going to the Format -> Size menu and choosing 72 point font. Hope that helps! On Friday 21 March 2008 00:55:06 Yaroslav Bulatov wrote: > What is the easiest way to get an "equation" like the one below, but > with "+" and "=" symbols being about 6 times larger? > > graphs = GraphData[]; > n = 3; Riffle[GraphData /@ graphs[[2 ;; 1 + n]], Table["+", {n - 1}]]~ > Join~{"=", GraphData[graphs // First]} // Row -- ========================================================== Curtis Osterhoudt cfo at remove_this.lanl.and_this.gov PGP Key ID: 0x4DCA2A10 Please avoid sending me Word or PowerPoint attachments See http://www.gnu.org/philosophy/no-word-attachments.html ==========================================================

**References**:**Mixing graphics and text***From:*Yaroslav Bulatov <yaroslavvb@gmail.com>