(*^ ::[paletteColors = 128; currentKernel; fontset = title, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, L1, e8, 24, "Times"; ; fontset = subtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, L1, e6, 18, "Times"; ; fontset = subsubtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, italic, L1, e6, 14, "Times"; ; fontset = section, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, grayBox, M22, bold, L1, a20, 18, "Times"; ; fontset = subsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, blackBox, M19, bold, L1, a15, 14, "Times"; ; fontset = subsubsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, whiteBox, M18, bold, L1, a12, 12, "Times"; ; fontset = text, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12, "Times"; ; fontset = smalltext, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 10, "Times"; ; fontset = input, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeInput, M18, N23, bold, L-5, 10, "Courier"; ; fontset = output, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M18, N23, L-5, 10, "Courier"; ; fontset = message, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M18, N23, R65535, L-5, 10, "Courier"; ; fontset = print, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M18, N23, L-5, 10, "Courier"; ; fontset = info, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M18, N23, B65535, L-5, 10, "Courier"; ; fontset = postscript, PostScript, formatAsPostScript, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeGraphics, M18, l34, w373, h379, L1, 12, "Courier"; ; fontset = name, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, italic, L1, 10, "Geneva"; ; fontset = header, inactive, noKeepOnOnePage, preserveAspect, M7, L1, 12, "Times"; ; fontset = Left Header, inactive, 12, "Times"; ; fontset = footer, inactive, noKeepOnOnePage, preserveAspect, center, M7, L1, 12, "Times"; ; fontset = Left Footer, inactive, 12, "Times"; ; fontset = help, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 10, "Times"; ; fontset = clipboard, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12, "Times"; ; fontset = completions, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12, "Times"; ; fontset = special1, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12, "Times"; ; fontset = special2, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12, "Times"; ; fontset = special3, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12, "Times"; ; fontset = special4, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12, "Times"; ; fontset = special5, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12, "Times"; ;] :[font = input; preserveAspect; startGroup; ] <0 and t>0. :[font = input; preserveAspect; startGroup; ] Declare[{w0,t},Positive]; f :[font = output; output; inactive; preserveAspect; endGroup; ] 0 ;[o] 0 :[font = input; preserveAspect; startGroup; ] Declare[t,Negative]; f :[font = output; output; inactive; preserveAspect; endGroup; ] 2*I*Pi*Cosh[t*w0] + 2*I*Pi*Sinh[t*w0] ;[o] 2 I Pi Cosh[t w0] + 2 I Pi Sinh[t w0] :[font = text; inactive; preserveAspect; ] With NewDeclare you can make the declaration more general again: :[font = input; preserveAspect; startGroup; ] NewDeclare[t,Real]; f :[font = output; output; inactive; preserveAspect; endGroup; ] I*Pi*Cosh[Abs[t*w0]] - I*Pi*Cosh[Abs[t*w0]]*Sign[t] - I*Pi*Sinh[Abs[t*w0]] + I*Pi*Sign[t]*Sinh[Abs[t*w0]] ;[o] I Pi Cosh[Abs[t w0]] - I Pi Cosh[Abs[t w0]] Sign[t] - I Pi Sinh[Abs[t w0]] + I Pi Sign[t] Sinh[Abs[t w0]] :[font = input; preserveAspect; startGroup; ] (-1)^(2n) :[font = output; output; inactive; preserveAspect; endGroup; ] 1 ;[o] 1 :[font = text; inactive; preserveAspect; ] Anytime you can use ? to see which properties are currently in force for a given variable: :[font = input; preserveAspect; startGroup; ] ?n :[font = info; inactive; preserveAspect; endGroup; ] Algebra`ReIm`Private`n IntegerQ[n] ^= True RealQ[n] ^= True ^*)