Changeset 8b2127 in git
- Timestamp:
- Jan 10, 2007, 11:15:51 AM (17 years ago)
- Branches:
- (u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
- Children:
- 1ebfa79d4071e36bcb954859c868252b7fd426e9
- Parents:
- 0eb3afabc5240fde2f3750e2c02eb99f3023c125
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/resgraph.lib
r0eb3af r8b2127 1 ////////////////////////////////////////////////////////////////////////////// 2 version="$Id: resgraph.lib,v 1.4 2007-01-10 10:15:51 Singular Exp $"; 3 category="Commutative Algebra"; 4 info=" 5 LIBRARY: resgraph.lib Visualization of Resolution Data 6 7 AUTHOR: A. Fruehbis-Krueger, anne@mathematik.uni-kl.de, 8 9 NOTE: This library uses the external programs surf, graphviz and xv. 10 @* Input data is assumed to originate from resolve.lib and reszeta.lib 11 12 PROCEDURES: 13 InterDiv(M[,name]) dual graph of resolution of a surface (uses graphviz,xv) 14 ResTree(L,M[,name]) tree of charts of resolution (uses graphviz,xv) 15 finalCharts(L,...) pictures of final charts of surface (uses surf) 16 "; 17 1 18 proc InterDiv(intmat M, list #) 19 "USAGE: InterDiv(M[,name]); 20 @* M = matrix 21 @* name = string 22 ASSUME: - M is first list entry of output of 'intersectionDiv' 23 @* from library reszeta.lib 24 @* - write permission in the current directory or in the 25 @* directory in which the file with name 'name' resides 26 CREATE: file 'name.jpg' containing dual graph of resolution 27 @* if filename is given 28 NOTE: only available on UNIX-type systems and programs 29 @* 'xv' (X11/Xorg package) and 'dot' (Graphviz package) need to 30 @* be in the standard search PATH 31 RETURN: nothing, only generating graphics output in separate window 32 EXAMPLE: not available (for technical reasons) 33 " 2 34 { 3 35 "Warning: alpha testing version of this procedure"; … … 62 94 } 63 95 j=system("sh","dot -Tjpg " + @filename + " -o "+ outfile); 64 j=system("sh"," /usr/bin/X11/xv " + outfile + " &");96 j=system("sh","xv " + outfile + " &"); 65 97 //--------------------------------------------------------------------------- 66 98 // clean up if necessary … … 113 145 114 146 proc ResTree(list re, intmat DivMat, list #) 147 "USAGE: ResTree(L,M[,name][,mark]); 148 @* L = list 149 @* M = matrix 150 @* name = string 151 @* mark = intvec 152 ASSUME: - L is the output of 'resolve' from resolve.lib 153 @* - M is first entry of output of 'collectDiv(L);' from reszeta.lib 154 @* - write permission in the current directory or in the 155 @* directory in which the file with name 'name' resides 156 @* - mark intvec of size size(L[2]) 157 @* mark[i]=0 (default) border of box black 158 @* mark[i]=1 border of box red 159 CREATE: file 'name.jpg' containing the tree of charts of L 160 @* if filename is given 161 NOTE: only available on UNIX-type systems and programs 162 @* 'xv' (X11/Xorg package) and 'dot' (Graphviz package) need to 163 @* be in the standard search PATH 164 RETURN: nothing, only generating graphics output in separate window 165 EXAMPLE: not available (for technical reasons) 166 " 115 167 { 116 168 //----------------------------------------------------------------------------- … … 245 297 246 298 proc finalCharts(list re, list inter, intvec endiv, list #) 299 "USAGE: finalCharts(L1,L2,iv[,name]); 300 @* L1 = list 301 @* L2 = list 302 @* iv = intvec 303 @* name = string 304 ASSUME: - L1 is the output of 'resolve' from resolve.lib 305 @* - L2 is the output of 'intersectionDiv(L1)' from reszeta.lib 306 @* - iv is the first entry of the output of 'abstractR(L1)' 307 @* - write permission in the current directory or in the 308 @* directory in which the file with name 'name' resides 309 CREATE: - new windows in which surf-images of the final charts are presented 310 @* - several '.ras' files in the directory in which 'name' resides 311 NOTE: only available on UNIX-type systems 312 @* external programs 'surf' and 'xv' (X11/Xorg package) need to be 313 @* in the standard search PATH 314 RETURN: nothing, only generating graphics output in separate window 315 EXAMPLE: not available (for technical reasons) 316 " 247 317 { 248 318 //-----------------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.