LSTO "_PROD" Step through independent variable values and do product RCL "LLIM" STO IND "EqV" LBL 80 Evaluate function SF 25 XEQ "PICF" RTN DSC: Wrap "FVARM" LBL 95 FVARMM "Set Vars " ├ "R/S To End" AVIEW VARMENU "FVARM" STOP RTN (FPRD) DSC: Product of a function evaluated at regular intervals over a range OUT: X: The product FAQ: No error checking is done on LLIM, ULIM, STEP, EqV, or EqP FAQ: Faster than product in FSPT FAQ: EqD is ignored - only last function value is summed UPD: REQ: REQ:free42>=3.0 LBL "FPRD" FUNC 01
RTN DSC: Run PICF with a 1 value for X - so return count is queried LBL 96 IPICF FUNC 00 GTO 86 "Select Return" ├ " Count" AVIEW CLMENU "1" KEY 1 XEQ 82 "2" KEY 2 XEQ 83 "3" KEY 3 XEQ 84 "4" KEY 4 XEQ 85 MENU STOP EXITALL STO "EqD" LBL 86 "F: " ARCL "EqP" ├ "(" ARCL "EqV" ├ "):→" ARCL "EqD" AVIEW RTN LBL 82
FREE42 PROGRAMS FREE
STO "EqD" LBL 87 EXITALL PGMMENU "Pick Function" AVIEW STOP ASTO "EqP" EXITALL VARMENU IND "EqP" REQ:free42=3.0.5 "Set Var " ├ "Pick Free Var" AVIEW STOP ASTO "EqV" EXITALL SF 25 L4STK CLV "EqP" CLV "EqV" CLV "EqD" X≠0? GTO 87 UPD: GBL: EqP - Name of selected function GBL: EqV - Name of selected variable GBL: EqD - Return count BUG: Variable menu works like solver, not like integrator. If an accuracy is required, then we use the variable LBL: 80-87, 91-87, 99 (PICF) DSC: Pick an MVAR function and variable IN: X: integer FAQ: If X=0, then EqD is set to 1. Upper limit of second or dependent variableĪ step size for a second or dependent variable Lower limit of second or dependent variable If a second variable is used, then similar variables are used however, we have no precedent for what to name them.
Variables based upon names used by built in tools:
Values we need to know lower and upper ranges over which to sum, and a step size by which to increment the variable. The collected information is housed in three globalĭepending on what we are doing with the MVAR program, we may need to know something about the independent variable too. All the top level programs use PICF to collect information about the MVAR program to be used.
0 kommentar(er)
